Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Силыч вот, например убирает пробелы
Public Function MinusDoubleProb(s As String) As String Static I As Long, SO As String SO = s Do I = InStr(SO, " ") If I = 0 Then Exit Do SO = Mid(SO, 1, I) + Mid(SO, I + 2) Loop MinusDoubleProb = SO End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.