DDR爱好者之家

学习正则帮手笨狼正则练习器
站长资源 2024/12/28 佚名
79 1538
DDR爱好者之家 Design By 杰米
<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 />全局&nbsp;
<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
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。

据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米