Что нового

Как переписать txt в ini построчно

Dk

Новичок
Сообщения
358
Репутация
2
Выходит только ini с одной строкой (перезаписывает), как сделать так что бы каждая новая строчка прочитанная в тхт была записанна в ini.

Код:
#Include <File.au3>
 #Include <Array.au3>
Global $d

$a=FileOpen("Stroki.txt",0)
$LastLine = _FileCountLines("STROKI.txt")
MsgBox(0,"",$LastLine)


for $d=0  to $LastLine Step + 1
$b=FileReadLine($a,$d)
;~  MsgBox(0,"",$b)
 Next

 for $d=0  to $LastLine Step + 1
 $e = IniWrite("STROKI.ini","","",$b)
 Next
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
В вашем скрипте много лишнего.
Код:
#Include <File.au3>

$LastLine = _FileCountLines("STROKI.txt")

For $i = 0  to $LastLine
	$sRead = FileReadLine("STROKI.txt" , $i)
	IniWrite("STROKI.ini","Section", "Stroka_" & $i, $sRead)
Next
 

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Re: Как переписать txt в ini

Dk
А так?
Код:
#Include <File.au3>
#Include <Array.au3>
Global $d

$a=FileOpen("Stroki.txt",0)
$LastLine = _FileCountLines("STROKI.txt")
MsgBox(0,"",$LastLine)

for $d=0  to $LastLine Step + 1
$b=FileReadLine($a,$d)
;~  MsgBox(0,"",$b)
$e = IniWrite("STROKI.ini","","",$b)
Next



Добавлено:
Сообщение автоматически объединено:

Medic84
ОК :smile:
 
Автор
D

Dk

Новичок
Сообщения
358
Репутация
2
СПАСИБО! ПОЛ дня мучeлся а оказывается так всё просто.

Вот на этом форуме всегда помогают
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
_Lexa98_
Вы скрипт то проверяли? :smile: Я без проверки вижу что все равно будет записана последняя строка. Догадайтесь почему?
Мало того, что в ini нельзя использовать пустые имена секций и пустые имена параметров.
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
_Lexa98_
Ну вот советую (даже не советую, а настоятельно рекомендую) выкладывать проверенные скрипты.
Dk
Я конечно понимаю, что Вы плохо говорите по русски, но не могли бы Вы проверять орфографию на спец. сайтах (в правилах есть парочка). А то уж больно глаз режет :smile:
 
Автор
D

Dk

Новичок
Сообщения
358
Репутация
2
А я думал проверочное слово мучЕние))))

Ок учту )
15 лет германии дают знать о себе
 

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Medic84
OffTopic:
Отмазка: "А у меня работает"
:smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Можно обойтись без цикла:

Код:
$sRead = StringRegExpReplace(FileRead('STROKI.txt'), '(\S)(\r?\n|$)', '\1=\2')

$hFile = FileOpen("STROKI.ini", 2)
FileWrite($hFile, "[Section]" & @CRLF & StringStripWS($sRead, 3))
FileClose($hFile)
 
Автор
D

Dk

Новичок
Сообщения
358
Репутация
2
Интерессная альтернатива, спасибо.


Добавлено:
Сообщение автоматически объединено:

Раз уж тема открыта
может кто подкажет как считывать ini что бы выводилась на msgox каждое "Value"

С обычным чтением у меня получается только номер строки или первое значение
:-[ :-[ :-[
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Dk
Предупреждение За нарушение общих правил (пункт В.4):
Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.


С уважением, ваш Модератор.
 
Верх