• Anna
  • Восстановленный участник
  • На форуме с 23 июля 2004г.
  • Сообщений: 5
  • Спасибо: 0

Тема: Перенос строки

Есть файл, нужно из него в TextBox1 перенести все содержимое как есть. Все считывается и выводится, но вот почему-то вместо "Реального" переноса строки - выводятся "непечатаемые символы" ( |P - "Типа" перенос строки ). Как с этим боротся???  Уже даже соображений никаких неосталось....
Помогит ламеру... :)

  • На форуме с 21 июня 2004г.
  • Сообщений: 31
  • Спасибо: 0

Re: Перенос строки

Неплохо было бы привести кусок кода, где идёт чтение.

  • Anna
  • Восстановленный участник
  • На форуме с 23 июля 2004г.
  • Сообщений: 5
  • Спасибо: 0

Re: Перенос строки

Sub CommandButton1_Click ()
Dim LINES_file(999) As String
Dim LINES_ As String
Dim i As Integer
i = 0
Open "E:\ABC.txt" For Input As #1
Do Until (EOF(1) = True)
Input #1, LINES_file(i = i + 1)
TextBox1.Text = CStr(TextBox1.Text & Chr(13) & LINES_file(i))
Loop
Close #1
End Sub

это один из вариантов - могу привести все остальные.... но результат у них у всех один и тот же :(

  • На форуме с 21 июня 2004г.
  • Сообщений: 31
  • Спасибо: 0

Re: Перенос строки

Private Sub CommandButton2_Click()
Dim TextLine As String
  Open "e:\ABC.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, TextLine
    TextBox1.Value = TextBox1.Value & TextLine + Chr(13)
  Loop
  Close #1
End Sub

  • Anna
  • Восстановленный участник
  • На форуме с 23 июля 2004г.
  • Сообщений: 5
  • Спасибо: 0

Re: Перенос строки

ура... это я тормоз
TextBox1.MultiLine = "true"
забыла указать :)
все равно большое спасибо ...