Помогите с отображением информации

[Alexei-Strelok]

В чем проблема-мне надо при загрузке формы чтобы в текстбоксе отоброжалось содержимое файла когда не известно сколько в файле строк?

[MIT]

Если проблема в чтении файла, количество строк в котором неизвестно, то EOF тебе явно поможет.

[Хакер]

А в файле вообще нет строк.
Фишка, да?

[MIT]

да?

Нет. Если речь идет про текстовый файл (а так, скорее всего, и есть), то строки там присутствуют, иначе как тогда возможно построчное чтение? Хотя согласен - любой файл можно рассматривать как бинарный, тогда ни о каких строках речь идти не может.

[JohnK]

Если предположить что связка Chr(13)&chr(10) является признаком конца строки, то строки существуют! Эврика!
А вот и код:

Код: Выделить всё

Dim FreeFileHandle As Long, tmpstr As String, k As Long
k = 1: text1.text=Empty :FreeFileHandle = FreeFile
Open App.Path & "\somefile.txt" For Input As #FreeFileHandle
    While Not EOF(FreeFileHandle)
      Input #FreeFileHandle, tmpstr
      If Len(tmpstr) > 0 Then
        text1.text= text1.text & tmpstr
        k = k + 1
     end if
    Wend
Close #FreeFileHandle


[iGrok]

Если предположить что связка Chr(13)&chr(10) является признаком конца строки, то строки существуют! Эврика!

Угу. А UNIX-формат(vbLf - Chr$(10)) и MAC-формат(vbCr - Chr$(13)) мы из религиозных соображений не рассматриваем? ,-)

Хотя согласен - любой файл можно рассматривать как бинарный, тогда ни о каких строках речь идти не может.

Я бы перефразировал так: "Некоторые файлы можно рассматривать, как текстовые.".
Правда, надо сначала договориться, что же считать разделителем строк.

Впрочем, учитывая, что это всё придирки, а автору темы нужно было просто отобразить в текстбоксе обычный виндовый текстовый файл, правильный ответ уже дал JohnK.. )

Впрочем, кажись не совсем правильный. Разделители строк там точно никуда не исчезнут? Сомнения есть, а проверять влом.

Я обычно делаю так:

Код: Выделить всё

Dim lFHandle as Long, tmpStr as String
lFHandle = FreeFile
Open "filename" For Binary as lFHandle
  tmpStr = Space$(LOF(lFHandle))
  Get #lFHandle, , tmpStr
Close #lFHandle
text1.text = tmpStr


[Хакер]

Код: Выделить всё

Dim FreeFileHandle As Long, tmpstr As String, k As Long
k = 1: text1.text=Empty :FreeFileHandle = FreeFile
Open App.Path & "\somefile.txt" For Input As #FreeFileHandle
    While Not EOF(FreeFileHandle)
      Input #FreeFileHandle, tmpstr
      If Len(tmpstr) > 0 Then
        text1.text= text1.text & tmpstr
        k = k + 1
     end if
    Wend
Close #FreeFileHandle


Никогда не понимал людей, рвущих фотографии, а потом долго и аккуратно эти фотографии склеивающих.

[JohnK]

А что не так? Автор хотел посчитать кол-во строк, насколько я понял.
А так можно считать в одну строку и присвоить textbox' у

[Хакер]

А что не так?

А разве не понятно?
Какой смысл заставлять VB читать файл и разбивать его на строчки, обрабатывая каждый символ, чтобы потом из этих кусочков опять склеить то, что было изначально?

Если можно разом прочитать файл? И посчитать? Не разрезая и склеивая впустую?

[JohnK]

Делал с учетом того, что человек будет парсить строки.

[alibek]

Никогда не понимал людей, рвущих фотографии, а потом долго и аккуратно эти фотографии склеивающих.

Экономия памяти. Отображение прогресса.

[Хакер]

Экономия памяти.

А она в чём? Я не вижу никакой экономии. В конечном счёте объём занятой памяти будет таким же, как если бы всё содержимое было прочитано разом. Вот если бы прочитать файл в байтовый массив — экономия в два раза (была бы).
А сейчай её не только нет, а есть трата времени на выделение строчечек, освобождение, конкатенацию с возможным перевыделением памяти под строку.

Отображение прогресса.

Возможно. Но это некачественное отображение прогресса.

[alibek]

А она в чём? Я не вижу никакой экономии.

В конвейерной обработке она есть.
Например, считывание из одного файла и вывод в другой файл строк, соответствующих определенному шаблону.

[Хакер]

Это другой случай. Фраза «с фотографиями» относилась к отцитированному кода и к остальным случаям, когда файл разрывают на части, чтобы потом склеить и получить ровно таким, каким он и был изначально.

[JohnK]

Дискуссия некуда не приводящая. В конечном счете, все зависит от конкретной задачи.
А форматировать\парсить строки прежде чем вывести их в textbox, по-моему, логично. Да и какой-никакой прогрессбар тоже пригодится, особенно если файл больших размеров.

[Williams]

Да и какой-никакой прогрессбар тоже пригодится, особенно если файл больших размеров.

Ага. Блокноту этой фичи не хватает

[JohnK]

Блокноту много чего не хватает.

[Williams]

:lol: Блокноту много чего не хватает.

Вот если много чего повнедрять, это уже будет не блокнот, а хз знает что. Но несколько функций все же жизненно необходимы.

[JohnK]

А зачем изобретать велосипед? Notepad++

[Хакер]

Не разводите оффтопик.