救急!!!一个字符串格式为"...\..."我现在要取出"\"后面的字符串应该怎么办?

kurtcobain 2001-12-14 11:33:09
...全文
76 9 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
_1_ 2001-12-14
  • 打赏
  • 举报
回复
上面写错的 是:)
mid(str,instr(str,"\")+1)
_1_ 2001-12-14
  • 打赏
  • 举报
回复
mid(str,instr(str,"\")-1)
haogui0 2001-12-14
  • 打赏
  • 举报
回复
用right,和instr函数
假设字符串为str,
right(str,len(str)-instr(1,str,"\"))
mmzxg 2001-12-14
  • 打赏
  • 举报
回复
打错字,不是本办法,是笨。。。。。。。
Jneu 2001-12-14
  • 打赏
  • 举报
回复
'Dim intCount As Integer
'For intCount = Len(Pathname) To 1 Step -1
' If Mid(Pathname, intCount, 1) = "\" Then
' Exit For
' End If
'Next intCount
'StripPath = Mid(Pathname, intCount + 1, Len(Pathname) - intCount)
mmzxg 2001-12-14
  • 打赏
  • 举报
回复
dim a as integer
dim str as string
str=....\......
a=instr(0,str,"\")+1
qqq=mid(str,a,len(str)-a)
前提是STR有‘\',需要加上判断条件才完整
这是一个本办法
fraser01 2001-12-14
  • 打赏
  • 举报
回复
用instr,也可以用Split
a=instr(1,字符串,"\")
得到\的位置
b=left(字符串,len(字符串)+a+1)
得到你字符串

a=split(字符串,"\")
得到按“\”断开的数组
foolishtiger 2001-12-14
  • 打赏
  • 举报
回复

Dim strTest As String

strTest = "c:\test.txt"

MsgBox Mid(strTest, InStr(1, strTest, "\") + 1)

yangzhaoyu 2001-12-14
  • 打赏
  • 举报
回复

Private Sub Command1_Click()
Dim strTest As String

strTest = "d:\test.txt"

MsgBox Right(strTest, Len(strTest) - InStr(1, strTest, "\"))

End Sub
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-14 11:33
社区公告
暂无公告