Copie e cole o código em um documento de texto, salve-o e altere o nome do sufixo do arquivo para: HTA e clique duas vezes para ser executado.
O código é o seguinte:
<!-////////////////// =====
Nome do programa: Registro de consumo Ver1.1 (20070808-20070811) .hta
Instruções para uso: copie e cole o código em um documento de texto, salve-o e altere o nome do sufixo do arquivo para: HTA e clique duas vezes para ser executado.
Descrição do autor: youxi01 ,,, sem direitos autorais, bem-vindo à versão pirateada !! ////////////->
<!-/////////////////->
<title> Programa de gravação de consumo </title>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312"/>
<!-//////////logotipo hta /////->
<HTA: Aplicação
Scroll = "não"
Legenda = "Sim"
Sysmenu = "sim"/>
<!-//////////////->
<Script Language = "VBScript">
TotalMoney = 0 'consumo total
índice = -1 'Inicialize o número de identificação de controle da caixa de seleção;
sinalizador = 0 'a bandeira que define se o arquivo é alterado
set fso = createObject ("script.filesystemoBject")
'///////////////////////// Leia o arquivo de configuração e defina seu próprio tamanho e localização /////////
Sub Window_onLoad
se não (fso.fileExists ("consume.ini")), então 'crie se não houver arquivo de configuração;
fso.createTextFile ("consume.ini"). Fechar
final se
Window.Resizeto 638.495 'Defina seu próprio tamanho e posição;
Window.moveto 200.100
Addrow 0, "Hoho", "2007-1-1", "Tuesday" 'Adicione uma linha primeiro. Eu mesmo não consigo entender isso sozinho, mas estou usando isso para lidar com bugs de qualquer maneira;
document.all.NameDItem ("myTable"). linhas (1) .style.display = "nenhum" 'Definir esta linha é invisível;
Addrow 0, "Hoho", "2007-1-1", "Tuesday" 'Adicione outra linha. Eu mesmo não consigo entender isso sozinho, mas estou usando isso para lidar com bugs de qualquer maneira;
document.all.namedItem ("myTable"). linhas (2) .style.display = "nenhum" 'definido esta linha é invisível;
readfile ("consume.ini")
Final sub
'///////////////////////////////////////////////////////////////////////
Função readfile (nome do arquivo)
set file = fso.opentExtFile (nome do arquivo, 1,1)
faça enquanto file.atendofline <> true 'Leia o arquivo até o final do arquivo
str = split (file.readline, " #") 'não dividir sem linhas por # sinalizador (há um total de quatro dessas bandeiras)
addrow str (1), str (2), str (3), str (4) 'adicione cinco células, o conteúdo é ...
laço
Função final
'///////////////////////////////
Função addrow (cnum, ctype, cdate, cday)
Índice = Índice+1 'O número de série adiciona 1
set objTable = document.all.namedItem ("myTable") 'Obtenha a tabela de objetos com base no ID
set newrow = objtable.insertrow () 'Insira uma linha
newrow.classname = "row_add" 'Defina o estilo da linha;
newrow.onMouseOver = getRef ("Change_BGColor")
newrow.onmouseout = getRef ("back_bgcolor")
newrow.onClick = getRef ("ChoteObj")
var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday
str = dividido (var, "#")
str (0) = "<Tipo de entrada = ID da caixa de seleção = 'Delcheck' & Index>"
para i = 0 a 4
set newCell = newrow.insertCell () 'insira a célula e defina o valor da célula;
newcell.innerhtml = str (i)
próximo
TotalMoney = TotalMoney+CLNG (CNUM) 'Defina o valor do consumo total e defina a tela;
consumo.innerhtml = "Consumo total:" & TotalMoney & "Yuan"