Записать в новый файл те строки исходного текстового файла, которые нельзя преобразовать в число - VB

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

Записать в новый файл те строки исходного текстового файла, которые нельзя преобразовать в число.

Код к задаче: «Записать в новый файл те строки исходного текстового файла, которые нельзя преобразовать в число - VB»

textual
Private Sub Form_Load()
    Dim fNumIn As Integer, fNumOut As Integer, _
        FileIn As String, FileOut As String
    Dim Txt As String, Value As Long, Sum As Long
    FileIn = "D:\Test.txt"
    FileOut = "D:\TestOut.txt"
    fNumIn = FreeFile
    fNumOut = fNumIn + 1
    Open FileIn For Input As fNumIn
    Open FileOut For Output As fNumOut
    Do Until EOF(fNumIn)
        Line Input #fNumIn, Txt
        If Not IsNumeric(Txt) Then Print #fNumOut, Txt
    Loop
    Close fNumIn
    Close fNumOut
End Sub

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


СОХРАНИТЬ ССЫЛКУ