Как удалить из текстового файла последнюю строку - VB

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

как удалить из текстового файла последнюю строку и записать результат другой файл ?

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

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

                            txt1 = "H:\test\in"
txt2 = "H:\test\out"
Open txt1 For Input As 1
Open txt2 For Output As 2
  Do
    Line Input #1, s
    If EOF(1) Then Exit Do
    Print #2, s
  Loop
Close
                        

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

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

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