Ketika saya tidak dapat mengakses hari ini, saya meninjau hal -hal di hard drive dan menemukan hal ini. Karena level saya yang terbatas dan tidak ada penelitian tentang DHTML, saya melakukannya dengan sangat kasar. Saya menempelkannya untuk menarik Jade. Saya berharap beberapa ahli dapat membantu memodifikasi atau menghasilkan hal -hal yang lebih baik.
Lingkungan pengujian adalah Windows XP Professional Edition SP2. Saya sementara menemukan bug dalam pewarnaan kode. Meskipun ada solusi, karena jumlah kode (sangat menjengkelkan untuk menulis kode di Notepad), itu belum diperbaiki untuk saat ini. Selain itu, diharapkan bahwa penyelesaian otomatis dan fungsi lainnya akan ditambahkan di masa depan.
PS: Gunakan skrip VBS + DHTML, fungsi utama diselesaikan oleh ekspresi reguler + WMIC, kode perlu disimpan sebagai file tipe HTA, dan tentu saja juga dapat diubah menjadi skrip VBS murni, tetapi itu jauh lebih efisien dan kodenya lebih rumit.
Kodenya adalah sebagai berikut:
<Html>
<head>
<Title> editor kode </iteme>
<Hta: pemilihan aplikasi = "tidak" scroll = "no" contextMenu = "no" />
<Bahasa skrip = "vbscript">
'*********************************************************************
'Naskah dimulai
'*********************************************************************
Set shell = createObject ("wscript.shell")
Atur fso = createObject ("Scripting.filesystemObject")
'*********************************************************************
'Bepergian dengan semua jenis file lokal
'*********************************************************************
Sub opsionadd (fext)
str = "<schect size =" "1" "name =" "ObjOption" "Onchange =" "TestSub" ">"
Atur objDatafiles = getObject ("winmgmts:" _
& "{ImpersonationLevel = meniru}! //./ root/cimv2")
Setel colfiles = objDatafiles. _
ExecQuery ("Pilih * dari cim_datafile Where extension = '" & fext & "'")
Untuk setiap objfile di colfiles
str = str & "<nilai opsi =" "" & objfile.name & "" ">" & _
objfile.name & "</pection>"
Berikutnya
str = "<label> File skrip lokal: </label>" & str & "</ pilih>"
foroption.innerhtml = str
akhir sub
'*********************************************************************
'Konversi warna
'*********************************************************************
Sub changecolor
jika cxs.value = "vbs" lalu
Winmain.innerhtml = changevbs (winmain.innertext)
skrip CMD lain
Winmain.innerhtml = changeCmd (winmain.innertext)
akhiri jika
akhir sub
'*********************************************************************
'Modul Konversi VBS
'*********************************************************************
Fungsi changevbs (stext)
Setel RE = RegExp baru
re.ignorecase = true
re.global = true
'Konversi komentar
re.pattern = "(/'.*)/r/n"
stext = re.replace (stext, "<font color =#339999> $ 1 </font> <p>")
'Konversi simbol menjadi [biru]
re.pattern = "(/(|/)|/&|/+|/-|/*|/%|/:|/;|/.|/" "&") "
stext = re.replace (stext, "<font color =#993333> $ 1 </font>")
stext = "<abl> <tr> <td width = '1024'" & _