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

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)

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