这样的字符串如何截取??

[jishibo]

我有这样的字符串adsfdf.wer234.useString.erewr2.tertwer我如何获得第二个点到第三个点之间的字符串useString???这些字符串都是可变得.我只要第二个点到第三个点之间的字符串,请问如何截取??

[hhjjhjhj]

s="adsfdf.wer234.useString.erewr2.tertwer"
a=split(a,".")
b=a(2)
msgbox b

[hhjjhjhj]

打错了一个字
s="adsfdf.wer234.useString.erewr2.tertwer"
a=split(s,".")
b=a(2)
msgbox b

[starsoulxp]

同上

[Andy__Huang]

dim ss as string
dim arr() as varient
ss="adsfdf.wer234.useString.erewr2.tertwer"
arr=split(ss,".") 'split是用“.”把字符串分組的函數

結果：
arr(0)=adsfdf
arr(1)=wer234
arr(2)=useString
arr(3)=erewr2
arr(4)=tertwer

你想要得到的是：arr(2)=useString

[zhujiechang]

split函数最简单实用.

[northwolves]

1.
Function getit(ByVal x As String) As String
getit = Split(x, ".")(2)
End Function

2.
Function getit(ByVal x As String) As String
getit = x
getit = Mid(getit, InStr(getit, ".") + 1)
getit = Mid(getit, InStr(getit, ".") + 1)
getit = Left(getit, InStr(getit, ".") - 1)
End Function

[lsftest]

呵呵。。。。钻牛角尖的人又来了：
Private Sub Command1_Click()
s = "adsfdf.wer234.useString.erewr2.tertwer"
MsgBox Mid(s, InStr(InStr(1, s, ".") + 1, s, ".") + 1, InStr(InStr(InStr(1, s, ".") + 1, s, ".") + 1, s, ".") - InStr(InStr(1, s, ".") + 1, s, ".") - 1)
End Sub

[helanshan]

TO 楼上..
代码要讲究简单有效..
看来你真是喜欢钻牛角尖啊.....^_^