Как удалить пустую строку из текста. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
