7,763
社区成员
发帖
与我相关
我的任务
分享怎么提取字符串内字符？
我想提取一种固定模式的字符串内的字符，如下：
abc.dac12.ead
只提取两个点之间的字符要怎么能实现？谢谢大家了~！
abc.dac12.ead
只提取两个点之间的字符要怎么能实现？谢谢大家了~！
...全文
请发表友善的回复…
发表回复
BlueBeer 2004-09-08
- 打赏
- 举报
哈哈，楼上的就是强悍
northwolves 2004-09-08
- 打赏
- 举报
Split("abc.dac12.ead", ".")(1)
BlueBeer 2004-09-08
- 打赏
- 举报
x="abc.dac12.ead"
mid(x,1,instr(x,"."))=space(len(x))
mid(x,instrrev(x,"."))=space(len(x))
x=trim(x)
?x
dac12
mid(x,1,instr(x,"."))=space(len(x))
mid(x,instrrev(x,"."))=space(len(x))
x=trim(x)
?x
dac12
tztz520 2004-09-08
- 打赏
- 举报
Private Sub Command1_Click()
Dim a As String
Dim i As Long, ii As Long
a = "abc.dac12.ead"
i = InStr(a, ".")
ii = InStr(i + 1, a, ".")
MsgBox Mid(a, i + 1, ii - i - 1)
End Sub
Dim a As String
Dim i As Long, ii As Long
a = "abc.dac12.ead"
i = InStr(a, ".")
ii = InStr(i + 1, a, ".")
MsgBox Mid(a, i + 1, ii - i - 1)
End Sub
qingoodrar 2004-09-08
- 打赏
- 举报
Dim iPos As Integer
Dim iPos1 As Integer
Dim sTmp As String
sTmp = "abc.dac11112.ead"
iPos = InStr(1, sTmp, ".")
iPos1 = InStrRev(sTmp, ".")
sTmp = Mid(sTmp, iPos + 1, iPos1 - iPos - 1)
Debug.Print sTmp
Dim iPos1 As Integer
Dim sTmp As String
sTmp = "abc.dac11112.ead"
iPos = InStr(1, sTmp, ".")
iPos1 = InStrRev(sTmp, ".")
sTmp = Mid(sTmp, iPos + 1, iPos1 - iPos - 1)
Debug.Print sTmp
