Pulling INI data..

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 :eek2:

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

VB Code:

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 :p

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.

Try this

VB Code:

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

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.

Try this (not tested)

VB Code:

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

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

Quote:

---

Originally Posted by Andrew G

Try this (not tested)

VB Code:

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?

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

Quote:

---

Originally Posted by RhinoBull

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

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