Simple HTA Text Editor

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Simple HTA Text Editor

Logged in as: Guest

arrSession:exec spGetSession 2,16,53234

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Simple HTA Text Editor
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Simple HTA Text Editor - 11/2/2007 7:06:47 AM

mcds99

Posts: 407
Score: 4
Joined: 2/28/2006
Status: offline

This is the most simple HTA text editor I could think of it will become an ASP page in time.
It does show how to use the file system object for reading, writting, and appending.

Remember to edit the wkDir variant to something You want to use.

<HTML>
<head><title>/md/input</Title>
<HTA:Application
    Border= "thin"
    Application="/md/input"
    Scoll="No"
    Singleinstance="Yes"
    ShowInTaskbar="Yes"
    Caption="Yes">
</Head>
<Script Language="VBSCRIPT" Type = "text/vbscript">
Sub Window_Onload
  Window.resizeTo 730,500
End Sub
 Const ForReading = 1
 Const ForWriting = 2
 Const ForAppending = 8
 Set fSo1 = CreateObject("Scripting.FileSystemObject")
 wkDir = "D:\_Script\_vbscript\_Scripts\edit\"
'----------------------------------------------------------
FUNCTION NewFile(FileName)
  CALL FileStat(FileName, msg)
  on error resume next
  nFile = wkDir & FileName.value
  CALL FileStat(oFile, fSo1, msg)
  IF msg = "" THEN
     Set wrFile = fSo1.CreateTextFile(nFile,true)
         wrFile.Close
  END IF
END FUNCTION
'----------------------------------------------------------
FUNCTION OpenFile(FileName, DataArea)
  CALL FileStat(FileName, msg)
  on error resume next
  oFile = wkDir & FileName.value
  Set wrFile = fSo1.OpenTextFile(oFile, ForReading)
  DataArea.value = wrFile.ReadAll
END FUNCTION
'----------------------------------------------------------
FUNCTION SaveFile(FileName, DataArea)
  CALL FileStat(FileName, msg)
  on error resume next
  sFile = wkDir & FileName.value
  Set wrFile = fSo1.OpenTextFile(sFile, ForWriting)
      wrFile.writeline(DataArea.value)
END FUNCTION
'----------------------------------------------------------
FUNCTION CloseFile(FileName, DataArea)
  Call FileStat(FileName, msg)
  on error resume next
  cFile = wkDir & FileName.value
  Set wrFile = fSo1.OpenTextFile(cFile, ForAppending)
      wrFile.Close
  DataArea.value = ""
  FileName.Value = ""
END FUNCTION
'----------------------------------------------------------
FUNCTION QuitEdit
   self.close
END FUNCTION
'----------------------------------------------------------
FUNCTION FileStat(FileName, msg)
 eFile = wkDir & FileName
 IF (fSo1.FileExists(eFile)) THEN
     msg = oFile & " exists."
     msgbox(msg)
     ELSE msg = "No File Name OR File Does NOT Exist"
     on error resume next
     msgbox(msg)
 END IF
END FUNCTION
'----------------------------------------------------------
</Script>
<body bgcolor="C0C0C0">
<Table>
<Th> HTA Text Edit </Th>
<TR><td>File Name: </td><td><input type="text" name="FileName"></td></TR>
</Table>
<Table border="1">
<TR><td>
<input type="BUTTON" value="New"  onclick="NewFile FileName"> 
<input type="BUTTON" value="Open"  onclick="OpenFile FileName, DataArea"> 
<input type="BUTTON" value="Save"  onclick="SaveFile FileName, DataArea">
<input type="BUTTON" value="Close"  onclick="CloseFile FileName, DataArea">
<input type="BUTTON" value="Quit"  onclick="QuitEdit">
</td></TR>
<TR><td>
<textarea name="DataArea" rows="20" cols=80></textarea>
</td></TR>
</Table>
</body>
</html>

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

Post #: 1

RE: Simple HTA Text Editor - 11/12/2007 12:02:52 AM

Meg

Posts: 123
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Hi mcds99,

I looked at your script but I can't get past the message "No File Name OR File Does NOT Exist"

Probably something simple but it's getting late at night for me.

(in reply to mcds99)