Помогите пожалуйста с текст боксом.

[igor74]

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

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

Private Sub Command1_Click()
Dim F As Long
Dim Stroka As String
Text6.Text = ""
CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt) Ôàéëû äàííûõ (*.dat)|*.txt;*.dat"
CommonDialog1.ShowOpen
F = FreeFile
Text5.Text = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F)
Line Input #F, Stroka
Text6.Text = Text6.Text & Stroka
Loop
Close #F
End Sub

Вот код. Чем можно исправить такое ?Я имею ввиду что текст должен выводится как Этот код.Построчно.А у меня вылезает.типа так------

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

Private Sub Command1_Click()Dim F As Long
Dim Stroka As StringText6.Text = ""CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt) Ôàéëû äàííûõ (*.dat)|*.txt;*.dat"CommonDialog1.ShowOpenF = FreeFileText5.Text = CommonDialog1.FileNameOpen CommonDialog1.FileName For Input As #FDo While Not EOF(F)Line Input #F, StrokaText6.Text = Text6.Text & StrokaLoopClose #FEnd Sub

[Хакер]

Ну ты сам так её склеиваешь:

Text6.Text = Text6.Text & Stroka

Допустим, первый раз прочиталось «ААА», а второй раз «БББ». После склеивания будет «АААБББ». Что написал — то и получил.

[igor74]

Подскажите как исправить.Пожалуйста

[Viper]

Перенос строк спасет гиганта мысли. Смотреть в сторону константы vbCrLf,

[Sam777e]

Волшебное слово [ "Пожалуйста"] . . .

Text6.Text = Text6.Text & Stroka & vbCrLf

[Хакер]

Идиологически правильнее тогде уж vbNewLine.

Но вообще такой способ выращивать строку — идиотизм, и пахнет алгоритмом маляра Шлемеля.

[Qwertiy]

Text6.Text = Text6.Text & Stroka & vbCrLf

А может, всё-таки, Text6.Text = Text6.Text & vbCRLf & Stroka?

[Хакер]

А может, всё-таки, Text6.Text = Text6.Text & vbCRLf & Stroka?

Тогда текст будет начинаться с пустой строки.

[Qwertiy]

Тогда текст будет начинаться с пустой строки.

Да, не подумал, что он сначала пустой...

[Sam777e]

Согласен, vbNewLine - лучше.
А еще лучше File System Object и читать весь файл в одну строку.

Но, судя по вопросу и волшебному слову, уровень автора вопроса == начинающий. Вот чтобы он не путался с двумя константами [ 1-ая указана Viper 'ом ] я дал свой текст.

Для уважаемого мной Qwertiy : наши способы одинаково плохи / хороши; я знал, что в одном случае будет пустота в начале, а в другом - в конце. Просто не хотел усложнять автору "алгоритм".

[coderx]

Согласен, vbNewLine - лучше.
А еще лучше File System Object и читать весь файл в одну строку.

Без File System Object'a тоже можно читать вес текст, простыми способами.

[Qwertiy]

Для уважаемого мной Qwertiy : наши способы одинаково плохи / хороши; я знал, что в одном случае будет пустота в начале, а в другом - в конце. Просто не хотел усложнять автору "алгоритм".

Не, я действительно ошибся - не подумал, что строка пустая. Твой лучше. В качестве оптимизации можно скобки поставить: Text6.Text = Text6.Text & (Stroka & vbCrLf), но читать всё целиком, естественно, лучше.

[Sam777e]

Без File System Object'a тоже можно читать весь текст, простыми способами

Можно, но как справедливо

Идеологически правильнее

( имхо ) применять FSO - всё будет очень прозрачно и ясно.

[Хакер]

( имхо ) применять FSO - всё будет очень прозрачно и ясно.

И что это за идеология, в соответствии с которой внешний компонент, предоставляющий сервисы по работе с файлами, стоит использовать вместо встроенных средств языка, предоставляющих такие средства?

[coderx]

Можно, но как справедливо идеологически правильнее ( имхо ) применять FSO - всё будет очень прозрачно и ясно.

Сравниваем:

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

  Dim fso As FileSystemObject, ts As TextStream, Buffer As String
  Set ts = fso.OpenTextFile("c:\1.txt", ForReading)
  Buffer = ts.ReadAll
  ts.Close
  Set fso = Nothing

и

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

  Dim h As Integer, Buffer As String
  h = FreeFile
  Open "c:\1.txt" For Input As #h
  Buffer = Input$(LOF(h), h)
  Close #h

Лишние переменные-объекты и ещё лишний DLL, который нужно всегда таскать с собой.
И я не думаю, что у него будет такой скорость с объектами.

[Sirik]

если будет большой файл, тормоза буду зверские