Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Amer Спасибо.
Function FindAndReplace(ByVal strInString As String, _ strFindString As String, _ strReplaceString As String) As String Dim intPtr As Integer If Len(strFindString) > 0 Then Do intPtr = InStr(strInString, strFindString) If intPtr > 0 Then FindAndReplace = FindAndReplace & left(strInString, intPtr - 1) & _ strReplaceString strInString = Mid(strInString, intPtr + Len(strFindString)) End If Loop While intPtr > 0 End If FindAndReplace = FindAndReplace & strInString End Function
Function Replace(ByVal Valuein As String, ByVal WhatToReplace As _ String, ByVal Replacevalue As String) As String Dim Temp as String, P As Long Temp = Valuein P = Instr(Temp, WhatToReplace) Do While P > 0 Temp=Left(Temp, P-1) & Replacevalue & _ Mid(Temp, P+Len(WhatToReplace)) P = InStr(P + Len(Replacevalue), Temp, WhatToReplace, 1) Loop Replace = Temp End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.