Function getStringBetween(str, sstart, send)
    PosStart = InStr(str, sstart)
    str_temp = Mid(str, PosStart, Len(str))
    PosEnd = InStr(str_temp, send) + PosStart - 1
    If (PosStart > 0) And (PosEnd > 0) Then
        getStringBetween = Mid(str, PosStart+Len(sstart), PosEnd-PosStart-Len(sstart))
    Else
        getStringBetween = ""
    End If
End Function

예,
text = "<k>kkkkkkkkkkkkkkk</k><t>tttttttttttttttttt</t><font color=#000000>안녕하세요</font>"

일때,

<k></k> 사이의 것 뽑기 : getStringBetween(text, "<k>", "</k>")
font color를 뽑기 : getStringBetween(text, "<font color=", ">") --> 종료문자열에 반드시 가장 가까운 것을 넣어야한다.
저작자 표시 비영리 변경 금지
신고
Posted by 잠수콩