Когда я не могу получить доступ в эти дни, я рассмотрел вещи на жестком диске и нашел эту вещь. Из -за моего ограниченного уровня и отсутствия исследований DHTML я сделал это очень грубо. Я вставил его, чтобы привлечь Джейд. Я надеюсь, что некоторые эксперты могут помочь изменить или придумать лучшие вещи.
Тестовая среда - это Windows XP Professional Edition SP2. Я временно обнаружил ошибки в раскраске кода. Хотя существуют решения, из -за количества кода (действительно раздражает писать код в Блокноте), он пока не был исправлен. Кроме того, ожидается, что в будущем будет добавлено автоматическое завершение и другие функции.
PS: используйте VBS Script + DHTML, основная функция выполняется регулярным выражением + WMIC, код должен быть сохранен в виде файла типа HTA, и, конечно, его также можно изменить на чистый скрипт VBS, но это гораздо менее эффективно, а код более сложный.
Код заключается в следующем:
<html>
<Голова>
<title> Кодовый редактор </title>
<Hta: selection = "no" scroll = "no" contextmenu = "Нет" />
<Script language = "vbscript">
'***************************************************
'Сценарий начинается
'***************************************************
Set shell = createObject ("wscript.shell")
Установить fso = createObject ("scripting.filesystemobject")
'***************************************************
'Путешествие по всем местным типам файлов
'***************************************************
Sub OptionAdd (Fext)
str = "<select size =" "1" "name =" "objoption" "onchange =" "testsub" ">"
Установить objdatafiles = getObject ("winMgmts:" _
& "{ImpersationLevel = Осознание}! //./ root/cimv2")
Установите Colfiles = objdatafiles. _
Execquery ("select * from cim_datafile, где extension = '" & fext & "'")
Для каждого objfile в Colfiles
str = str & "<option value =" "" & objfile.name & ""> "& _
objfile.name & "</option>"
следующий
str = "<Babel> локальный файл скрипта: </label>" & str & "</selet>"
foroption.innerhtml = str
Конец суб
'***************************************************
'Цветовое преобразование
'***************************************************
Субэммерколор
Если cxs.value = "VBS", тогда
Winmain.innerhtml = changevbs (winmain.innertext)
иначе сценарий CMD
Winmain.innerhtml = changecmd (winmain.innertext)
конец, если
Конец суб
'***************************************************
Модуль преобразования VBS
'***************************************************
Function changevbs (Stext)
Установите RE = новая режима
re.ignorecase = true
re.global = true
'Comment Curtingsion
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'" & _