Удаление текста из файла и запиь нового

[wwe]

как сделать так чтобы Autoit например находил файл по заданому ранее параметру и записывал в него те строки текста которые я в Autoit впишу а остальной текст который был в файле удалял

мне нужно чтобы я например указав скрипту на файл тхт в котором например содержится три строчки текста и мне нужно чтобы эти три строчки были стерты и вписана одна новая

мне не нужен скрипт поиска, мне нужен скрипт который будет удалять текст в текстовам файле (не текстовый файл а именно текст в файле) и после удаления текста будет вписывать туда уже свой заданый текст

[Creat0R]

Предупреждение за нарушение правил форума,

пункт 2.7

:




Цитата:



В заголовке темы обязательно обозначайте название предмета, которого касается вопрос, а в теле сообщения максимально подробно опишите проблему (приведите аппаратную/программную конфигурацию, а также изложите ситуацию, в которой возникает проблема).



Переименуйте пожалуйста тему.

[madmasles]

wwe,

Примерно так у меня получилось:



Код:

Код: Выделить всё

$sFile = "MyFile.txt"
$aReturn = _FileSearch(@HomeDrive, $sFile)
If $aReturn[0] = 0 Then
    MsgBox(0, "Тест", "Файл не найден.", 5)
    Exit
EndIf
$value = InputBox("Тест", "Введите что-нибудь")
If @error = 1 Then Exit
If $value = "" Then
    MsgBox(0, "Тест", "Вы ничего не ввели")
    Exit
EndIf
$hFile = FileOpen($aReturn[1], 2)
FileWriteLine($aReturn[1], $value)
FileClose($hFile)
Func _FileSearch($sPath, $sFileMask)
    Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
    Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)
    While 1
        $sOut &= StdoutRead($hDir, False, True)
        If @error Then ExitLoop
    WEnd
    $aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
    If @error Then Return SetError(1)
    $aOut[0] = UBound($aOut) - 1
    Return $aOut
EndFunc   ;==>_FileSearch

[wwe]

madmasles, это не то Вы меня не поняли!

мне нужен не поисковый скрипт, а скрипт который именно будет удалять текст из текстового файла и вписывать туда уже иной

[madmasles]

Цитата wwe:



как сделать так чтобы Autoit например находил файл по заданому ранее параметру

Удаление текста из файла и запиь нового

Цитата wwe:



мне не нужен скрипт поиска,

Удаление текста из файла и запиь нового

wwe,

Вы определитесь, что Вам конкретно нужно

[Creat0R]

Цитата wwe:



скрипт который именно будет удалять текст из текстового файла и вписывать туда уже иной

Удаление текста из файла и запиь нового

См. _ReplaceStringInFile в справке.

[madmasles]

Код:

Код: Выделить всё

$message = "Выберите текстовый файл для редактирования"
$var = FileOpenDialog($message, @DesktopDir & "\", "Текст (*.txt)", 1)
If $var = "" Then
    MsgBox(0, "Тест", "Вы ничего не выбрали.", 5)
    Exit
EndIf
$value = InputBox("Тест", "Введите что-нибудь")
If @error = 1 Then Exit
If $value = "" Then
    MsgBox(0, "Тест", "Вы ничего не ввели.", 5)
    Exit
EndIf
$hFile = FileOpen($var, 2)
FileWriteLine($var, $value)
FileClose($hFile)

Скрипт удалит весь текст в выбранном файле и заменит его на введенный.