A problem saving files

[Dreys]

Well the title says most, and i thank everyone who helped me with my last problem. But right now i was working on creating my own small wanna-be notepad. But when i use the function:

Form1.CommonDialog1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"
Form1.CommonDialog1.ShowSave
Form1.RichTextBox1.SaveFile (Form1.CommonDialog1.FileName)
Form1.Caption = Form1.CommonDialog1.FileName & ""

Then save through that it gives you all sorts of garbage before the text you really want is shown. An Example of what i mean. The text is suppose to be test, but it comes out like this:

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss MS Sans Serif;}}
{\colortbl\red0\green0\blue0;}
\deflang1033\pard\plain\f2\fs17 --> test <--
\par }
I went and tried to look for other examples but they were using things like
cd1.ShowSave
And stuff like that, and when i searched through the code it had nothing declaring cd1.
Please help, thanks!

[HarryW]

Looks like it's saving it as rich text rather than plain text. If you open up a rich text file that you've made with just the text "Test" in it then I'll bet that would give you almost if not completely identical results.

I don't know much about the common dialog, so all I can say is make sure you're using plain text and not rich text.

[kedaman]

cd1 is probably the commondialog control which is what you leaved named CommonDialog1, use that name instead.
Also to make the cancel button work, you need to activate the cancelerror, set it to true in the commondialog properties. Then make a simple error handler for it

on error resume next
If Me.Parent = Nothing Then 
with form1
  .CommonDialog1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*" 
  .CommonDialog1.ShowSave 
  if err then exit sub'or function or whatever
  .RichTextBox1.SaveFile (Form1.CommonDialog1.FileName) 
  .Caption = Form1.CommonDialog1.FileName & "" 
end with

[Shrog]

You can save the contents of your rich textbox in two different formats:

a) with formatting (bold, different sizes, colors, etc.)
b) Straight forward normal boring old text (like notepad)

The SaveFile method has two parameters. The first is the filename of the file you are saving, and the second specifies in which of the two formats you want to save your file. Since you do not specify the second parameter, it defaulted to RTF format, which gave you all the garbage you saw.

So basically, there is nothing wrong with the way you are using the common dialogue control. Try this instead:

  'For normal text
  RichTextBox1.SaveFile (Form1.CommonDialog1.FileName, rtfText)
  'For formatted text
  RichTextBox1.SaveFile (Form1.CommonDialog1.FileName, rtfRTF)

When you save normal text, your file should be saved as .txt, but when you save with formatting, be sure to use the .rtf extension.

You can make your program better than Notepad, by allowing the user the choice of formatted or non-formatted text.

Hope this helps.
Shrog

[Dreys]

Cool thanks a lot for the help!