Programming Forums > Application Development > Visual Basic

darklord_205 · Aug 27th, 2004, 8:52 AM

O.K, this may be easiest thing in the world to do, but I don't know how to save data (e.g ComboBox Items) from a VB6 application into a text file (without a flex grid). I can load from a file, and do so using this code:

(Toggle Plain Text)

Private Sub Form_Load()
Dim file As String
file = "h:\DL - BRU.txt" 
Open file For Input As #1
row = 1 
Do Until EOF(1)
Input #1, rm(row)
cmbNo.AddItem rm(row), num(row)
Form3.cmbNo.AddItem rm(row), num(row)
row = row + 1
Loop

Is it possible to save using similiar code?

Pizentios · Aug 27th, 2004, 9:10 AM

If you are needing to save a variable to disk as a file, add this function to your project (cut & paste) and then use the example below for how to call it.

(Toggle Plain Text)

Private Function SaveFile(txtFile, ByVal MyText As String)
  Dim FileNum As Integer

  FileNum = FreeFile()

  Open txtFile For Output As FileNum
  Print #FileNum, MyText;
  Close FileNum
End Function

Say your variable containing data you want saved was named

(Toggle Plain Text)

strVarA

You would use like so:

(Toggle Plain Text)

SaveFile "D:\File.txt", strVarA

You do not need to use a variable in place of strVarA, you can just put the text you want to save inside of quotes.

(Toggle Plain Text)

SaveFile "D:\File.txt", "This is the contents of File.txt"

darklord_205 · Aug 27th, 2004, 9:57 AM

Thanks

Pizentios · Aug 27th, 2004, 10:21 AM

No Prob. Welcome to the Forums by the way.

Aug 27th, 2004, 9:10 AM	#2
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	If you are needing to save a variable to disk as a file, add this function to your project (cut & paste) and then use the example below for how to call it. (Toggle Plain Text) Private Function SaveFile(txtFile, ByVal MyText As String) Dim FileNum As Integer FileNum = FreeFile() Open txtFile For Output As FileNum Print #FileNum, MyText; Close FileNum End Function Private Function SaveFile(txtFile, ByVal MyText As String) Dim FileNum As Integer FileNum = FreeFile() Open txtFile For Output As FileNum Print #FileNum, MyText; Close FileNum End Function Say your variable containing data you want saved was named (Toggle Plain Text) strVarA strVarA You would use like so: (Toggle Plain Text) SaveFile "D:\File.txt", strVarA SaveFile "D:\File.txt", strVarA You do not need to use a variable in place of strVarA, you can just put the text you want to save inside of quotes. (Toggle Plain Text) SaveFile "D:\File.txt", "This is the contents of File.txt" SaveFile "D:\File.txt", "This is the contents of File.txt" __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!

Aug 27th, 2004, 10:21 AM	#4
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	No Prob. Welcome to the Forums by the way. __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Aug 27th, 2004, 8:52 AM	#1
darklord_205 Newbie Join Date: Aug 2004 Posts: 2 Rep Power: 0	O.K, this may be easiest thing in the world to do, but I don't know how to save data (e.g ComboBox Items) from a VB6 application into a text file (without a flex grid). I can load from a file, and do so using this code: (Toggle Plain Text) Private Sub Form_Load() Dim file As String file = "h:\DL - BRU.txt" Open file For Input As #1 row = 1 Do Until EOF(1) Input #1, rm(row) cmbNo.AddItem rm(row), num(row) Form3.cmbNo.AddItem rm(row), num(row) row = row + 1 Loop Private Sub Form_Load() Dim file As String file = "h:\DL - BRU.txt" Open file For Input As #1 row = 1 Do Until EOF(1) Input #1, rm(row) cmbNo.AddItem rm(row), num(row) Form3.cmbNo.AddItem rm(row), num(row) row = row + 1 Loop Is it possible to save using similiar code?

Aug 27th, 2004, 9:57 AM	#3
darklord_205 Newbie Join Date: Aug 2004 Posts: 2 Rep Power: 0	Thanks

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Noob Question - Saving [solved]