Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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