Opening .ini file & using contents in textbox VBA

[DJ MC]

Hi, iv been having trouble the last couple of weeks with a bit of vb,
wondering if anyone could help. I Have a window which has a textbox ok
and cancel button, in the textbox i need the value to show the contents
of a .ini file, iv already got working that whatever the user types
into the textbox and hits OK is written to the .ini file, i just need
the textbox to display whatever value is in the file. any help
appreciated

Matt

 

[Steve Rindsberg]

Hi, iv been having trouble the last couple of weeks with a bit of vb,
wondering if anyone could help. I Have a window which has a textbox ok
and cancel button, in the textbox i need the value to show the contents
of a .ini file, iv already got working that whatever the user types
into the textbox and hits OK is written to the .ini file, i just need
the textbox to display whatever value is in the file. any help
appreciated

Try plugging this into Google:
ini read write vb

Or go directly to The Good Stuff:

http://vbnet.mvps.org/

and search on INI

 

[Karl E. Peterson]

Hi, iv been having trouble the last couple of weeks with a bit of vb,
wondering if anyone could help. I Have a window which has a textbox ok
and cancel button, in the textbox i need the value to show the
contents of a .ini file, iv already got working that whatever the
user types into the textbox and hits OK is written to the .ini file,
i just need the textbox to display whatever value is in the file. any
help appreciated

If you need to manipulate the contents of an INI file, entry by entry,
section by section, here's a drop-in ready class that couldn't make it any
easier:

http://vb.mvps.org/samples/kpIni

It sounds, however, like "all" you're doing is just spitting the content of
a textbox to a file, and the fact it's an INI file is merely coincidental?
If so, there's a far easier way:

Public Function WriteFile(ByVal FileName As String, ByVal Text As String)
As Boolean
Dim hFile As Long
On Error GoTo Hell
hFile = FreeFile
Open FileName For Output As #hFile
Print #hFile, Text
Close #hFile
Hell:
WriteFile = Not CBool(Err.Number)
End Function

Just pass the textbox content, along with the desired filename, to that
routine.

Later... Karl