7,789
社区成员
发帖
与我相关
我的任务
分享如何取得text1.text中的字符"."?
小生想取得text1.text中的字符
如：asdfasdf.asdfasd.asdfasd.asdfasd
我只想取得最右边的"."以及之后的字符
如何取得？
如：asdfasdf.asdfasd.asdfasd.asdfasd
我只想取得最右边的"."以及之后的字符
如何取得？
...全文
请发表友善的回复…
发表回复
Alsen 2002-02-20
- 打赏
- 举报
mid
ferrytang 2002-02-20
- 打赏
- 举报
Dim i As Integer
Dim str As String
str = "asdfasdf.asdfasd.asdfasd.asdfasd"
i = InStr(1, str, ".", vbTextCompare)
If i > 0 Then
str = Mid(str, i + 1)
MsgBox str
End If
Dim str As String
str = "asdfasdf.asdfasd.asdfasd.asdfasd"
i = InStr(1, str, ".", vbTextCompare)
If i > 0 Then
str = Mid(str, i + 1)
MsgBox str
End If
shawls 2002-02-20
- 打赏
- 举报
我来晚了，混分，
lihanbing 2002-02-20
- 打赏
- 举报
最右边的用InStrRev比较好
fuxc 2002-02-20
- 打赏
- 举报
Private Sub Text1_Click()
MsgBox Right(Text1, Len(Text1) - InStrRev(Text1, "."))
End Sub
MsgBox Right(Text1, Len(Text1) - InStrRev(Text1, "."))
End Sub
cy_nwau 2002-02-20
- 打赏
- 举报
来迟了一步。
dbcontrols 2002-02-20
- 打赏
- 举报
用Instr判断位置,用Mid截取
