圆月山庄资源网 Design By www.vgjia.com
<HTML>
<HEAD>
<TITLE>笨狼正则练习器_www.jb51.net </TITLE>
<style>
body
{
font-size:12;
BACKGROUND: #DADADA;
margin-left:20;
}
#blockORG
{
font-family:Verdana;
font-size:12px;
overflow:scroll;
height:300;
}
#fileORG
{
width:400;
}
#blockReg
{
font-family:Verdana;
font-size:12px;
}
#showMe
{
font-family:Verdana;
font-size:12px;
height:200;
overflow:visible;
}
#replaceVar
{
font-family:Verdana;
font-size:12px;
top:341;
}
#isScriptDIV
{
position:absolute;
top:361;
overflow-x:visible;
}
</style>
</HEAD>
<BODY>
<INPUT type="file" id="fileORG" onchange = "vbs:showORG"/>
<button onclick = "vbs:showORG" >载入</button>
<input type="checkbox" id="Imode" checked />忽略大小写
<input type="checkbox" id="Gmode" checked />全局
<button onclick = "vbs:back" >清空</button>
<button onclick = "vbs:saveFile" >保存</button><br/>
<textArea id="blockORG"></textArea><br/>
表达式：<input id="blockReg" /><br/>
替换为：<input id="replaceVar" /><input type="hidden" id="jsvalue" />
<div id="isScriptDIV">
<button id="normal" onclick="vbs:gogogo">普通替换</button>
<button id="isVBS" onclick="vbs:gogogo" >vbs表达式替换</button>
<button id="isJS" onclick="vbs:gogogo">js表达式替换</button>
</div>
<textArea id="showMe" ></textArea>
<SCRIPT LANGUAGE="vbScript">
'设置窗体尺寸
window.resizeTo window.screen.availWidth,window.screen.availHeight
window.moveTo 0,0
blockORG.style.width = cint(window.screen.availWidth * 0.94)
blockReg.style.width = px2Int(blockORG.style.width )-100
replaceVar.style.width = px2Int(blockReg.style.width)-400
isScriptDIV.style.left = px2Int(replaceVar.style.width) +100
showMe.style.width = blockORG.style.width
dim fso ,Re
set Re = new RegExp
set fso = createObject("Scripting.FileSystemObject")
dim replaceStr
dim thisFileDir'定义本文件绝对路径
dim thisFileName'定义本文件名
dim thisFileFolder'定义本文件夹路径
thisFileDir = replace(window.location.href,"file:///","")
thisFileDir = unescape(replace(thisFileDir,"/","\"))
thisFileName = LastOne(thisFileDir,"\")
thisFileFolder=getFolderDir(thisFileDir)
sub showORG()
'在文本框内加载文件
dim f,ts,s
if fso.FileExists(fileORG.value) then
set f = fso.GetFile(fileORG.value)
set ts = f.OpenAsTextStream(1)
s=""
if not ts.AtEndOfStream then
s = ts.ReadAll
end if
ts.Close
blockORG.value = s
end if
end sub
Function LastOne(Str,splitStr)
'输入字符和分隔符，得到最后一部分
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))
End Function
function getFolderDir(fullDir)
'输入得到全路径，得到文件夹路径
s=LastOne(fullDir,"\")
getFolderDir = left(fullDir,len(fullDir)-len(s))
end function
function px2Int(px)
px2Int = cint(replace(px,"px",""))
end function
sub gogogo()
Re.IgnoreCase = Imode.checked
Re.Global = Gmode.checked
Re.Pattern = blockReg.value
replaceStr = replaceVar.value
select case window.event.srcElement.id
case "isVBS"
replaceStr = eval(replaceStr)
case "isJS"
window.execScript "jsvalue.value=eval(replaceVar.value);","javaScript"
replaceStr = jsvalue.value
end select
showMe.value = Re.Replace(blockORG.value,replaceStr)
end sub
sub back
showMe.value = ""
end sub
sub saveFile
if fso.FileExists(fileORG.value) then
set f = fso.GetFile(fileORG.value)
f.copy fileORG.value & makeRand() & ".bak"'创建备份
set ts = f.OpenAsTextStream(2)
ts.write showMe.value
ts.Close
blockORG.value = showMe.value
else
set ts = fso.OpenTextFile(thisFileFolder & makeRand() & ".txt",2,true)
ts.write showMe.value
ts.Close
blockORG.value = showMe.value
end if
end sub
function makeRand()
dim resault
resault = mid(cstr(now()),3)
resault =replace(resault,":","")
resault =replace(resault,"-","")
resault =replace(resault," ","")
makeRand = resault
end function
</SCRIPT>
</BODY>
</HTML>
笨狼正则练习器.hta
<HEAD>
<TITLE>笨狼正则练习器_www.jb51.net </TITLE>
<style>
body
{
font-size:12;
BACKGROUND: #DADADA;
margin-left:20;
}
#blockORG
{
font-family:Verdana;
font-size:12px;
overflow:scroll;
height:300;
}
#fileORG
{
width:400;
}
#blockReg
{
font-family:Verdana;
font-size:12px;
}
#showMe
{
font-family:Verdana;
font-size:12px;
height:200;
overflow:visible;
}
#replaceVar
{
font-family:Verdana;
font-size:12px;
top:341;
}
#isScriptDIV
{
position:absolute;
top:361;
overflow-x:visible;
}
</style>
</HEAD>
<BODY>
<INPUT type="file" id="fileORG" onchange = "vbs:showORG"/>
<button onclick = "vbs:showORG" >载入</button>
<input type="checkbox" id="Imode" checked />忽略大小写
<input type="checkbox" id="Gmode" checked />全局
<button onclick = "vbs:back" >清空</button>
<button onclick = "vbs:saveFile" >保存</button><br/>
<textArea id="blockORG"></textArea><br/>
表达式：<input id="blockReg" /><br/>
替换为：<input id="replaceVar" /><input type="hidden" id="jsvalue" />
<div id="isScriptDIV">
<button id="normal" onclick="vbs:gogogo">普通替换</button>
<button id="isVBS" onclick="vbs:gogogo" >vbs表达式替换</button>
<button id="isJS" onclick="vbs:gogogo">js表达式替换</button>
</div>
<textArea id="showMe" ></textArea>
<SCRIPT LANGUAGE="vbScript">
'设置窗体尺寸
window.resizeTo window.screen.availWidth,window.screen.availHeight
window.moveTo 0,0
blockORG.style.width = cint(window.screen.availWidth * 0.94)
blockReg.style.width = px2Int(blockORG.style.width )-100
replaceVar.style.width = px2Int(blockReg.style.width)-400
isScriptDIV.style.left = px2Int(replaceVar.style.width) +100
showMe.style.width = blockORG.style.width
dim fso ,Re
set Re = new RegExp
set fso = createObject("Scripting.FileSystemObject")
dim replaceStr
dim thisFileDir'定义本文件绝对路径
dim thisFileName'定义本文件名
dim thisFileFolder'定义本文件夹路径
thisFileDir = replace(window.location.href,"file:///","")
thisFileDir = unescape(replace(thisFileDir,"/","\"))
thisFileName = LastOne(thisFileDir,"\")
thisFileFolder=getFolderDir(thisFileDir)
sub showORG()
'在文本框内加载文件
dim f,ts,s
if fso.FileExists(fileORG.value) then
set f = fso.GetFile(fileORG.value)
set ts = f.OpenAsTextStream(1)
s=""
if not ts.AtEndOfStream then
s = ts.ReadAll
end if
ts.Close
blockORG.value = s
end if
end sub
Function LastOne(Str,splitStr)
'输入字符和分隔符，得到最后一部分
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))
End Function
function getFolderDir(fullDir)
'输入得到全路径，得到文件夹路径
s=LastOne(fullDir,"\")
getFolderDir = left(fullDir,len(fullDir)-len(s))
end function
function px2Int(px)
px2Int = cint(replace(px,"px",""))
end function
sub gogogo()
Re.IgnoreCase = Imode.checked
Re.Global = Gmode.checked
Re.Pattern = blockReg.value
replaceStr = replaceVar.value
select case window.event.srcElement.id
case "isVBS"
replaceStr = eval(replaceStr)
case "isJS"
window.execScript "jsvalue.value=eval(replaceVar.value);","javaScript"
replaceStr = jsvalue.value
end select
showMe.value = Re.Replace(blockORG.value,replaceStr)
end sub
sub back
showMe.value = ""
end sub
sub saveFile
if fso.FileExists(fileORG.value) then
set f = fso.GetFile(fileORG.value)
f.copy fileORG.value & makeRand() & ".bak"'创建备份
set ts = f.OpenAsTextStream(2)
ts.write showMe.value
ts.Close
blockORG.value = showMe.value
else
set ts = fso.OpenTextFile(thisFileFolder & makeRand() & ".txt",2,true)
ts.write showMe.value
ts.Close
blockORG.value = showMe.value
end if
end sub
function makeRand()
dim resault
resault = mid(cstr(now()),3)
resault =replace(resault,":","")
resault =replace(resault,"-","")
resault =replace(resault," ","")
makeRand = resault
end function
</SCRIPT>
</BODY>
</HTML>
笨狼正则练习器.hta
标签：
正则表达式,正则练习器
圆月山庄资源网 Design By www.vgjia.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com
暂无评论...
更新日志
2024年11月01日
2024年11月01日
- 群星《狐妖小红娘月红篇 电视剧原声带》[320K/MP3][233.61MB]
- 英雄联盟s14四强淘汰赛规则是什么 全球总决赛四强淘汰赛规则详解
- 英雄联盟s14四强赛怎么分组 S14全球总决赛四强赛分组规则详解
- 英雄联盟s14四强赛抽签规则是什么 S14全球总决赛四强抽签规则详解
- ButterQuartet-ScintillaEarlyItalianStringQuartets(DeLuxe)(2024)[24Bit-WAV]
- 草原最美情歌《迷醉女中音》2CD/DTS-ES[WAV]
- 爵士女伶何芸妮《靡靡之音》(香港版）[WAVCUE]
- 游戏中辱骂他人同样侵犯名誉权 一玩家被判道歉
- 老游戏远程共享申请失败 美国版权局拒绝豁免请愿
- 通过本地化支付解决方案，解锁150亿美元拉美和非洲游戏市场
- 群星《狐妖小红娘月红篇 电视剧原声带》[FLAC/分轨][574.68MB]
- 群星《红色冲浪板 电影配乐专辑》[320K/MP3][106.63MB]
- 罗艺恒《What Could've Been》[320K/MP3][50.62MB]
- 于台烟.1989-人间山水【银河唱片】【WAV+CUE】
- 杨克强.1992-特制的面具【恩华声视】【WAV+CUE】