vb6 - VB6 カテゴライズ検索機能

Question

以下の情報を含むテキスト ファイルがある場合、たとえば system1 のみなど、バージョンを検索する最良の方法は何ですか? (vb6 コードでは、使用できますInStrか?)

【システム1】

バージョン=xx
日付=xx


【システム2】

バージョン=xx
日付=xx

Answer 1

サンプルファイルは、標準のINIファイルのように見えます。GetPrivateProfileString()および関連する関数を使用してこれらを読み取ることができます。GetPrivateProfileSectionNames()およびを使用してセクションと値を列挙することもできますGetPrivateProfileSection()。

Answer 2

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

Answer 3

バージョンの後、日付の前にスペースがあるとします (str がテキストになります)。

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

しかし、そこには .ini ファイルを解析する関数がたくさんあります。