©2010-2026 宁波自信网络信息技术有限公司 版权所有
客服电话：0574-28810668 投诉电话：18658249818
浙ICP备2021020529号-1 | 浙B2-20240490
关注我们 ：
1、 <HTML> <HEAD> <TITLE>笨狼正则练习器_脚本之家 </TITLE> <style> body { font-size:12; BACKGROUND: #DADADA; margin-left:20; } #blockORG {
2、nbsp; font-family:Verdana; font-size:12px; overflow:scroll; height:300; } #fileORG { width:400; } #blockReg { &
3、nbsp; font-family:Verdana; font-size:12px; } #showMe { font-family:Verdana; font-size:12px; heigh
4、t:200; overflow:visible; } #replaceVar { font-family:Verdana; font-size:12px; top:341; } #isScri
5、ptDIV { position:absolute; top:361; overflow-x:visible; } </style> </HEAD> <BODY> <INPUT typ
6、e="file" id="fileORG" onchange = "vbs:showORG"/> <button onclick = "vbs:showORG" >载入</button> <input type="checkbox" id="Imode" checked />忽略大小写 <input type="checkbox" id="Gmode" check
7、ed />全局 <button onclick = "vbs:back" >清空</button> <button onclick = "vbs:saveFile" >保存</button><br/> <textArea id="blockORG"></textArea><br/> 表达式：<input id="
8、blockReg" /><br/> 替换为：<input id="replaceVar" /><input type="hidden" id="jsvalue" /> <div id="isScriptDIV"> <button id="normal" onclick="vbs:gogogo">普通替换</button> &n
9、bsp; <button id="isVBS" onclick="vbs:gogogo" >vbs表达式替换</button> <button id="isJS" onclick="vbs:gogogo">js表达式替换</button> </div> <textArea id="showMe" ></textArea&
10、gt; <SCRIPT LANGUAGE="vbScript"> '设置窗体尺寸 window.resizeTo window.screen.availWidth,window.screen.availHeight window.moveTo 0,0 blockORG.style.width = cint
11、window.screen.availWidth * 0.94) blockReg.style.width = px2Int(blockORG.style.width )-100 replaceVar.style.width = px2Int(blockReg.style.width)-400 isScript
12、DIV.style.left = px2Int(replaceVar.style.width) +100 showMe.style.width = blockORG.style.width dim fso ,Re set Re = new RegExp
13、nbsp; set fso = createObject("Scripting.FileSystemObject") dim replaceStr dim thisFileDir'定义本文件绝对路径 dim thisFileName'定义本文件名 dim thisFileFolde
14、r'定义本文件夹路径 thisFileDir = replace(window.location.href,"file:///","") thisFileDir = unescape(replace(thisFileDir,"/","\")) thisFileName =&
15、nbsp;LastOne(thisFileDir,"\") thisFileFolder=getFolderDir(thisFileDir) sub showORG() '在文本框内加载文件 dim f,ts,s if fso.FileExists(fileORG.value) then &n
16、bsp; set f = fso.GetFile(fileORG.value) set ts = f.OpenAsTextStream(1) s="" &nbs
17、p; if not ts.AtEndOfStream then s = ts.ReadAll
18、nbsp; end if ts.Close blockORG.value = s &nb
19、sp;end if end sub Function LastOne(Str,splitStr) '输入字符和分隔符，得到最后一部分 LastOne = right(Str,len(Str)-InStrRev(Str,splitStr)) End Function function get
20、FolderDir(fullDir) '输入得到全路径，得到文件夹路径 s=LastOne(fullDir,"\") getFolderDir = left(fullDir,len(fullDir)-len(s)) end function function px2Int(px) px2Int = cint(replace(px,"px","")
21、) end function sub gogogo() Re.IgnoreCase = Imode.checked Re.Global = Gmode.checked Re.Pattern = blockReg.value &nbs
22、p; replaceStr = replaceVar.value select case window.event.srcElement.id case "isVBS" replaceStr = eval(replaceStr) &nb
23、sp; case "isJS" window.execScript "jsvalue.value=eval(replaceVar.value);","javaScript" replaceStr = jsvalue.value &nbs
24、p; end select showMe.value = Re.Replace(blockORG.value,replaceStr) end sub sub back showMe.value = "" end sub sub saveFile &nb
25、sp; if fso.FileExists(fileORG.value) then set f = fso.GetFile(fileORG.value)
26、nbsp; f.copy fileORG.value & makeRand() & ".bak"'创建备份 set ts = f.OpenAsTextStream(2) ts.write showMe.value &n
27、bsp; ts.Close blockORG.value = showMe.value else set ts = fso.OpenTextFile(thisFileFolder &&n
28、bsp;makeRand() & ".txt",2,true) ts.write showMe.value ts.Close blockORG.value = showMe.value
29、nbsp;end if end sub function makeRand() dim resault resault = mid(cstr(now()),3) resault =replace(resault,":","") resaul
30、t =replace(resault,"-","") resault =replace(resault," ","") makeRand = resault end function </SCRIPT> </BODY> </HTML> 更多信息请查看IT技术专栏
©2010-2026 宁波自信网络信息技术有限公司 版权所有
客服电话：0574-28810668 投诉电话：18658249818
浙ICP备2021020529号-1 | 浙B2-20240490
关注我们 ：
