香蕉在线精品一区二区,国产精选在线视频,沟厕china偷窥女厕嘘嘘

主頁 > 知識庫 > 學習正則幫手笨狼正則練習器

學習正則幫手笨狼正則練習器

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

標簽：新余內江清遠廣東棗莊克拉瑪依濟南邯鄲

巨人網絡通訊聲明：本文標題《學習正則幫手笨狼正則練習器》，本文關鍵詞學習,正則,幫手,笨狼,練習器,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

學習正則幫手笨狼正則練習器