7,759
社区成员
发帖
与我相关
我的任务
分享
13254815.zip
13266389.zip
.zip13307259
40245707.zip
的13689101.zip
.zip13689148
13066677.zip
13676976.zip
的13509642_间里的简史的.zip
13619150_高等数学习南 下册 同济·第7版.zip
的13628123_中国理蓝皮书 2014.zip
《饰计实例教程》_13688619.zip
Private Sub Command84_Click()
Dim ss As String
ss = Clipboard.GetText
Text15 = quss(ss)
End Sub
Function quss(oo As String)
Set regex3 = CreateObject("VBScript.RegExp")
regex3.IgnoreCase = True
regex3.Global = True
regex3.MultiLine = False
regex3.Pattern = "^[1-9]\d{7}$"
Set Matches = regex3.Execute(oo)
For Each Match In Matches
quss = quss & Match.SubMatches(0)
Next
End Function
/**
* 根据输入的正则表达式,提取与之匹配的字符串,并新建一个文档显示所有匹配的字符串,
* 显示时每个匹配项占一行
*
* @author Guapo
* @version v1.0
*/
getText();
function getText()
{
// var _regex=prompt("本程序用来提取正则表达式匹配的字符串,请输入正则表达式","[1-9]\d{7}");
var _regex=[1-9]\d{7};
var regex=new RegExp(_regex,"gim");
document.selection.SelectAll();
var textInCurrentDocument=document.selection.Text;
var matchResultArray=textInCurrentDocument.match(regex);
if(matchResultArray)
{
var len=matchResultArray.length;
editor.NewFile();
for(var i=0;i<len;i++)
{
document.writeln(matchResultArray[i]);
}
}
else
{
alert("没有找到匹配的字符串");
}
}
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, i As Integer, j As Integer
strData = "13254815.zip" & vbCrLf & _
"13266389.zip" & vbCrLf & _
".zip13307259" & vbCrLf & _
"40245707.zip" & vbCrLf & _
"的13689101.zip" & vbCrLf & _
".zip13689148" & vbCrLf & _
"13066677.zip" & vbCrLf & _
"13676976.zip" & vbCrLf & _
"的13509642_间里的简史的.zip" & vbCrLf & _
"13619150_高等数学习南 下册 同济·第7版.zip" & vbCrLf & _
"的13628123_中国理蓝皮书 2014.zip" & vbCrLf & _
"《饰计实例教程》_13688619.zip"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "(?!:\d)[1-9]\d{7}(?!:\d)"
Set matchs = reg.Execute(strData)
For i = 0 To matchs.Count - 1
Debug.Print i + 1 & "." & matchs(i)
For j = 0 To matchs(i).SubMatches.Count - 1
Debug.Print "(" & j + 1 & ")." & matchs(i).SubMatches(j) & " ";
Next
If matchs(i).SubMatches.Count > 0 Then Debug.Print
Next
End Sub