vb6에서 정규식으로 문자열을 찾자.

정규식이란 ━ 문자열에서 특정 문자열을 검색, 치환, 추출 하기 위한 패턴을 말한다.
정규식을 사용하기 위해서는 프로젝트 메뉴의 참조에서 Microsoft VBScript Regular Expressions 5.5을 추가하셔야 합니다.

예의 초기 이미지 입니다.

변경 버튼 누른 후에 원래 문자열에서 정규식 패턴에 일치하는 문자열을 대치 문자열로 변경하 이미지 입니다.

소스입니다
' 정규식 참조 링크 http://msdn.microsoft.com/en-us/library/1400241x(v=VS.85).aspx
Option Explicit ' 모든 변수는 선언되 뒤에 사용한다.

Private Sub cmdChangeString_Click()
    Dim regEx As RegExp
   
    If Len(txtRegularPattern.Text) = 0 Then Exit Sub ' 정규식 패턴
    If Len(txtSourceString.Text) = 0 Then Exit Sub ' 원래 문자열
    If Len(txtChangeString.Text) = 0 Then Exit Sub ' 대치 문자열
    Set regEx = New RegExp
    With regEx
        .Global = True ' 일치하는 횟수에 관계 없이
        .Pattern = Trim(txtRegularPattern.Text) ' 정규식 패턴
        .IgnoreCase = True ' 대소문자를 구분하지 않을 것이냐
        labDescStringValue.Caption = .Replace(txtSourceString.Text, txtChangeString.Text)
    End With
    Set regEx = Nothing
End Sub

Private Sub Form_Load() ' 폼의 메모리 로드시 발생
    txtRegularPattern.Text = "\[[a-z]\]" ' 정규식 패턴
    txtSourceString.Text = "테[a]트[b] 문[1]자[K]열 [a]입니다."
    txtChangeString.Text = "Test"
End Sub