첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

[VB] 문자열 추출하기

VB 2015. 6. 9. 09:00

■ 문자열 추출하기 예제

----------------------------------------------------------------------------------------------------

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

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요