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