最近アクセスできないとき、私はハードドライブで何かをレビューして、このことを見つけました。私のレベルが限られており、DHTMLに関する研究がなかったため、私は非常に大まかにそれをしました。ジェイドを引き付けるために貼り付けました。一部の専門家が、より良いことを修正または思いつくのを助けることができることを願っています。
テスト環境は、Windows XP Professional Edition SP2です。私は一時的にコードの着色でバグを見つけました。ソリューションはありますが、コードの量のため(メモ帳にコードを書くのは本当に面倒です)、当面は修正されていません。さらに、自動完成やその他の機能が将来追加されることが予想されます。
PS:VBS Script + DHTMLを使用して、メイン関数は正規表現 + WMICによって完了します。コードはHTAタイプファイルとして保存する必要があります。もちろん、純粋なVBSスクリプトに変更することもできますが、効率が低く、コードはより複雑です。
コードは次のとおりです。
<html>
<head>
<Title>コードエディター</title>
<HTA:アプリケーションの選択= "no" scroll = "no" contextmenu = "no" />
<スクリプト言語= "vbscript">
'*****************************************************************
'スクリプトが始まります
'*****************************************************************
set shell = createObject( "wscript.shell")
fso = createObject( "Scripting.filesystemObject")
'*****************************************************************
'すべてのローカルタイプのファイルを移動します
'*****************************************************************
sub optionadd(fext)
str = "<Select Size =" "1" "name =" "objoption" "onchange =" "testSub" ">"
objdatafiles = getobject( "winmgmts:" _
& "{ImpersonationLevel = Impersonate}!//./ root/cimv2")
colfiles = objdatafilesをセットします。 _
execQuery( "select * from cim_datafile where entersing = '"&fext& "'")
colfilesの各objfileについて
str = str& "<option value =" "&objfile.name&" ""> "&_
objfile.name& "</option>"
次
str = "<label>ローカルスクリプトファイル:</label>"&str& "</select>"
foroption.innerhtml = str
End Sub
'*****************************************************************
'色の変換
'*****************************************************************
サブチャンカラー
cxs.value = "vbs"の場合
winmain.innerhtml = changevbs(winmain.innertext)
else 'cmdスクリプト
winmain.innerhtml = changecmd(winmain.innertext)
ifを終了します
End Sub
'*****************************************************************
'VBS変換モジュール
'*****************************************************************
function changevbs(stext)
re = new regexpを設定します
re.ignorecase = true
re.global = true
'コメント変換
re.pattern = "(/'.*)/r/n"
stext = re.replace(stext、 "<font color =#339999> $ 1 </font> <p>")
'シンボルを[青]に変換する
re.pattern = "(/|/)|/&|/+|/-|/*|/:|/ ;|/.|/" ""& ")"
stext = re.replace(stext、 "<font color =#993333> $ 1 </font>")
stext = "<table> <tr> <td width = '1024'"&_