File Dialog Box read and write text files

// Display the file opening dialog box

Cfiledialog DLG (true, "SQL"
, "*. Txt"
, Ofn_hidereadonly

| Ofn_overwriteprompt, "text files (*. txt) | *. txt | SQL files (*.
SQL) | *. SQL | all files (*. *) | *. * |"
);
If
(DLG. domodal ()! = Idok) Return
;
// Obtain the absolute path of the object

Cstring sfilename = DLG. getpathname ();
// Open the file
Cstdiofile out;

Out. Open (sfilename, cfile: moderead );
Cstring ssql = ""
, S;
// Read the file

Do
{
Out. readstring (s );
Ssql = ssql + S + "R
N"
;
} While (Out. getposition () Out. Close ();

// Afxmessagebox (ssql );


// Display the File Save dialog box
Cfiledialog DLG (false, "SQL"
, "*. Txt"
, Ofn_hidereadonly

| Ofn_overwriteprompt, "text files (*. txt) | *. txt | SQL files (*. SQL) | *.

SQL | all files (*. *) | *. * |"
);

If (DLG. domodal ()! = Idok) Return
;
// Obtain the absolute path of the object

Cstring sfilename = DLG. getpathname ();
Cstdiofile out;
// Open the file
Out. Open (sfilename, cfile: modecreate | cfile: modewrite );
// Save the file

Cstring ssql = "Text
Content of this document"
;
Out. writestring (ssql );
Out. Close ();