文件名 正则表达式提取方法

Call InsertDataToArray(Matches(i).SubMatches(1),aryMatch)
Next

For i=0 to Ubound(aryMatch)
If Not IsNull(aryMatch(i)) And Trim(aryMatch(i))<>"" Then Response.write aryMatch(i)&"<br>"
Next

Function InsertDataToArray(Data,ByRef aryMatch)
If Trim(Data)<>"" Then
Data=Replace(Data,"'","")
Data=Replace(Data,"""","")
Redim Preserve aryMatch(Ubound(aryMatch)+1)
ZC_UPLOAD_MATCH=False
For j=0 to Ubound(aryMatch)
If aryMatch(j)=Data Then ZC_UPLOAD_MATCH=True
Next
If Not ZC_UPLOAD_MATCH Then aryMatch(Ubound(aryMatch))=Data
End If
End Function

PS:最近正则又精进不少...

您可能感兴趣的文章:

FileUpload1 上传文件类型验证正则表达式用正则获取指定路径文件的名称.NET读取所有目录下文件正则匹配文本电子邮件javascript 获取链接文件地址中第一个斜线内的正则表达式js 得到文件后缀(通过正则实现)最全的用正则批量去除Teleport Pro整站下载文件冗余代码shell脚本正则匹配文件中的Email并写入到文件中代码分享Powershell学习笔记--使用正则表达式查找文件简单分析javascript面向对象与原型