Как удалить пустую строку из текста. - VB

Узнай цену своей работы

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

Здравствуйте. Подскажите, пожалуйста, если в текстовом файле есть пустая строка, как сделать, что бы она не пропечатывалась?

Решение задачи: «Как удалить пустую строку из текста.»

textual
Листинг программы
Private Sub Form_Load()
Text1.Text = ""
Open "C:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
If Trim(a) <> "" Then
If Mid(a, 1, 1) = " " Then Text1.Text = Text1.Text & " "
Text1.Text = Text1.Text & Mid(a, 1, 11) & "  " & Mid(a, 31, 5) & vbCrLf
End If
Loop
Close #1
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 3.714 из 5
Похожие ответы