[VB] 문자열 추출하기

▶ 문자열 추출하기 예제

Print ExtractString("[ID] id1 [Password] password1", "[ID]", "[")

 

▶ 문자열 추출하기

' 문자열 추출하기
' strSource  : 소스 문자열
' strSearch1 : 검색 문자열 1
' strSearch2 : 검색 문자열 2
Public Function ExtractString(strSource As String, strSearch1 As String, strSearch2 As String)

    Dim nSearch1 As Integer
    Dim nSearch2 As Integer

    If Not InStr(1, strSource, strSearch1) = 0 Then

        nSearch1 = InStr(1, strSource, strSearch1) + Len(strSearch1)

        nSearch2 = InStr(nSearch1, strSource, strSearch2)

        ExtractString = Mid(strSource, nSearch1, nSearch2 - nSearch1)

     Else

         ExtractString = ""

    End If

End Function