Напомните пожалуйста как это делается.

Sub DeleteStrLine(FileName as String, Stroka as String)
Dim StLine as String
Open FileName for Input As 1
Open FileName+" Temp Copy" for Output As 2
Do
Line Input #1, StLine
If StLine<>Stroka then Print #2, StLine
Loop Until (EOF(1))
Close
FileCopy FileName+" Temp Copy", FileName
Kill FileName+" Temp Copy"
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 18