[решено] Как заменить строку [27] в файле?

[semiono]

Как заменить строку [27] в файле?
Все другие строки должны сохраниться.

[proxy]

1 _ReplaceStringInFile
2 Написать свою функцию замены: прочиать файл > найти строку > заменить > записать файл с заменой содержимого

[semiono]

А нельзя номер строки [25] конкретно? Без Find!

[proxy]

пример:

#region: - Option
Opt('MustDeclareVars', 1)
Opt('TrayIconDebug', 1)
Opt('TrayIconHide', 0)
Opt('WinTitleMatchMode', 2)
#endregion

HotKeySet('{ESC}', '_Pro_Exit')

Local $sFilePath = 'c:\test.txt'
Local $iReplaceStringInFileByindex = _ReplaceStringInFileByindex($sFilePath, 4, '<new текст>')

If $iReplaceStringInFileByindex == -1 Then
MsgBox(48, 'Внимание', 'Ошибка открытия файла' & @CRLF & 'Код ошибки: ' & $iReplaceStringInFileByindex)
Else
MsgBox(64, 'Результат замены', 'Колличество замен: ' & $iReplaceStringInFileByindex)
ShellExecute($sFilePath)
EndIf

Func _ReplaceStringInFileByindex($sFilePath, $iIndexString, $sReplaceString)
Local $hFile = FileOpen($sFilePath, 0)
If $hFile == -1 Then
;~ MsgBox(48, 'Внимание', 'Ошибка открытия файла' & @CRLF & 'Код ошибки: ' & $hFile)
Return -1
EndIf

Local $i = 1
Local $iCountReplace = 0
Local $sFileString, $sFileText

While 1
$sFileString = FileReadLine($hFile)
If @error == -1 Then ExitLoop

If $i == $iIndexString Then
$sFileText &= $sReplaceString & @CRLF
$iCountReplace += 1
Else
$sFileText &= $sFileString & @CRLF
EndIf

$i += 1
Wend

FileClose($hFile)

If NOT $iCountReplace Then Return 0

If StringRight($sFileText, 2) == @CRLF Then $sFileText = StringTrimRight($sFileText, 2)

$hFile = FileOpen($sFilePath, 2)
FileWrite($hFile, $sFileText)
FileClose($hFile)

Return $iCountReplace
EndFunc

Func _Pro_Exit()
Exit
EndFunc

[semiono]

Стоп-стоп-стоп! :)
Зачем так много кода на такое простое действие :)
Я тут на самом деле в тупик зашёл...

Дело в том, что вот кусок файла "test"
[Main]
Left=278
Top=192
Width=596
Height=434
....
И по сути надо заменить строку Top=192, но всё дело в том, что значение может быть любым!
То-есть Top=192 Top=193 Top=190 итп. Неизвестно изначально! Top=???
А как тогда быть?
:(

Нет ли каких масок типа *.* или ? для кода? Чтоб искать по слову "Top= плюс+AnySymbols"

[proxy]

Нет ли каких масок типа *.* или ? для кода? Чтоб искать по слову "Top= плюс+AnySymbols"

а так:

$iNewVal = 190
_ReplaceStringInFileByindex($sFilePath, 3, 'Top=' & $iNewVal)

$iNewVal = 191
_ReplaceStringInFileByindex($sFilePath, 3, 'Top=' & $iNewVal)

и т.д.

Стоп-стоп-стоп!
Зачем так много кода на такое простое действие
Буду благодарен если оптимизируите, а это проще не додумался ))

Нет ли каких масок типа *.* или ? для кода? »
оооо, да - есть!!!
И самое лучшее:

StringRegExp
StringRegExpReplace

[Creat0R]

Можно ещё так:

#include <File.au3>

_FileReplaceLine("Test.txt", 25, "New Line")

Func _FileReplaceLine($sFile, $iLine, $sNewLineStr)
Local $aRead_File

If Not _FileReadToArray($sFile, $aRead_File) Then Return SetError(1, 0, 0)

For $i = 1 To $aRead_File[0]
If $i = $iLine Then
$aRead_File[$i] = $sNewLineStr
_FileWriteFromArray($sFile, $aRead_File, 1)
Return 1
EndIf
Next

Return SetError(2, 0, 0)
EndFunc

по сути надо заменить строку Top=192
Заменить или значение только поменять? В последнем случае см. функцию IniWrite().

[semiono]

Ура! New Line вписалось!

А ето ещё лучше!!!
IniWrite(@ScriptDir & "\appmain.ini","Main","Top","191")
Вот то что и хотелось, одной строкой :)
Хотя, спасибо все навороты тоже были интересными, пригодиться потом!

offtop: У меня калькулятор каждый раз сдвигается игнорируя таск бар наверху, я решил ему Loader приписать,
чтоб он затирал его INI и возвращал на место инициализации, раз уж производители криво зделали :)
Видимо он отсчитывает X:Y от края экрана, и переписывает инифайл невзирая на то что нормальные проги,
считают от таскбара...
Блин, инифайлы - это вообще очень хорошо! Весьма часто нужно такое! Я и не знал что такое имеется в AutoIt !

[proxy]

а том, что у вас тсруктура файла обычного INI файла - с самого начала стоило начинать!
.................)

+ для этих целей (у меня просто много таких нарушителей программ)
есть хорошая и очень легкая утилиа (http://sourceforge.net/project/downloading.php?group_id=197600&use_mirror=garr&filename=winxmove-1.1.zip)