이 문자의 연속 부분을 지정한 다른 임의의 문자로 바꿉니다

4334 단어 문자
문자를 지정하고 문자의 연속 부분 수를 지정한 문자로 바꿉니다.
호출된 경우: RegexReplace("ABC%%%%%%DE%%%FGHIJK%", "%", "*")
결과: ABC*DE*FGHIJK*
'  :%%%%exe%%%%%%%.dll

'  :%exe%.dll
'by Gary 20130308
Private Function RegexReplace(ByVal Expression As String, Optional ByVal Find As Variant = "%", Optional ByVal Replace As Variant = "%") As String On Error GoTo ErrHandler Dim rtStr As String, arrExpression() As String Dim I As Integer If Len(Trim(Expression)) <= 0 Then Exit Function arrExpression() = Split(Expression, Find) ' : Expression :%exe%%txt%%% :%exe%txt% ' Find , , 。 If Left(Expression, 1) = Find Then rtStr = Find For I = 0 To UBound(arrExpression) If arrExpression(I) <> "" Then If I = UBound(arrExpression) Then rtStr = rtStr & arrExpression(I) Else rtStr = rtStr & arrExpression(I) & Find End If End If Next Erase arrExpression() RegexReplace = rtStr Exit Function ErrHandler: RegexReplace = "" End Function

좋은 웹페이지 즐겨찾기