Работа с 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)

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

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

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

Dragokas 18030 / 7733 / 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 18030 / 7733 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	17.10.2013, 12:54
	ThorHammer, какая ОС? Куда конкретно подставляли? 0

Dragokas 18030 / 7733 / 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 18030 / 7733 / 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