Удалить из строки повторяющиеся символы и все пробелы - VBA
Формулировка задачи:
Вводится строка. Требуется удалить из нее повторяющиеся символы и все пробелы. Например, если было введено "abc cde def", то должно быть выведено "abcdef". Результат вывести в текстовый файл и на экран.
Решение задачи: «Удалить из строки повторяющиеся символы и все пробелы»
textual
Листинг программы
txt = "abc cde def" txt = Replace(txt, " ", "") For i = 1 To Len(txt) If InStr(1, Left(txt, i), Mid(txt, i, 1)) = i Then txt1 = txt1 & Mid(txt, i, 1) Next MsgBox txt1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д