Fatal编程技术网
  • javascript/
  • Javascript 如何从TextArea获取数据并将其保存在Winword和记事本中？

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

javascript html vbscript

Javascript 如何从TextArea获取数据并将其保存在Winword和记事本中？,javascript,html,vbscript,hta,Javascript,Html,Vbscript,Hta,作为脚本任务的一部分，我需要创建一个html表单，允许用户将数据输入到一个文本区域，然后可以将该文本区域保存为Word或记事本文档，保存在：H驱动器中。使用HTA。HTML表单部分非常简单，但我正在努力让它工作，以便单击任一按钮将数据保存在正确的位置。到目前为止，我一直在努力让Word中保存文件的第一个按钮首先工作，但坦率地说，我不知道从这里开始该怎么做。以下是我目前掌握的代码： <html> <head> <HTA:APPLICATION> <scr

作为脚本任务的一部分，我需要创建一个html表单，允许用户将数据输入到一个文本区域，然后可以将该文本区域保存为Word或记事本文档，保存在：H驱动器中。使用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>


函数SaveFile（）
{
wordApp=新的ActiveXObject（“Word.Application”）；
可见=true；
}
输入您的信息：
我能得到一些帮助吗？提前感谢。

您错过了一个触发动作的事件。在本例中为“onClick”。onClick将调用SaveFile函数。我建议使用一个通用的save函数，根据传递给SaveFile函数的值来确定使用哪个应用程序来保存数据（您可以为此使用一个条件结构）

你错过了一个触发动作的事件。在本例中为“onClick”。onClick将调用SaveFile函数。我建议使用一个通用的save函数，根据传递给SaveFile函数的值来确定使用哪个应用程序来保存数据（您可以为此使用一个条件结构）

您可以尝试使用此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>


将文件保存到noteapd和Word应用程序中
'*****************************************************
子窗口_onload（）
中心窗口500350
端接头
'*****************************************************
副中心窗口（x，y）
伊托普
window.resizeTo x，y
iLeft=window.screen.availWidth/2-x/2
itop=window.screen.availHeight/2-y/2
window.moveTo ileft，itop
端接头
'*****************************************************
子Save2Word（）
'创建并保存Word文档
Title=“保存到Word应用程序中的数据”
FileDoc=“C:\”月（日）&“日（日）&”年（日）&“.doc”
设置objWord=CreateObject（“Word.Application”）
objWord.Visible=False
Txtarea=document.all（“Txtarea”）.Value
设置objDoc=objWord.Documents.Add（）
设置objSelection=objWord.Selection
objSelection.Font.Name=“Comic Sans MS”
objSelection.Font.Size=“12”
objSelection.TypeText Txtarea
objDoc.SaveAs（FileDoc）
objWord，退出
MsgBox“数据保存到：”&FileDoc、vbInformation、Title
端接头
'*****************************************************
子Save2Notepad（）
'保存到记事本文档中
Title=“保存到记事本应用程序中的数据”
设置fso=CreateObject（“Scripting.FileSystemObject”）
FileTxt=“C:\”月（日）&“日（日）&”年（日）&“.txt”
Txtarea=document.all（“Txtarea”）.Value
setofile=fso.OpenTextFile（FileTxt，8，true）
oFIle.WriteLine Txtarea
奥菲尔，关门
MsgBox“数据保存到：”&FileTxt，vbInformation，Title
端接头
'*****************************************************
输入您的信息：
您可以尝试使用此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>


将文件保存到noteapd和Word应用程序中
'*****************************************************
子窗口_onload（）
中心窗口500350
端接头
'*****************************************************
副中心窗口（x，y）
伊托普
window.resizeTo x，y
iLeft=window.screen.availWidth/2-x/2
itop=window.screen.availHeight/2-y/2
window.moveTo ileft，itop
端接头
'*****************************************************
子Save2Word（）
'创建并保存Word文档
Title=“保存到Word应用程序中的数据”
FileDoc=“C:\”月（日）&“日（日）&”年（日）&“.doc”
设置objWord=CreateObject（“Word.Application”）
objWord.Visible=False
Txtarea=document.all（“Txtarea”）.Value
设置objDoc=objWord.Documents.Add（）
设置objSelection=objWord.Selection
objSelection.Font.Name=“Comic Sans MS”
objSelection.Font.Size=“12”
objSelection.TypeText Txtarea
objDoc.SaveAs（FileDoc）
objWord，退出
MsgBox“数据保存到：”&FileDoc、vbInformation、Title
端接头
'*****************************************************
子Save2Notepad（）
'保存到记事本文档中
Title=“保存到记事本应用程序中的数据”
设置fso=CreateObject（“Scripting.FileSystemObject”）
FileTxt=“C:\”月（日）&“日（日）&”年（日）&“.txt”
Txtarea=document.all（“Txtarea”）.Value
setofile=fso.OpenTextFile（FileTxt，8，true）
oFIle.WriteLine Txtarea
奥菲尔，关门
MsgBox“数据保存到：”&FileTxt，vbInformation，Title
端接头
'*****************************************************
输入您的信息：