Перейти на последнюю строку в файле - VB

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

Есть файл в котором несколько строк...как мне перейти на последнюю строку для работы именно с ней(например поиска в ней подстроки)?

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

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

                            Private Function ПоследняяСтрока(FileName As String) As String
On Error Resume Next
    Dim FS As New FileSystemObject
    Dim TS As TextStream
    Set FS = New FileSystemObject
    
    Set TS = FS.OpenTextFile(FileName)
    
    Do While TS.AtEndOfStream = False
    
        ПоследняяСтрока = TS.ReadLine
        
    Loop
    
    Set TS = Nothing
    Set FS = Nothing
End Function
                        

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

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

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