Script to insert text into text file

[ahynes]

HI folks,

I'm a chem engineer with no VB programming knowledge (as you'll see from my question!)

I want a script to open a .txt file, insert pre-defined text into the start and end of the file, then close teh saved file with a .nc extension.

I'd like to have this as a batch file or exe file which i can installt o run from my users desktops.

I tried doing it in Word using macros and the FileDialog thingy to bring up dialogs for the user to select his files but it would not save for me and I couldn;t figure how to get it outside of Word. Code below.

' Test1 Macro
' To open FIle-Open dialog box
    With Dialogs(wdDialogFileOpen)
    .Name = "*.txt"
    .Show
    End With
' To insert the text
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.HomeKey Unit:=wdStory
    Selection.TypeText Text:="The next line sends a 'Change State' command to system"
    Selection.TypeParagraph
    Selection.TypeText Text:="M3"
    Selection.TypeParagraph
    Selection.TypeText Text:="The next line tells system to Dwell for 5 seconds"
    Selection.TypeParagraph
    Selection.TypeText Text:="G04H5"
 
'This is where the error occurs  
With Dialogs(wdDialogFileSave)
    .Name = "*.*"
    .Show
End With
 
End Sub
 

Help greatly appreciated

[Dököll]

Hello Mr. Hynes!

I am may have a simpler solution program for you. Are you typing in the text or will the text be added by your form load?

I am keeping a log of your message to ensure I get to it whn needed. I have an example program here fro the college, may be helpful to you.

Dököll

[Killer42]

If the text is the same every time, you could probably something with a batch file. I'm thinking something along the lines of...

COPY HeaderStuff.Txt+YourTextFile.txt+FooterStuff.Txt YourTextFile.nc

...or, if you can provide the input file name as a parameter to the batch file...

COPY HeaderStuff.Txt+%1+FooterStuff.Txt %1.nc

This one would produce a modified copy with .nc added onto the end of the existing filename and extension - Eg. YourTextFile.tx t.nc.