첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.

[VB] 문자열 추출하기

VB 2015. 6. 9. 09:00
728x90
반응형
728x170

▶ 문자열 추출하기 예제

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
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요