Saving A Text / HTML file {Resolved}

[robcarr2]

Hey I want to save a file to either text or html frm a richtext box, here is my code i have written that wont work

Private Sub mnuFileSave_Click()
Dim sfilename As Long
On Error GoTo Err
CommonDialog1.Filter = "Text Document|*.txt |HTML Document | *.htm;*.html"
CommonDialog1.ShowSave
sfilename = CommonDialog1.FileName
Open sfilename For Output As #1
Write #1, RichTextMain1.Text
Close #1
Err:
End Sub

[baja_yu]

Why doesnt it work? Do you get an error? If yes then what error and on what line?

[sciguyryan]

Did you get ane error messages? If yes what was it (Or were they)?

I have an idea, try this:

Private Sub mnuFileSave_Click()
    Dim sfilename As Long
    Dim intFree As Integer
    intFree = FreeFile
    On Error GoTo Err
    CommonDialog1.Filter = "Text Document|*.txt |HTML Document | *.htm;*.html"
    CommonDialog1.ShowSave
    sfilename = CommonDialog1.FileName
    Open sfilename For Binary Access Write As #intFree
        Put #intFree, , RichTextMain1.Text
    Close #intFree
    Err:
End Sub

Cheers,

RyanJ

[robcarr2]

Tried that and it does the same as what happens at moment, no error message, but doesnt save file

[robcarr2]

i took the on error goto err: and it said 'Type Mismatch' when i tried saving and highlighted this

sfilename = CommonDialog1.FileName

[sciguyryan]

i took the on error goto err: and it said 'Type Mismatch' when i tried saving and highlighted this

sfilename = CommonDialog1.FileName

Hits head against wall...

Why didn't I see that?

Try this:

Private Sub mnuFileSave_Click()
    Dim sfilename As String
    Dim intFree As Integer
    intFree = FreeFile
    On Error GoTo Err
    CommonDialog1.Filter = "Text Document|*.txt |HTML Document | *.htm;*.html"
    CommonDialog1.ShowSave
    sfilename = CommonDialog1.FileName
    Open sfilename For Binary Access Write As #intFree
        Put #intFree, , RichTextMain1.Text
    Close #intFree
    Err:
End Sub

Cheers,

RyanJ

[dglienna]

The RTB can save a file.

rtbReceipt.SaveFile App.Path & "\LastInvoice.rtf"

It preserves formatting, and you can open it in word.

[sciguyryan]

The RTB can save a file.

rtbReceipt.SaveFile App.Path & "\LastInvoice.rtf"

It preserves formatting, and you can open it in word.

One problem, that is a bad thing if you want to save it as a plain text file or HTML file which i think is what is trying to be done here

Cheers,

RyanJ

[robcarr2]

One problem, that is a bad thing if you want to save it as a plain text file or HTML file which i think is what is trying to be done here

Cheers,

RyanJ

I am trying to save as plain text or html but thanks for the info on rtf files as i was also unsure about that

[sciguyryan]

I am trying to save as plain text or html but thanks for the info on rtf files as i was also unsure about that

Did you try the last code I posted?

It looks like you were trying to return a string into a long (This can only be done in pointers, not available in VB anyway so no need to worry about it... )

RyanJ

[robcarr2]

Yes I did it worked, thanks

[sciguyryan]

Yes I did it worked, thanks

Great!

Just remember to edit your origina post and add the green checkmark as its icon and add [Resolved] to yuor post title

Cheers,

RyanJ

[dglienna]

This will save it as a text file

rtbReceipt.SaveFile App.Path & "\LastInvoice.rtf",1

[sciguyryan]

This will save it as a text file

rtbReceipt.SaveFile App.Path & "\LastInvoice.rtf",1

I never knew it had a second perameter!

Thanks for the tip dglienna

Cheers,

RyanJ