Wenn ich heutzutage nicht zugreifen kann, habe ich die Dinge auf der Festplatte überprüft und dieses Ding gefunden. Aufgrund meines begrenzten Niveaus und ohne Nachforschungen an DHTML habe ich es sehr grob gemacht. Ich habe es eingefügt, um Jade anzulocken. Ich hoffe, dass einige Experten dazu beitragen können, bessere Dinge zu ändern oder zu entwickeln.
Die Testumgebung ist Windows XP Professional Edition SP2. Ich habe vorübergehend Fehler in der Codefärbung gefunden. Obwohl es aufgrund der Menge an Code Lösungen gibt (es ist wirklich ärgerlich, Code in Notepad zu schreiben), wurde er vorerst nicht korrigiert. Darüber hinaus wird erwartet, dass in Zukunft automatische Fertigstellung und andere Funktionen hinzugefügt werden.
PS: Verwenden Sie VBS -Skript + DHTML, die Hauptfunktion wird durch reguläre Ausdruck + WMIC erfüllt, der Code muss als HTA -Type gespeichert werden, und er kann natürlich auch in ein reines VBS -Skript geändert werden, aber das ist viel weniger effizient und der Code ist komplizierter.
Der Code ist wie folgt:
<html>
<kopf>
<title> Code Editor </title>
<Hta: application selection = "no" scroll = "no" contextMenu = "no" />
<Script Language = "vbscript">
'*************************************************
'Das Drehbuch beginnt
'*************************************************
Setzen Sie Shell = createObject ("wscript.shell")
Setzen Sie fso = createObject ("scripting.filesystemObject").
'*************************************************
'Reisen Sie über alle lokalen Dateien Arten
'*************************************************
Sub optionAdd (fext)
STR = "<Select Size =" "1" "name =" "objoption" "onchange =" "testsub" ">"
Setzen Sie objdatafiles = getObject ("winmgmts:" _
& "{ImpersonationLevel = Impersonate}! //./ root/cimv2")
Setzen Sie ColFiles = Objdatafiles. _
ExecQuery ("Select * aus cim_datafile wobei erweitert = '" & fext & "' '")
Für jede objfile in colfiles
STR = STR & "<Option Value =" "" & Objfile.Name & "" ">" & _
objFile.name & "</option>"
nächste
STR = "<Label> Lokale Skriptdatei: </label>" & str & "</select>"
foroption.innerhtml = str
Ende sub
'*************************************************
'Farbkonvertierung
'*************************************************
SUBALECOLOR
Wenn cxs.value = "vbs" dann
Winmain.innerhtml = changevbs (winmain.InNeText)
sonst 'CMD -Skript
Winmain.innerhtml = Changecmd (Winmain.InNeText)
Ende wenn
Ende sub
'*************************************************
'VBS Conversion Modul
'*************************************************
Funktion ChangeVBS (STEXT)
SET RE = New Regexp
re.Innorecase = true
re.global = true
'Kommentarkonvertierung
re.Pattern = "(/'.*)/r/n"
STEXT = RE.REPLACE (STEXT, "<font color =#339999> $ 1 </font> <p>"))
'Symbol in [blau] konvertieren
re.pattern = "(/(|/)|/&|/|/-|/*|/|—:|/;|/.|/" & ")"
STEXT = RE.REPLACE (STEXT, "<FONT COLOR =#993333> $ 1 </font>")
STEXT = "<table> <tr> <td width = '1024'" & _