VB6 categorize search function

Question

If I have a text file that contains the below information, what is the best way to search for the version, for example on system1 only? (in vb6 code, can I use InStr?)

[system1]

version=xx
date=xx


[system2]

version=xx
date=xx

See http://stackoverflow.com/q/165796/11683. – GSerg Feb 25 '13 at 21:28 — GSerg, Feb 25 '13 at 21:28

score 1 · Answer 1 · answered Feb 26 '13 at 09:50

1

The sample file looks like a standard INI file. You can read these using the GetPrivateProfileString() and related functions. You can also enumerate the sections and values using GetPrivateProfileSectionNames() and GetPrivateProfileSection().

answered Feb 26 '13 at 09:50

Deanna

23,876
7
71
156

1

+1 Also Karl E Peterson's drop-in class is good http://vb.mvps.org/samples/kpIni/ – MarkJ Feb 26 '13 at 20:57

score 0 · Answer 2 · answered Feb 25 '13 at 21:29

0

Supposing there is a space after the version and before date (str would be your text):

Dim version As String
version = Mid(str, InStr(str, "version") + 8)
version = Mid(version, 1, InStr(version, " "))

But there are a bunch of functions to parse .ini files out there.

answered Feb 25 '13 at 21:29

Hanlet Escaño

17,114
8
52
75

what if i only want the version under [system2]..yours will find the first occurrence of 'version' wont it? – user1179317 Feb 26 '13 at 01:48
You can find the second index of version or find system2 first. – Hanlet Escaño Feb 26 '13 at 02:15
@HanletEscaño but it may not by in the second `[SystemX]` group. – Deanna Feb 27 '13 at 08:53

score 0 · Answer 3 · answered Feb 26 '13 at 04:29

I created a text file "C:\MYFILE.TXT" and this is the content of the file:

[system1]

version=aa
date=bb


[system2]

version=yy
date=zz

[system3]

date=4

[system4]

[system5]

As you can see, I made all possible situation, ie. a system with version info, a system with no version info, etc. Then I wrote this code:

Here is one way to look for a value under a categorized list:

Dim mySystem As String
Dim myVersion As String

mySystem = "[system2]"    'Replace this with the system you are looking for

Dim strTmp As String
Dim SystemFound As Boolean
Dim VersionFound As Boolean

Open "c:\myfilename.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, strTmp
        If InStr(UCase(strTmp), UCase(mySystem)) > 0 Then
            SystemFound = True
            strTmp = ""
            Do While Not EOF(1) And InStr(strTmp, "[") = 0
                Line Input #1, strTmp
                If InStr(UCase(strTmp), "VERSION") > 0 Then
                    VersionFound = True
                    myVersion = Mid(strTmp, InStr(strTmp, "=") + 1, Len(strTmp))

                End If
            Loop
            Exit Do
        End If
    Loop
Close #1

If SystemFound And VersionFound Then
    MsgBox "The Version of " & mySystem & " is " & myVersion
ElseIf SystemFound And Not VersionFound Then
    MsgBox "The system " & mySystem & " has no version definition"
ElseIf SystemFound = False Then
    MsgBox "The system " & mySystem & " is not found in file"
End If

VB6 categorize search function

3 Answers3