其实这个不用正则表达式或许更方便,利用异常处理语句Try...catch...end try.
先执行Try中的语句,如果执行异常,那么将运行catch中的语句!
dim str as string
str = inputbox("请输入路径!")
Try
Dim dir1 as DirectoryInfo(str)
Dir1.Create()
Dir1.Delete(True) '如果你只确定路径是否合法而不建立文件夹,加入该语句
Catch
msgbox("路径输入有误!","提示框",0)
END Try
以上在vb2005测试通过!
你好:
正则表达式语法:
## 总结## ^ 匹配字符串的开始。
## $ 匹配字符串的结尾。
## \b 匹配一个单词的边界。
## \d 匹配任意数字。
## \D 匹配任意非数字字符。
## x? 匹配一个可选的 x 字符 (换言之,它匹配 1 次或者 0 次 x 字符)。
## x* 匹配0次或者多次 x 字符。
## x+ 匹配1次或者多次 x 字符。
## x{n,m} 匹配 x 字符,至少 n 次,至多 m 次。
## (a|b|c) 要么匹配 a,要么匹配 b,要么匹配 c。
## (x) 一般情况下表示一个记忆组 (remembered group)。你可以利用 re.search 函数返回对
## 象的 groups() 函数获取它的值。
##正则表达式中的点号通常意味着 “匹配任意单字符”
String input = "D:\\save\\任意文件名.pdf"String regex = ".*\\\\([^\\.]+)\\..*"
input.replaceAll(regex, "$1")
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)