Cuando no puedo acceder en estos días, revisé las cosas en el disco duro y encontré esto. Debido a mi nivel limitado y sin investigación sobre DHTML, lo hice muy o menos. Lo pegué para atraer a Jade. Espero que algunos expertos puedan ayudar a modificar o encontrar mejores cosas.
El entorno de prueba es Windows XP Professional Edition SP2. He encontrado temporalmente errores en el color de código. Aunque hay soluciones, debido a la cantidad de código (es realmente molesto escribir código en el bloc de notas), no se ha corregido por el momento. Además, se espera que la finalización automática y otras funciones se agregarán en el futuro.
PS: Use el script VBS + DHTML, la función principal se completa con la expresión regular + WMIC, el código debe guardarse como un archivo de tipo HTA y, por supuesto, también se puede cambiar a un script VBS puro, pero eso es mucho menos eficiente y el código es más complicado.
El código es el siguiente:
<html>
<Evista>
<title> editor de código </title>
<Hta: aplicación selección = "no" scroll = "no" contextmenu = "no" />
<Script language = "VBScript">
'**********************************************************************
'El guión comienza
'**********************************************************************
Set shell = createObject ("wscript.shell")
Establecer fso = createObject ("scripting.filesystemObject")
'**********************************************************************
'Viaje sobre todos los tipos locales de archivos
'**********************************************************************
Sub OptionAdd (Fext)
str = "<select size =" "1" "name =" "ObjOption" "onChange =" "TestSub" ">"
Establecer objDatafiles = getObject ("winmgmts:" _
& "{ImpersonationLevel = Implsonate}! //./ root/cimv2")
Establecer colfiles = objdatafiles. _
ExecQuery ("Seleccionar * de CIM_Datafile Where Extension = '" & fext & "'")
Para cada objfile en colfiles
str = str & "<option value =" "" & objfile.name & "" ">" & _
objfile.name & "</option>"
próximo
str = "<label> Archivo de script local: </etiqueta>" & str & "</select>"
forOption.innerhtml = str
final
'**********************************************************************
'Conversión de color
'**********************************************************************
Subconsulto
Si cxs.value = "VBS" entonces
Winmain.innerhtml = ChangeVbs (Winmain.inntext)
de lo contrario 'script cmd
Winmain.innerhtml = Changecmd (Winmain.inntext)
final si
final
'**********************************************************************
'Módulo de conversión de VBS
'**********************************************************************
Función ChangeVbs (Stext)
Establecer re = nuevo regexp
re.ignorecase = True
re.global = verdadero
'Conversión de comentarios
re.pattern = "(/'.*)/r/n"
stext = re.replace (Stext, "<font color =#339999> $ 1 </font> <p>")
'Convertir símbolo a [azul]
re.pattern = "(/(|/)|/& navegora
Stext = re.replace (Stext, "<font color =#993333> $ 1 </font>")
Stext = "<table> <tr> <td width = '1024'" & _