Quando não consigo acessar hoje em dia, revisei as coisas no disco rígido e encontrei isso. Devido ao meu nível limitado e nenhuma pesquisa sobre DHTML, fiz isso de maneira muito importante. Eu colei para atrair Jade. Espero que alguns especialistas possam ajudar a modificar ou criar coisas melhores.
O ambiente de teste é o Windows XP Professional Edition SP2. Eu encontrei temporariamente bugs na coloração do código. Embora existam soluções, devido à quantidade de código (é realmente irritante escrever código no bloco de notas), ele não foi corrigido por enquanto. Além disso, espera -se que a conclusão automática e outras funções sejam adicionadas no futuro.
PS: Use Script VBS + DHTML, a função principal é concluída por expressão regular + WMIC, o código precisa ser salvo como um arquivo do tipo HTA e, é claro, ele também pode ser alterado para um script VBS puro, mas isso é muito menos eficiente e o código é mais complicado.
O código é o seguinte:
<html>
<head>
<title> Editor de código </title>
<HTA: aplicativo seleção = "no" scroll = "no" contextmenu = "no" />
<Script Language = "VBScript">
'***********************************************
'O script começa
'***********************************************
Set shell = createObject ("wscript.shell")
Set fso = createObject ("script.filesystemoBject")
'***********************************************
'Viaje por todos os tipos locais de arquivos
'***********************************************
Sub OptionAdd (Fext)
str = "<select size =" "1" "name =" "objoption" "OnChange =" "testSub" ">"
Definir objdatafiles = getObject ("winmgmts:" _
& "{impessoationLEvel = impessoe}! //./ root/cimv2")
Defina colfiles = objdatafiles. _
ExecQuery ("Selecione * FROM CIM_DATAFILE WHERE Extension = '" & Fext & "'")
Para cada objfile em colfilos
str = str & "<opção value =" "" e objfile.name & "
objfile.name & "</pption>"
próximo
STR = "<Beel> Arquivo de script local: </elabel>" & str & "</leclect>"
foroption.innerhtml = str
final sub
'***********************************************
'Conversão de cores
'***********************************************
Sub -ChangeColor
se cxs.value = "vbs" então
Winmain.innerhtml = changevbs (winmain.innertext)
else 'script cmd
Winmain.innerhtml = changeCmd (winmain.innertext)
final se
final sub
'***********************************************
'Módulo de conversão VBS
'***********************************************
Função ChangeVBS (Stext)
Definir Re = novo regexp
re.IGNORECASE = true
re.global = true
'Conversão de comentários
re.pattern = "(/'.*)/r/n"
stext = re.Replace (stext, "<font color =#339999> $ 1 </font> <p>")
'Converter símbolo para [azul]
re.pattern = "(/(|/)|/&|/+|/--|/*|/%|/:|/;
stext = re.Replace (stext, "<font color =#993333> $ 1 </font>")
Stext = "<tabela> <tr> <td width = '1024'" & _