Доброго времени суток! Колллеги, предо мной возникла проблема: существует несколько INI с одинаковыми названиями(например, cash.ini), которые расположены по разным директориям(например, C:\vol1\cassa1, C:\vol1\cassa2, C:\vol1\cassa3) с ключом ipaddr = 127 0 0 1. Как считать данные из всех INI и записать в единый INI-файл(например, ключ cassa1 = 127.0.0.1, cassa2 = 127.0.0.2, cassa3 = 127.0.0.3) с преобразованием ключа из ipaddr = 127 0 0 1 в ipaddr = 127.0.0.1?
[Данные, строки] Преобразование данных из нескольких разных INI в один
- Автор темы AtoS
- Дата начала
- Сообщения
- 7,790
- Репутация
- 2,322
AtoS
У меня так получилось:
У меня так получилось:
Код:
#include <File.au3>
$fileNew = @ScriptDir & "\Newcash.ini"
$path = @HomeDrive & "\vol1"
$file = "cash.ini"
$aPath = _FileListToArray($path, "*", 2)
For $i = 1 To UBound($aPath) - 1
If FileExists($path & "\" & $aPath[$i] & "\" & $file) Then
$var = IniRead($path & "\" & $aPath[$i] & "\" & $file, "section", "ipaddr", "")
If $var <> "" Then
$var = StringReplace($var, " ", ".")
$var = StringReplace($var, StringLen($var), StringRight($aPath[$i], 1))
IniWriteSection($fileNew, $aPath[$i], "ipaddr=" & $var)
EndIf
EndIf
NextСпасибо за помощь, но в вашем варианте была одна маленькая проблема - ваш скрипт преобразоввывал Ip-адрес с 192.168.1.1 в 192.168.1.2, я это подправил.madmasles сказал(а):
Код:
#include <File.au3>
$fileNew = @ScriptDir & "\Newcash.ini"
$path = "D:\test\AutoITTest\For KKM"
$file = "protocol.ini"
$aPath = _FileListToArray($path, "*", 2)
For $i = 1 To UBound($aPath) - 1
If FileExists($path & "\" & $aPath[$i] & "\" & $file) Then
$var1 = IniRead($path & "\" & $aPath[$i] & "\" & $file, "tcpip", "ipaddr0", "")
If $var1 <> "" Then
$var2 = StringReplace($var1, " ", ".")
$var3 = StringReplace($var2,$var1, $aPath[$i])
IniWriteSection($fileNew, $aPath[$i], "ipaddr=" & $var3)
EndIf
EndIf
NextБлагодарю за неоценимую помощь!
