HTA文件中的表单验证

如何对此HTA表单执行简单验证以确保输入数据并选择了一个选项？这应该很简单，我不知道我错过了什么。HTA文件中的表单验证

任何的答案或建议，将不胜感激。

谢谢。

<html><head><title>Write data to text file</title> 

<HTA:APPLICATION 
border="thin" 
borderStyle="normal" 
caption="yes" 
maximizeButton="no" 
minimizeButton="yes" 
showInTaskbar="yes" 
innerBorder="yes" 
navigable="yes" 
scroll="auto" 
scrollFlat="yes" /> 


<script language="javascript"> 
window.resizeTo(480,150) 


function Writedata() 
{ 
var fso = new ActiveXObject("Scripting.FileSystemObject"); 


var write_id; 
write_id = document.getElementById('write_id').value ; 

alert('The data has been written to \n' + write_id); 
var s = fso.OpenTextFile(write_id, 8, true); 

s.WriteLine(document.getElementById('name_id').value); 


s.Close(); 
} 

</script> 


</head> 
<body> 

<table> 
<tr> 
<h3>Input some information</h3> 
<form> 
<td>Input: </td><td><input type="text" name="name" value="" id="name_id"></td> 

<td><select id="write_id"> 
    <option name="write" value="">Select an Option</option> 
    <option name="write" value="C:\temp\option1.txt">Option1</option> 
    <option name="write" value="C:\temp\option2.txt">Option2</option> 
</select></td> 

<td><input type="button" onclick="Writedata()" value="submit"></td> 
</form> 
</tr> 
</table> 


</body> 
</html>

来源

2013-01-16 Jack

你可以找到['select.selectedIndex']（https://developer.mozilla.org/en-US/docs/ DOM/HTMLSelectElement）和['input.value']（https://developer.mozilla.org/en-US/docs/DOM/HTMLInputElement）。 – Teemu

我被难住了，所以我用vbscript重写了这个。

我已经包含了一些内容，可以帮助您了解如何写入文本文件以及使用HTA验证您的表单。

VBScript的：

Set wshShell = CreateObject("WScript.Shell") 
strSender = wshShell.ExpandEnvironmentStrings("%USERNAME%") ' Get the current Username 


Dim Checkmark 

Sub Validate 

If form.Flag.checked = True Then ' Find out if your Checkbox is checked 
    Checkmark = "*" 
Else 
    Checkmark = "" 
End IF 

If form.field1.value = "" Then     ' Validate the form 
    alert "Please enter an number!", "0", "Title" 
ElseIf IsNumeric(form.field1.value) = False Then 
    alert "Please enter a valid number!", "0", "Title" 
ElseIf form.drop_down1.Value = "" Then 
    alert "Please select a save location!", "0", "Title" 
ElseIf form.field1.value < 100000 Then 
    alert "Please enter a six digit number!", "0", "Title" 
ElseIf form.field1.value > 999999 Then 
    alert "Please enter a six digit number!", "0", "Title" 
Else 
    SaveData 
End If 

End Sub 


Sub SaveData     ' Write data to a text file 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
If objFSO.FileExists(form.drop_down1.Value) Then 
Set objFile = objFSO.OpenTextFile(form.drop_down1.Value, 8) 
    strLine = form.field1.value & vbtab & Checkmark & vbtab & strSender & vbtab & Now ' fields that will be written 
    objFile.WriteLine strLine 
    MsgBox "The Information was successfully written to the file.", "0", "Title" 
    objFile.Close 
Else 
Set objFile = objFSO.CreateTextFile(form.drop_down1.Value) ' If file does not exist, create file 
    strLine = form.field1.value & vbtab & Checkmark & vbtab & strSender & vbtab & Now 
    objFile.WriteLine strLine 
    MsgBox "The Information was successfully written to the file.", "0", "Title" 
    objFile.Close 
End If 
End Sub

的HTML：

<form name="form"> 
<h2>Imput</h2> 
<tr><td><lable>Data: </lable></td><td><input type="text" name="field1" size="25"></td> </tr> 
<tr><td><lable>Save Location: </lable></td><td><select name="drop_down1"> 
<option type="text" name="select" value="">Select an option</option> 
<option type="text" value="SavePath1...">SavePath1</option> 
<option type="text" value="SavePath2...">SavePath2</option> 
<option type="text" value="SavePath3...">SavePath3</option> 
</select></td><td><input type="checkbox" name="Flag" value="">Flag *</td></tr> 
</table> 
<input type="button" value="Submit" onClick="Validate"> 
<input type='reset' id='ResetFields' value='Clear Fields' /> 
</form>

来源

2013-02-01 12:52:42 Jack

HTA文件中的表单验证

回答

相关问题