专注于互联网--专注于架构

instrrev:VB5里面实现VB6的InstrRev()和Split()一样的替换函数

　　Private Function split_vb5(ByVal sstr As String, spstr As String) As VariantDim starstr, lenstr, cur As IntegerDim backstr As Stringstarstr = InStr(sstr, spstr)cur = starstr + 1lenstr = Len(sstr)ReDim backstr(0)backstr(0) = Left(sstr, starstr - 1)For x = starstr + 1 To lenstr　　 [阅读全文] [PDF]