write and read an ini

[Gurk]

hi

the settings of my program are stored in an ini file, is there a simple way
to open the file in some textbox, ore a betteer soutable box.

i also want it to be able to resave the ini so people can modifi the ini.

an example is the program mysql (meightbe someone has seen it)
that's exatly wath i'm trying to do.

thank you .

[J French]

On Mon, 13 Sep 2004 10:12:22 +0200, "Gurk" <gu******@hotma il.com>
wrote:

hi

the settings of my program are stored in an ini file, is there a simple way
to open the file in some textbox, ore a betteer soutable box.

i also want it to be able to resave the ini so people can modifi the ini.

an example is the program mysql (meightbe someone has seen it)
that's exatly wath i'm trying to do.

thank you .

Public Sub FileStr(Fle$, S$)

Dim Handle As Integer

S$ = ""

On Error Resume Next
S$ = Space(FileLen(F le$))
On Error GoTo 0
If Len(S$) > 0 Then
Handle = FreeFile
Open Fle$ For Binary Access Read As Handle
Get #Handle, , S$
Close #Handle
End If

End Sub

Note that the above code does not care whether the file exists

Public Sub StrFile(S$, Fle$)

Dim Handle As Integer

Handle = FreeFile
Open Fle$ For Output As Handle
Print #Handle, S$;
Close #Handle

End Sub

[Gurk]

"J French" <er*****@nowher e.com> wrote in message
news:41******** *******@news.bt click.com...

On Mon, 13 Sep 2004 10:12:22 +0200, "Gurk" <gu******@hotma il.com>
wrote:

hi

the settings of my program are stored in an ini file, is there a simple wayto open the file in some textbox, ore a betteer soutable box.

i also want it to be able to resave the ini so people can modifi the ini.

an example is the program mysql (meightbe someone has seen it)
that's exatly wath i'm trying to do.

thank you .

Public Sub FileStr(Fle$, S$)

Dim Handle As Integer

S$ = ""

On Error Resume Next
S$ = Space(FileLen(F le$))
On Error GoTo 0
If Len(S$) > 0 Then
Handle = FreeFile
Open Fle$ For Binary Access Read As Handle
Get #Handle, , S$
Close #Handle
End If

End Sub

Note that the above code does not care whether the file exists

Public Sub StrFile(S$, Fle$)

Dim Handle As Integer

Handle = FreeFile
Open Fle$ For Output As Handle
Print #Handle, S$;
Close #Handle

End Sub

thank you for the reply

but when i open it, i get an error
path/file acces error, when i debug it marks this line.

Open Fle$ For Binary Access Read As Handle

and mightbe a stupid question, but where does it print the ini.
i dit this:

Public Sub FileStr(Fle$, S$)

Dim Handle As Integer

S$ = "c:\windows\PLC .ini"

On Error Resume Next
S$ = Space(FileLen(F le$))
On Error GoTo 0
If Len(S$) > 0 Then
Handle = FreeFile
Open Fle$ For Binary Access Read As Handle
Get #Handle, , S$
Text1.Text = Handle
Close #Handle
End If

End Sub

thank you

[Gurk]

ok i think i'm getting there, ive changed something in the code, it now
looks like this:

Public Sub FileStr(Fle$, S$)

Dim Handle As Integer

S$ = "c:\windows\PLC .ini"

On Error Resume Next
S$ = Space(FileLen(F le$))
On Error GoTo 0
If Len(S$) > 0 Then
Handle = FreeFile
Open S$ For Binary Access Read As Handle
Get #Handle, , S$
Text1.Text = (S$)
Close #Handle
End If

End Sub

but it only showes the first 2 lines of the ini, and
a space is shown as ||.

how comes??

thanks Maarten

"Gurk" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

"J French" <er*****@nowher e.com> wrote in message
news:41******** *******@news.bt click.com...

On Mon, 13 Sep 2004 10:12:22 +0200, "Gurk" <gu******@hotma il.com>
wrote:

hi

the settings of my program are stored in an ini file, is there a simple wayto open the file in some textbox, ore a betteer soutable box.

i also want it to be able to resave the ini so people can modifi the ini.
an example is the program mysql (meightbe someone has seen it)
that's exatly wath i'm trying to do.

thank you .

Public Sub FileStr(Fle$, S$)

Dim Handle As Integer

S$ = ""

On Error Resume Next
S$ = Space(FileLen(F le$))
On Error GoTo 0
If Len(S$) > 0 Then
Handle = FreeFile
Open Fle$ For Binary Access Read As Handle
Get #Handle, , S$
Close #Handle
End If

End Sub

Note that the above code does not care whether the file exists

Public Sub StrFile(S$, Fle$)

Dim Handle As Integer

Handle = FreeFile
Open Fle$ For Output As Handle
Print #Handle, S$;
Close #Handle

End Sub

thank you for the reply

but when i open it, i get an error
path/file acces error, when i debug it marks this line.

Open Fle$ For Binary Access Read As Handle

and mightbe a stupid question, but where does it print the ini.
i dit this:

Public Sub FileStr(Fle$, S$)

Dim Handle As Integer

S$ = "c:\windows\PLC .ini"

On Error Resume Next
S$ = Space(FileLen(F le$))
On Error GoTo 0
If Len(S$) > 0 Then
Handle = FreeFile
Open Fle$ For Binary Access Read As Handle
Get #Handle, , S$
Text1.Text = Handle
Close #Handle
End If

End Sub

thank you

[M. Godfrey]

ok heres how to read a file into a textbox.

1) make sure the text box property MultiLine is set to True.
2) Scroll Bars Property is set to vbBoth

Private Sub ReadFile(ByVal FileName As String) 'FileName is the path & name
of the File i.e. "c:\myIniFile.i ni"
Dim FileNumber As Long
Dim sData As String
FileNumber = FreeFile
Open FileName For Input As #FileNumber
Do While Not EOF(FileNumber)
Line Input #FileNumber, Line_Data

sData = sData & Line_Data & vbCrLf
Loop
Close #FileNumber
TxtTest.Text = sData
End Sub

'---------------------------------------------

Private Sub SaveFile (byVal FileName as string) 'FileName is the path & name
of the File i.e. "c:\myIniFile.i ni"
'Save the file
Dim FileNumber as long
Dim sData as string

sData = text1.text 'Text that contains the ini file to be saved

Open FileName for Output as #FileNumber
Print#FileNumbe r, sData
Close#FileNumbe r
End Sub

' I haven't tested this but it looks good, please tell me if you can't get
it to work i will walk you through it.

"Gurk" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

hi

the settings of my program are stored in an ini file, is there a simple
way
to open the file in some textbox, ore a betteer soutable box.

i also want it to be able to resave the ini so people can modifi the ini.

an example is the program mysql (meightbe someone has seen it)
that's exatly wath i'm trying to do.

thank you .

[Rick Rothstein]

> ok heres how to read a file into a textbox.

1) make sure the text box property MultiLine is set to True.
2) Scroll Bars Property is set to vbBoth

Private Sub ReadFile(ByVal FileName As String) 'FileName is the path & name of the File i.e. "c:\myIniFile.i ni"
Dim FileNumber As Long
Dim sData As String
FileNumber = FreeFile
Open FileName For Input As #FileNumber
Do While Not EOF(FileNumber)
Line Input #FileNumber, Line_Data

sData = sData & Line_Data & vbCrLf
Loop
Close #FileNumber
TxtTest.Text = sData
End Sub

This is routine is slightly better than yours as it reads the entire
file from the hard drive all at once instead of line-by-line.

Private Sub ReadFile(ByVal FileName As String)
Dim FileNum As Integer
Dim TotalFile As String
FileNum = FreeFile
' Reads the entire file into memory all at once
Open FileName For Binary As #FileNum
TotalFile = Space(LOF(FileN um))
Get #FileNum, , TotalFile
Text1.Text = TotalFile
Close #FileNum
End Sub

Rick - MVP

[Randy Birch]

read ...

Dim hFile as Long
Dim sFilename as String

sFilename = "c:\demo.tx t"

'obtain the next free file handle from the system
'and load the file into the textbox
hFile = FreeFile
Open sFilename For Input As #hFile
Text1.Text = Input$(LOF(hFil e), hFile)
Close #hFile
write ...

Dim hFile as Long
Dim sFilename as String

sFilename = "c:\demo.tx t"

'obtain the next free file handle from the
'system and and save the text box contents
hFile = FreeFile
Open sFilename For Output As #hFile
Print #hFile, Text1.Text
Close #hFile
Note however that as this code simply loads a textbox for free editing, it
can not ensure the file written after the user interacts with it will have
maintained an INI-style, which your application may require (depending on
how its coded to read the files). If ensuring the strict adherence to the
INI format is required you must move to the INI APIs (easy as pie to use).

See http://vbnet.mvps.org/code/file/pprofilebasic.htm
--
Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/

"Gurk" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...
: hi
:
: the settings of my program are stored in an ini file, is there a simple
way
: to open the file in some textbox, ore a betteer soutable box.
:
: i also want it to be able to resave the ini so people can modifi the ini.
:
: an example is the program mysql (meightbe someone has seen it)
: that's exatly wath i'm trying to do.
:
: thank you .
:
:

[preben nielsen]

"Gurk" <gu******@hotma il.com> skrev i en meddelelse
news:41******** *************** @news.skynet.be ...

hi

the settings of my program are stored in an ini file, is there a simple way to open the file in some textbox, ore a betteer soutable box.

Don't allow people to edet an ini file through your program ! They
will screw it up royally !
--
/\ preben nielsen
\/\ pr**@post.tele. dk

[Gurk]

thank you all for the reply's

they al work fine and helped me a lot

greets Maarten


"Gurk" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

hi

the settings of my program are stored in an ini file, is there a simple way to open the file in some textbox, ore a betteer soutable box.

i also want it to be able to resave the ini so people can modifi the ini.

an example is the program mysql (meightbe someone has seen it)
that's exatly wath i'm trying to do.

thank you .