Работа с INI-файлами

@Pet61 · Регистрация: 28.06.2013

Студворк — интернет-сервис помощи студентам

Доброго всем дня! Столкнулся с такой проблемой - как прочитать данные из Ini файла, в котором есть повторяющиеся разделы? Буду признателен всем за оказанную помощь!

@ThorHammer · 16.10.2013, 18:34

вот кусок

Bash
1
2
[Recent File List]
File1=D:\Бои Емельяненко.mp4

В выводе батника какой-то необычный юникод, по-моему он еще в 866 обернут. Там кракозябры, это сам форум в эскейп переводит
Пробовал chcp и так и сяк все равно кракозябры

Dragokas · 16.10.2013, 18:51

Лучше прикрепите в виде файла к сообщению: Расширенный режим -> Кнопка со скрепкой.

@ThorHammer · 16.10.2013, 19:00

прикрепил
поправка, в выводе обычный utf-8, это изза chcp был другой вывод
но все равно, никак не могу передать как параметр

@Anonymоus · 16.10.2013, 21:48

ThorHammer, после строки

Code
1
call :TrimSpaces "!ini.Value!" " " "ini.Value"

добавьте вот это:

Code
1
For /F "delims=" %%+ In ('Echo !ini.Value!^|recode -f utf-8...cp866') Do Set "ini.Value=%%+"

Утилиту recode я прикрепил к посту, или скачайте сами отсюда.

@ThorHammer · 17.10.2013, 07:45

Anonymоus, спасибо! Ваш пример работает!!!

UPD: покопался в интернетах немножко с другим запросом и нашел вот что:
Добавил в начало батника chcp 65001 и все заработало без дополнительных ухищрений!

Dragokas · 17.10.2013, 12:54

ThorHammer, какая ОС? Куда конкретно подставляли?

@ThorHammer · 17.10.2013, 13:02

Dragokas, ОС - Win 7 x64
Добавил в начало батника

Bash
1
2
3
4
5
6
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
chcp 65001
 
...

Dragokas · 17.10.2013, 13:16

ThorHammer, просто подставляю и получаю: "The system cannot write to the specified device.".
А можете, пожалуйста, скинуть архивом. У меня не получается.

@ThorHammer · 20.10.2013, 13:46

Dragokas, просто удалите все echo, он не работает с юникодом

@antony89 · 10.07.2014, 07:00

Здравствуйте! Подскажите, пожалуйста, как засунуть результаты(ini.Value) в переменные (Email1, Email2, Email3, Pass). Взял часть кода Dragokas'a. Удалял EndLocal, тогда для всех переменных , первый параметр(Email1) назначается.

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
@echo off
Setlocal EnableExtensions EnableDelayedExpansion
 
set inifile=settings.ini
 
 
echo.Значение Email1
call :ini.ReadKey "%inifile%" "[Settings]" 1 Email1 1
Set Email1=%ini.Value%
echo %Email1%
 
echo.Значение Email2
call :ini.ReadKey "%inifile%" "[Settings]" 1 Email2 1
Set Email2=%ini.Value%
echo %Email2%
 
echo.Значение Email3
call :ini.ReadKey "%inifile%" "[Settings]" 1 Email3 1
Set Email3=%ini.Value%
echo %Email3%
 
echo.Значение Password
call :ini.ReadKey "%inifile%" "[Settings]" 1 Password 1
Set Pass=%ini.Value%
echo %Pass%
 
pause
EndLocal
Exit /B
 
 
:ini.ReadKey
::%1 - путь к файлу
::%2 - имя секции
::%3 - порядковый номер секции (если имеются одноименные), иначе указывайте 1
::%4 - имя параметра
::%5 - порядковый номер параметра (если имеются одноименные), иначе указывайте 1
 SetLocal
  for /f "UseBackQ delims=" %%s in ("%~1") do (
    if Defined BeginRead (
      for /f "tokens=1* delims==" %%k in ("%%s") do (
        set ini.Key.Name=%%k
        call :TrimSpaces "!ini.Key.Name!" " " "ini.Key.Name"
        if /i "!ini.Key.Name!"=="%~4" (
          Set /A ini.Keys.Count+=1
          if !ini.Keys.Count!==%~5 (
            Set ini.Value=%%l
            call :TrimSpaces "!ini.Value!" " " "ini.Value"
            echo.!ini.Value!
    EndLocal
            Exit /B
          )
        )
      )
    ) else (
      set ini.Section.Name=%%s
      call :TrimSpaces "!ini.Section.Name!" " " "ini.Section.Name"
      if /i "!ini.Section.Name!"=="%~2" (
        set /A ini.Sections.Count+=1
        if !ini.Sections.Count!==%~3 (
          Set BeginRead=true
        )
      )
    )
  )
  Endlocal
Exit /B
 
 
::Удаляет слева и справа лишние пробелы, или другие подряд идущие символы, заданные переменной %2 (Symbol)
:TrimSpaces
::%1-in.String
::%2-in.Symbol
::%3-out.String.Variable
  Set "%~3="
  Set "_String=%~1"
  if "%_String%"=="" Exit /B
  :Begin_Trim_Left
    if "%_String:~0,1%"=="%~2" (set "_String=%_String:~1%"& Goto Begin_Trim_Left)
  if "%_String%"=="" Exit /B
  :Begin_Trim_Right  
    if "%_String:~-1%"=="%~2" (set "_String=%_String:~0,-1%"& Goto Begin_Trim_Right)
  set "%~3=%_String%"
Exit /B

@sov44 · 10.07.2014, 12:40

antony89, прикрипите два текстовых файла: как есть и как должно быть. Сторонние утилиты допустимы?

@antony89 · 10.07.2014, 13:14

sov44, Чего-то не совсем понял чего прикрепить? Батник выше читает переменные из ini файла и записывает их локальную переменную ini.Value. У меня не получается поместить каждый прочтенный параметр в отдельные глобальные переменные (Email1, Email2, Email3, Pass). Прикрепил архив в котором батник, ini файл с параметрами, и оригинал батника с которого я копировал код. Сторонние утилиты не хотелось бы, но если без них никак, то можно и с ними.

@antony89 · 18.07.2014, 11:23

Решил вопрос, спасла вот эта запись

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
@echo off
Setlocal EnableExtensions EnableDelayedExpansion
 
set inifile=settings.ini
 
SetLocal
echo.Значение Email1
call :ini.ReadKey "%inifile%" "[Settings]" 1 Email1 1
endlocal&set Email1=%ini.Value%
echo %Email1%
 
 
SetLocal
echo.Значение Email2
call :ini.ReadKey "%inifile%" "[Settings]" 1 Email2 1
endlocal&set Email2=%ini.Value%
echo %Email2%
 
SetLocal
echo.Значение Email3
call :ini.ReadKey "%inifile%" "[Settings]" 1 Email3 1
endlocal&set Email3=%ini.Value%
echo %Email3%
 
 
SetLocal
echo.Значение Password
call :ini.ReadKey "%inifile%" "[Settings]" 1 Password 1
endlocal&set PASS=%ini.Value%
echo %Pass%
 
pause
cls
ECHO %Email1% %Email2% %Email3% %PASS% 
pause
Exit /B
 
 
:ini.ReadKey
::%1 - путь к файлу
::%2 - имя секции
::%3 - порядковый номер секции (если имеются одноименные), иначе указывайте 1
::%4 - имя параметра
::%5 - порядковый номер параметра (если имеются одноименные), иначе указывайте 1
  for /f "UseBackQ delims=" %%s in ("%~1") do (
    if Defined BeginRead (
      for /f "tokens=1* delims==" %%k in ("%%s") do (
        set ini.Key.Name=%%k
        call :TrimSpaces "!ini.Key.Name!" " " "ini.Key.Name"
        if /i "!ini.Key.Name!"=="%~4" (
          Set /A ini.Keys.Count+=1
          if !ini.Keys.Count!==%~5 (
            Set ini.Value=%%l
            call :TrimSpaces "!ini.Value!" " " "ini.Value"
            Exit /B
          )
        )
      )
    ) else (
      set ini.Section.Name=%%s
      call :TrimSpaces "!ini.Section.Name!" " " "ini.Section.Name"
      if /i "!ini.Section.Name!"=="%~2" (
        set /A ini.Sections.Count+=1
        if !ini.Sections.Count!==%~3 (
          Set BeginRead=true
        )
      )
    )
  )
Exit /B
 
::Удаляет слева и справа лишние пробелы, или другие подряд идущие символы, заданные переменной %2 (Symbol)
:TrimSpaces
::%1-in.String
::%2-in.Symbol
::%3-out.String.Variable
  Set "%~3="
  Set "_String=%~1"
  if "%_String%"=="" Exit /B
  :Begin_Trim_Left
    if "%_String:~0,1%"=="%~2" (set "_String=%_String:~1%"& Goto Begin_Trim_Left)
  if "%_String%"=="" Exit /B
  :Begin_Trim_Right  
    if "%_String:~-1%"=="%~2" (set "_String=%_String:~0,-1%"& Goto Begin_Trim_Right)
  set "%~3=%_String%"
Exit /B

Dragokas · 18.07.2014, 17:52

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@echo off
SetLocal EnableExtensions
 
set "inifile=settings.ini"
 
For /F "UseBackQ tokens=1-2 delims==" %%a in ("%inifile%") do (
  if /i "%%a"=="Email1" set "Email1=%%b"
  if /i "%%a"=="Email2" set "Email2=%%b"
  if /i "%%a"=="Email3" set "Email3=%%b"
)
 
echo email1=%email1%
echo email2=%email2%
echo email3=%email3%
pause

@Profi_GMan · 24.09.2016, 21:26

Извините за тупость, выложите ini.rar только сделайте так что бы записывались в переменную а не выводилась на экран, пожалуйста!!!

Dragokas · 24.09.2016, 22:11

Что такое ini.rar ?

Оно и так записывается в переменную.

@SergSkud · 14.04.2017, 16:02

Здравствуйте! А если в секции один из параметров отсутствует(или выключен), то одноименный параметр берется из следующей секции?
И вместо Mail2 подтянется Mail3?
SetLocal
call :ini.ReadKey "%inifile%" "[Rule2]" 1 MailReciever 1
endlocal&set MailReciever=%ini.Value%

settings.ini
[Rule1]
SourcePath=S1
DestinationPath=Dest1
MailReciever=Mail1
Mask=M1.*

[Rule2]
SourcePath==S2
DestinationPath=Dest2
::MailReciever=Mail2
Mask=2ED*.*

[Rule3]
SourcePath==S3
DestinationPath=Dest3
MailReciever=Mail3
Mask=3*.*

Dragokas · 14.04.2017, 17:34

Не возьмёт. Сделайте цикл и будет вам счастье.
Или так:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
@echo off
SetLocal EnableExtensions
 
set "inifile=settings.ini"
 
For /F "UseBackQ tokens=1-2 delims==" %%a in ("%inifile%") do (
  if /i "%%a"=="MailReciever" if "%%b" neq "" (set "Email1=%%b"& goto break)
)
:break
 
echo %Email1%
pause

@SergSkud · 14.04.2017, 18:10

Dragokas, благодарю за оперативный ответ.
Цель - не просто найти значение одного параметра, а перебрать все секции ини-файла(Rule1-RuleN), присвоив переменным значения из параметров, сделать, скажем, копирование source-> destinaition в соответствии с секцией, затем будем читать следующую секцию, по правилам из нее копируем следующие пути, файлы по маске, уведомим соответствующего абонента. И так до конца инишки(NumRule будем менять от 1 до N). Но если параметр в секции отсутствует, переменная пусть и останется пустой.

Bash
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
SetLocal set NumRule=1 call :ini.ReadKey "%inifile%" "[Rule%NumRule%]" 1 SourcePath 1 endlocal&set SourcePath=%ini.Value% SetLocal call :ini.ReadKey "%inifile%" "[Rule%NumRule%]" 1 DestinationPath 1 endlocal&set DestinationPath=%ini.Value% rem echo %DestinationPath% SetLocal call :ini.ReadKey "%inifile%" "[Rule%NumRule%]" 1 MailReciever 1 endlocal&set MailReciever=%ini.Value% SetLocal call :ini.ReadKey "%inifile%" "[Rule%NumRule%]" 1 Mask 1 endlocal&set Mask=%ini.Value% cls ECHO %SourcePath% %DestinationPath% %MailReciever% %Mask% pause Exit /B

Dragokas · 14.04.2017, 19:33

В чём сложность? Сделайте обычный цикл.

Windows Batch file
1
2
3
4
5
6
:while
set /a NumRule+=1
 
...
 
if %NumRule% LSS 10 goto while

(для правил 1-9)

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Pet61 0 / 0 / 0 Регистрация: 28.06.2013 Сообщений: 12

	Работа с INI-файлами 28.06.2013, 10:47. Показов 18194. Ответов 67 Метки нет (Все метки) Доброго всем дня! Столкнулся с такой проблемой - как прочитать данные из Ini файла, в котором есть повторяющиеся разделы? Буду признателен всем за оказанную помощь! 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	16.10.2013, 18:51
	Лучше прикрепите в виде файла к сообщению: Расширенный режим -> Кнопка со скрепкой. 0

@ThorHammer 7 / 0 / 0 Регистрация: 16.10.2013 Сообщений: 13
	17.10.2013, 07:45
	Anonymоus, спасибо! Ваш пример работает!!! UPD: покопался в интернетах немножко с другим запросом и нашел вот что: Добавил в начало батника chcp 65001 и все заработало без дополнительных ухищрений! 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	17.10.2013, 12:54
	ThorHammer, какая ОС? Куда конкретно подставляли? 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	17.10.2013, 13:16
	ThorHammer, просто подставляю и получаю: "The system cannot write to the specified device.". А можете, пожалуйста, скинуть архивом. У меня не получается. 0

@ThorHammer 7 / 0 / 0 Регистрация: 16.10.2013 Сообщений: 13
	20.10.2013, 13:46
	Dragokas, просто удалите все echo, он не работает с юникодом 0

@sov44 1781 / 763 / 130 Регистрация: 09.04.2011 Сообщений: 1,325
	10.07.2014, 12:40
	antony89, прикрипите два текстовых файла: как есть и как должно быть. Сторонние утилиты допустимы? 0

@Profi_GMan 4 / 4 / 4 Регистрация: 11.09.2016 Сообщений: 136 Записей в блоге: 5
	24.09.2016, 21:26
	Извините за тупость, выложите ini.rar только сделайте так что бы записывались в переменную а не выводилась на экран, пожалуйста!!! 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	24.09.2016, 22:11
	Что такое ini.rar ? Оно и так записывается в переменную. 0

@SergSkud 0 / 0 / 0 Регистрация: 14.04.2017 Сообщений: 14
	14.04.2017, 16:02
	Здравствуйте! А если в секции один из параметров отсутствует(или выключен), то одноименный параметр берется из следующей секции? И вместо Mail2 подтянется Mail3? SetLocal call :ini.ReadKey "%inifile%" "[Rule2]" 1 MailReciever 1 endlocal&set MailReciever=%ini.Value% settings.ini [Rule1] SourcePath=S1 DestinationPath=Dest1 MailReciever=Mail1 Mask=M1.* [Rule2] SourcePath==S2 DestinationPath=Dest2 ::MailReciever=Mail2 Mask=2ED. [Rule3] SourcePath==S3 DestinationPath=Dest3 MailReciever=Mail3 Mask=3. 0