Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Содержимое последней строки

Автор: Vano-K 15.3.2009, 19:34

Надо получить из любого файла последнюю и (Х с конца) строки(длинна последней строки не более 40 символов), число строк - неизвестно.

Автор: Akina 15.3.2009, 23:13

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Vano-K 16.3.2009, 09:00

Akina, это не домашнее задание или курсовой, или ... - это мне надо, с учетом того, что число строк очень много...

Автор: Akina 16.3.2009, 09:57

Скажи спасибо, что твоя тема не в мусорке - хотя там ей самое место.
В поиск!

Автор: Dexx 16.3.2009, 15:34

Га-га

Автор: kapbepucm 16.3.2009, 16:46

Я надеюсь текстовой фаил в Windows smile

Код

Sub test()
  Const X As Long = 3
  Const MyFile As String = "путь\TextFile.txt"
  Dim I As Long
  Dim Buf As String * 1
  Dim LastString As String
  Open MyFile For Random As 1 Len = 1
  For I = FileLen(MyFile) To 1 Step -1
    Get 1, I, Buf
    If Asc(Buf) = 10 Then Exit For
    LastString = Buf & LastString
  Next I
  Close 1
  
  MsgBox "Последняя строка: " & LastString
  MsgBox CStr(X) & " символов с конца этой строки: " & Right(LastString, X)
End Sub

Добавлено через 1 минуту и 26 секунд
Akina, я не понял, почему

Цитата(Akina @ 16.3.2009, 09:57

)

Скажи спасибо, что твоя тема не в мусорке

Автор: Akina 16.3.2009, 16:55

Цитата(kapbepucm @ 16.3.2009, 17:46

)

я не понял, почему

Потому что тривиальный поиск даёт как минимум 4 темы, в которых задача считывания всего файла построчно решена - с полным кодом.

Автор: Vano-K 17.3.2009, 07:56

Спасибо