Pulling INI data..

[Fragment]

I'm trying to create a different way to pull data from a ini file. Rather than only pulling the values, i wish to pull everything under the [name] until it reaches another [name].

Example:

[namehere]
1=a
2=b
3=c
etc...
[name2here]

i wish to pull the following:
1=a
2=b
3=c
etc..

can it be done? i hate working with txt files

[Inuyasha1782]

It's not the best way, but an example anyway:

Private Sub Command1_Click()
    Dim ff, x, y As Integer
    Dim entrys(100, 100) As String
 
 
    ff = FreeFile
 
    Open "C:\test.ini" For Input As ff
    Do Until EOF(ff)
        Line Input #ff, strLine
 
        If InStr(1, strLine, "[") Then
            x = 0
           If strLine <> vbNull Then entrys(y + 1, x) = strLine
            y = y + 1
        Else
            If strLine <> vbNull Then entrys(y, x + 1) = strLine
            x = x + 1
        End If
 
    Loop
 
    Close #ff
 
    MsgBox entrys(1, 0)
    MsgBox entrys(1, 1)
 
End Sub

That would put everything into an array. Each name would be in (1, 0) - (2, 0) - (3, 0) and their child entrys would be the second dimension like (1, 1) - (2, 1). I'm sure there is a better way, but it works

[Fragment]

yah it works, but i'm going to need something that starts at the [name] that i want, and finish at the next [name] but pull all the info between the two. The [name] could be on any line, so it would be very hard for me to find using that code.

[Andrew G]

Try this

Dim StartWord As String
Dim FinishWord As String
Dim StrData As String
 
StartWord = "[namehere]"
FinshWord = "[name2here]"
 
Open FileName For Input As #1
    StrData = Input(LOF(1), 1)
    strt = InStr(1, StrData, StartWord) + Len(StartWord)
    fnsh = InStr(1, StrData, FinshWord)
    MsgBox Mid(StrData, strt, fnsh - strt)
Close #1

[Fragment]

a bit buggy. heres the thing though. i will only know the name of the info that i need to pull. The name that it should stop at is random. So the only way i can think of stopping it, is simply using a [ to hault.

[Andrew G]

Try this (not tested)

Dim StartWord As String
Dim FinishWord As String
Dim StrData As String
 
StartWord = "]"
FinshWord = "["
 
Open FileName For Input As #1
    StrData = Input(LOF(1), 1)
    strt = InStr(1, StrData, StartWord)
    fnsh = InStr(strt, StrData, FinshWord)
    MsgBox Mid(StrData, strt, fnsh - strt)
Close #1

[RhinoBull]

There are few api functions exist for ages that specifically designed to read/write from/to INI files.
Sample project is attached.

[Fragment]

Try this (not tested)

Dim StartWord As String
Dim FinishWord As String
Dim StrData As String
 
StartWord = "]"
FinshWord = "["
 
Open FileName For Input As #1
    StrData = Input(LOF(1), 1)
    strt = InStr(1, StrData, StartWord)
    fnsh = InStr(strt, StrData, FinshWord)
    MsgBox Mid(StrData, strt, fnsh - strt)
Close #1

Hey that works out pretty good. But by looking at it, there wouldn't be a way to check to see if there is a "=" on the same line that the finishword is on, because all of the data is in one big chunk. Would there be another way of doing this, maybe using split?

[RhinoBull]

Have you looked at the sample I posted? Don't try to re-invent the wheel...

[Fragment]

Have you looked at the sample I posted? Don't try to re-invent the wheel...

Yes, didn't have much time to fully read it though. give me a sec

[Fragment]

ehh bit buggy, couldn't really tell if that was even what i'm looking for. i could only get it to pull the info to the left of the '=' without having it lock up on me.

shrug