java textarea输出,输入TextArea和输出TextArea并保存到

I've written up a quick hta for quick actions via button: copy to clipboard, message boxes, and run specific files. Now I'm trying figure out how to add:

2 textarea boxes

TextArea1 - Type text inside

Submit button to save textarea1 to local file and load to textarea2

TextArea2 - will display text from saved local file from textarea1

Thanks for your time and consideration

ID="TestHTA"

APPLICATIONNAME="TestHTA"

ICON = "C:L.S.L._QL_HTAv1.0MediaRazerIcon.ico"

BORDER="thin"

MINIMIZEBUTTON="no"

MAXIMIZEBUTTON="no"

SCROLL="no"

SINGLEINSTANCE="no"

SysMenu="no"

WINDOWSTATE="normal">

Sub Window_onLoad

window.resizeTo 510,510

End Sub

Sub ExitProgram

window.close()

End Sub

Sub fileupdate

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFolder "C:CopyFromLocation1","C:CopyToLocation1", True

End Sub

Sub lotsiu

strMessage = "Line 1" & vbNewLine & "Line 2"

Set objWord = CreateObject("Word.Application")

With objWord

.Visible = False

.Documents.Add

.Selection.TypeText strMessage

.Selection.WholeStory

.Selection.Copy

.Quit False

End With

End Sub

Sub faqmbrPhonumuse

msgbox "Line 1" & vbNewLine & "Line 2"

End Sub

Sub appword

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "WINWORD.exe"

End Sub

sub Window_onLoad()

set oFSO=CreateObject("Scripting.FileSystemObject")

set oFile=oFSO.OpenTextFile("Test.txt",1)

text=oFile.ReadAll

document.all.ScriptArea.value=text

oFile.Close

End sub

Sub Submitarea

Set oFile = fso.OpenTextFile( "TextArea.txt",8,true)

sTxtarea = document.all("Txtarea").Value

oFIle.Write sTxtarea & vbCRLF

MsgBox "Your text has been added to TextArea.txt", 64,"Textarea Input"

oFile.close

End Sub 'Submitarea