Удалить из файла третью строку - VB

Формулировка задачи:

Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл.

Решение задачи: «Удалить из файла третью строку»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
Dim strText As String
Dim i As Integer
 
 
Open App.Path & "\" & "1.txt" For Input As #1
Open App.Path & "\" & "2.txt" For Output As #2
  
  Do Until EOF(1)
    Line Input #1, strText
    i = i + 1
    If i <> 3 Then Print #2, strText
    Loop
    
Close #1
Close #2
 
End Sub
                        

Оцени полезность:

5 голосов , оценка 3.6 из 5

Похожие ответы