Vba удаление файла
Автор DarkPROF задал вопрос в разделе Другие языки и технологии
Как удалить строку из файла (Visual Basic 6.0) и получил лучший ответ
Ответ от Алексей Смирнов[гуру]
Создайте новый проект. В модуль формы поместите следующий код (не забудьте правильно указать имена файлов) :
' СОБЫТИЕ: загрузка формы
Private Sub Form_Load()
' константы
Const FILE_NAME = "d: ext.txt" ' имя файла с текстом
Const FILE_TEMP = "d: mpfile.txt" ' имя временного файла
' переменные
Dim intIn As Integer ' номер входного файла
Dim intOut As Integer ' номер выходного файла
Dim strBuf As String ' буфер строки
Dim strS As String ' критерий
' установка критерия удаления
strS = "мама"
' открытие файла для чтения
intIn = FreeFile
Open FILE_NAME For Input As #intIn
' открытие файла для записи
intOut = FreeFile
Open FILE_TEMP For Output As #intOut
' чтение/запись строк
Do Until EOF(intIn)
' чтение строки
Line Input #intIn, strBuf
' запись строки, если она не равна критерию
If strBuf <> strS Then Print #intOut, strBuf
Loop
' закрытие файлов
Close #intOut
Close #intIn
' удаление и переименование
Kill FILE_NAME
Name FILE_TEMP As FILE_NAME
' закрытие формы
Unload Me
End Sub
Dim counter As Single
Dim m(10) As String
fn = FreeFile
'÷èòàåì
Open "file.txt" For Input As fn
Do Until EOF(fn)
Line Input #fn, res
m(counter) = res
Loop
Close fn
'ïèøåì
fn = FreeFile
Open "file1.txt" For Output As fn
For i = LBound(m) To UBound(m)
Print #fn, res
Next
Close fn