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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

1.
Function getit(ByVal x As String) As String
getit = Split(x, ".")(2)
End Function2.
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

Answer 5

呵呵。钻牛角尖的人又来了：
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