关于字符分析的一个小问题！

Question

用instr和mid这两个函数就可以！
dim str as string
dim i as integer
i=instr(1,"202.194.75.246/pub/mp3","/")
str=mid(,"202.194.75.246/pub/mp3",1,i-1)
用这种方法即可！

Answer 1

Dim pos As Integer
str1 = "202.194.75.246/pub/mp3/luo.mp3"pos = InStrRev(str1, "/")
MsgBox "IP/DoMain=" & Left(str1, InStr(str1, "/") - 1)
MsgBox "Path=" & Mid(str1, InStr(str1, "/") + 1, pos)
MsgBox "File=" & Right(str1, Len(str1) - pos)

Answer 2

dim strs() as string
dim str1 as string
str1 = "202.194.75.246/pub/mp3/luo.mp3"
strs=split(str1,"/",-1,vbTextCompare)
for i=0 to ubound(strs)
debug.print strs(i)
next