Private Function split_vb5(ByVal sstr As String, spstr As String) As Variant Dim starstr, lenstr, cur As Integer Dim backstr() As String starstr = InStr(sstr, spstr) cur = starstr + 1 lenstr = Len(sstr) ReDim backstr(0) backstr(0) = Left(sstr, starstr - 1) For x = starstr + 1 To lenstr If Mid(sstr, x, 1) = spstr Then ReDim Preserve backstr(UBound(backstr) + 1) backstr(UBound(backstr)) = Mid(sstr, cur, x - cur) cur = x + 1 Debug.Print backstr(UBound(backstr)) End If Next split_vb5 = backstr() End Function
''''******************************
Private Function InStrRev_vb5(ByVal start As Integer, ByVal str1 As String, ByVal str2 As String) str1 = revstr(str1) str2 = revstr(str2) start=Len(str1)-start InStrRev_vb5 = Len(str1) - InStr(start, str1, str2) End Function
Private Function revstr(str As String) As String Dim x, lenstr As Integer lenstr = Len(str) For x = lenstr To 1 Step -1 revstr = revstr & Mid(str, x, 1) Next End Function
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
