코드를 텍스트 문서에 복사하여 붙여 넣고 저장 한 다음 파일의 접미사 이름을 HTA로 변경하고 두 번 클릭하여 실행하십시오.
코드는 다음과 같습니다.
<!-//////////////////6
프로그램 이름 : 소비 기록 Ver1.1 (20070808-20070811) .hta
사용 지침 : 코드를 텍스트 문서에 복사하여 붙여 넣고 저장 한 다음 파일의 접미사 이름을 HTA로 변경하고 두 번 클릭하여 실행하십시오.
저자의 설명 : youxi01 ,,,, Copyright, 해적 버전에 오신 것을 환영합니다 !! //////////->
<!-////////////////->
<title> 소비 기록 프로그램 </title>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312"/>
<!-/////// HTA 로고 /////->
<HTA : 응용 프로그램
스크롤 = "아니요"
캡션 = "예"
sysmenu = "예"/>
<!-//////////////->
<script language = "vbscript">
Totalmoney = 0 '총 소비
index = -1 '확인란 제어 ID 번호를 초기화합니다.
flag = 0 '파일 변경 여부를 정의하는 플래그
set fso = createobject ( "scripting.filesystemobject")
'/////////////////////////////////////////////////////////////////////////4)
서브 window_onload
그렇지 않은 경우 (fso.fileExists ( "COUME.INI")) '구성 파일이 없으면 작성하십시오.
fso.createtextFile ( "COUME.INI"). 닫습니다
끝 If
window.resizeto 638,495 '자체 크기와 위치를 설정하십시오.
Window.moveto 200,100
Addrow 0, "Hoho", "2007-1-1", "화요일" '먼저 행을 추가하십시오. 나는 그것을 직접 이해조차 할 수 없지만 어쨌든 버그를 다루기 위해 그것을 사용하고 있습니다.
documb
Addrow 0, "Hoho", "2007-1-1", "화요일" ''다른 행을 추가하십시오. 나는 그것을 직접 이해조차 할 수 없지만 어쨌든 버그를 다루기 위해 그것을 사용하고 있습니다.
document.all.nameditem ( "mytable"). 행 (2) .style.display = "none" '이 줄을 보이지 않습니다.
readfile ( "coome.ini")
종료 서브
'///////////////////////////////////////////////////4
함수 readfile (파일 이름)
set file = fso.opentextfile (filename, 1,1)
파일 끝까지 파일을 읽는 동안 파일을 읽으십시오.
str = split (file.readline, " #") ' # 플래그별로 split 줄이 없습니다 (총 4 개의 플래그가 있습니다)
Addrow str (1), str (2), str (3), str (4) '5 개의 셀을 추가하십시오. 내용물은 ...
고리
엔드 기능
'//////////////////////////
함수 Addrow (CNUM, CTYPE, CDATE, CDAY)
인덱스 = 인덱스+1 '일련 번호 추가 1
objtable = document.all.nameditem ( "mytable") 'id를 기준으로 객체 테이블을 설정하십시오
set newrow = objtable.insertrow () '줄을 삽입하십시오
newrow.classname = "row_add" '라인 스타일을 설정합니다.
newrow.onMouseOver = getRef ( "Change_BGColor")
newrow.onmouseout = getRef ( "back_bgcolor")
newrow.onclick = getRef ( "선택 obj")
var = "#"& cnum & "#"& ctype & "#"& cdate & "#"& cday
str = split (var, "#")
str (0) = "<input type = checkbox id = 'delcheck'& index>"
i = 0 ~ 4의 경우
NewCell = newrow.insertCell () ''셀을 삽입하고 셀의 값을 설정하십시오.
newcell.innerhtml = str (i)
다음
TotalMoney = TotalMoney+Clng (CNUM) '총 소비의 값을 설정하고 디스플레이를 정의합니다.
소비. innerhtml = "총 소비 :"& Totalmoney & "Yuan"