怎样从"C:\Documents and Settings\天天\桌面\放大镜.exe"中提取“放大镜.exe"

Question

哪位高手指点下
在VB中
怎样从"C:\Documents and Settings\天天\桌面\放大镜.exe"中提取“放大镜.exe"

Answer 1

如果是delphi的话，用extractfilename就行了。
vb的话,可以用instr循环查找到最后一个"\",然后用Mid截取后面部分就行了。

Answer 2

正则表达式更简单~下面是我自己写的代码 如果是ASP语言哈。。其他语言原理一样
'正则查询字符串获取匹配的字符并且返回查找到的字符串

Public Function RegExpCheck(patrn,strng)
Dim regEx ,match,matches,RetStr ' 建立变量。
Set regEx = New RegExp ' 建立规范表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true ' 设置是否区分字母的大小写。
regEx.Global = True ' 设置全程性质。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
RetStr = RetStr &"||"& Match.Value
Next
if len(RetStr)>2 then
RetStr=right(RetStr,len(RetStr)-2)
end if
RegExpCheck = RetStr
End Function
PHP的直接用PREG_MATH()函数更简单