요즘 접근 할 수 없을 때, 나는 하드 드라이브의 것들을 검토하고 이것을 발견했습니다. 제한된 수준과 DHTML에 대한 연구가 없기 때문에 매우 대략적으로 수행했습니다. 나는 jade를 끌어 들이기 위해 그것을 붙여 넣었다. 일부 전문가가 더 나은 것을 수정하거나 제시하는 데 도움이되기를 바랍니다.
테스트 환경은 Windows XP Professional Edition SP2입니다. 코드 채색에서 일시적으로 버그를 찾았습니다. 솔루션이 있지만 코드의 양으로 인해 (메모장으로 코드를 작성하는 것이 실제로 성가신) 당분간 수정되지 않았습니다. 또한 향후 자동 완료 및 기타 기능이 추가 될 것으로 예상됩니다.
PS : VBS Script + DHTML을 사용하십시오. 기본 기능은 정규식 + WMIC에 의해 완료되며, 코드는 HTA 유형 파일로 저장되어야하며 물론 순수한 VBS 스크립트로 변경 될 수 있지만 훨씬 덜 효율적이며 코드가 더 복잡합니다.
코드는 다음과 같습니다.
<html>
<헤드>
<title> 코드 편집기 </title>
<HTA : 응용 프로그램 선택 = "아니요"스크롤 = "아니오"ContextMenu = "No" />
<script language = "vbscript">
'*******************************************************************
'스크립트가 시작됩니다
'*******************************************************************
set shell = createobject ( "wscript.shell")
set fso = createobject ( "scripting.filesystemobject")
'*******************************************************************
'모든 로컬 유형의 파일을 여행합니다
'*******************************************************************
하위 옵션 add (fext)
str = "<select size =" "1" "name =" "objoption" "onchange =" "testsub" ">"
set objdatafiles = getObject ( "winmgmts :"_
& "{issersonationlevel = 가장 친한}! //./ root/cimv2")
colfiles = objdatafiles를 설정합니다. _
execquery ( "select * from cim_datafile where extension = '" "& fext &"' ")
colfiles의 각 objfile에 대해
str = str & "<옵션 값 =" ""& objfile.name & "" ""> "& _
objfile.name & "</옵션>"
다음
str = "<label> 로컬 스크립트 파일 : </label>"& str & "</select>"
foroption.innerhtml = str
종료 서브
'*******************************************************************
'색상 변환
'*******************************************************************
하위 변경 고고
cxs.value = "vbs"인 경우
winmain.innerhtml = changevbs (winmain.innertext)
다른 'CMD 스크립트
winmain.innerhtml = changecmd (winmain.innertext)
끝 If
종료 서브
'*******************************************************************
'VBS 변환 모듈
'*******************************************************************
함수 ChangeVBS (Stext)
RE = New Regexp를 설정합니다
re.ignorecase = true
re.global = true
'의견 변환
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'"& _