:stars: Не правильно работает. :(
Не знаю что делать...
А мне такая программа пригодилась бы...
Доведёт может кто до ума?
Debug через ConsoleWrite сделаете, всё будет видно...
Должна удалять от ";" до @CRLF
Не знаю что делать...
Код:
$FileOpenDlg1 = FileOpenDialog("", @ScriptDir, "AutoIt v3 Script (*.au3)")
If $FileOpenDlg1 = "" Then Exit
$FileOpen1 = FileOpen($FileOpenDlg1)
$FileRead1 = FileRead($FileOpen1)
$StrInStr2 = 1
While 1
$StrInStr1 = StringInStr($FileRead1, ";", 0, 1, $StrInStr2)
$StrInStr2 = StringInStr($FileRead1, @CRLF, 0, 1, $StrInStr1)
If $StrInStr1 = 0 Then ExitLoop
If $StrInStr2 = 0 Then ExitLoop
$FileRead1 = StringReplace($FileRead1, StringMid($FileRead1, $StrInStr1, $StrInStr2-$StrInStr1), "")
WEnd
А мне такая программа пригодилась бы...
Доведёт может кто до ума?
Debug через ConsoleWrite сделаете, всё будет видно...
Должна удалять от ";" до @CRLF