Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Силblч
Function rgxpnum(LookIn$) Dim RegX As Object, rs$ Set RegX = CreateObject("VBScript.RegExp") With RegX .Pattern = "[^0-9]" .Global = True .IgnoreCase = Not MatchCase rgxpnum = .Replace(LookIn, "") End With End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.