Question

对于我的脚本编写部分，我需要创建一个html表单，允许用户将数据输入到文本区域，然后可以将其保存为：H驱动器中的Word或Notepad文档。使用HTA。 HTML表单部分非常简单，但我正在努力使其工作，以便单击任一按钮将数据保存在正确的位置。到目前为止，我一直在努力获得第一个用于保存Word中的文件的按钮，但是我很坦率地不知道从哪里开始。这是我到目前为止的代码：

<html>
<head>
<HTA:APPLICATION>

<script type="text/javascript" language="javascript"> 
function SaveFile()
{
wordApp = new ActiveXObject("Word.Application");
wordApp.Visible = true;
}
</script>
</head>
<body>
<form>
Enter your information:
<br />
<textarea cols="40" rows="12">
</textarea>
<br />
<input type="button" value="save into word" id="Word.Application" />
<input type="button" value="save into notepad" />
</form>
</body>
</html>

我可以得到一些帮助吗？提前谢谢。

Answer 1

你错过了一个触发动作的事件。在这种情况下'onClick'。因此'onClick'会调用SaveFile函数。我建议有一个通用的保存功能，根据传递给SaveFile函数的值，将确定用于保存数据的应用程序（您可以使用其中一个条件结构）。

 onClick="SaveFile('notepad')" //saves data in notepad

 onClick="SaveFile('word')" //saves data in word

Answer 2

你可以试试这个HTA：

<html>
<Title>Save file into noteapd and Word Application</Title>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<head>
<HTA:APPLICATION 
ICON="Notepad.exe"
APPLICATIONNAME = "Save file into noteapd and Word Application" 
BORDER="dialog"
BORDERSTYLE="complex"
>
</head>
<script type="text/Vbscript">
'*****************************************************
Sub window_onload()
    CenterWindow 500,350
End Sub
'*****************************************************
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'*****************************************************
Sub Save2Word()
'Create and Save a Word Document
Title = "Data saved into Word Appplication"
FileDoc = "C:\" & Month(Date) & "_" & Day(Date) & "_" & Year(Date) & ".doc"
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Txtarea = document.all("Txtarea").Value
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "Comic Sans MS"
objSelection.Font.Size = "12"
objSelection.TypeText Txtarea
objDoc.SaveAs(FileDoc)
objWord.Quit
MsgBox "Data saved into : " & FileDoc,vbInformation,Title
End Sub
'*****************************************************
Sub Save2Notepad()
'Save into a Notepad Document
Title = "Data saved into Notepad Appplication"
Set fso = CreateObject("Scripting.FileSystemObject") 
FileTxt = "C:\" & Month(Date) & "_" & Day(Date) & "_" & Year(Date) & ".txt"
Txtarea = document.all("Txtarea").Value
Set oFile = fso.OpenTextFile(FileTxt,8,true)
oFIle.WriteLine Txtarea
oFile.Close
MsgBox "Data saved into : " & FileTxt,vbInformation,Title
End Sub
'*****************************************************
</script>
<body>
<center>
<form>
Enter your information:
<br>
<textarea ID="Txtarea" NAME="Txtarea" cols="40" rows="12"></textarea>
<hr>
<input type="button" value="save into word"    onClick="Save2Word()"/>
<input type="button" value="save into notepad" onClick="Save2Notepad()"/>
<hr>
</form>
</center>
</body>
</html>

如何从TextArea获取数据以将其保存在Winword和记事本中？

2 个答案: