Убрать лишние пробелы - VB
Формулировка задачи:
Функция Trim убирает лишние пробелы, но у меня что-то не идет. Подскажите как исправить.
Решение задачи: «Убрать лишние пробелы»
textual
Листинг программы
fio = InputBox("Введите предложение", "", "Николай Петрович Коваль")
Do While InStr(1, fio, " ") > 0
fio = Replace(fio, " ", " ")
Loop
F = Split(fio)
f4 = Left(F(0), 1) & ". " & Left(F(1), 1) & ". " & F(2)
MsgBox f4
For i = LBound(F) To UBound(F)
MsgBox Trim(F(i))
Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д