VBA-string split in Text-Datei

So, hier ist das problem, ich habe eine text-Datei mit allen Informationen, die ich brauche, um die Eingabe in mein Programm (über VBA). Aber, es gibt eine Sektion, die ich brauche, um split, dann verwenden Sie die zweite Hälfte der split-string für mein Programm. ABER jedes mal, wenn ich diesen code ausführen, bekomme ich die Fehlermeldung, das "subscript out of range".

Hier der code:

Const modelList As String = "C:\modelList.txt"

Dim inFileNum As Integer
Dim strData As String
Dim strLine As Variant
Dim strSplit As Variant
Dim intCount As Integer

intFileNum = FreeFile
intCount = 0
Open modelList For Input As #intFileNum
Do Until EOF(intFileNum)
Input #intFileNum, strData
    Do Until strData = "[SPECS]"
    Input #intFileNum, strData
        Do Until strData = " "
        Input #intFileNum, strData
            strSplit = Split(strData, " ")
                For Each strLine In strSplit
                    SPECS.Value = strSplit(1)
                Next
        Loop
    Loop
Loop
Close #intFileNum

Bitte helfen.

  • Bitte verwenden Sie {} Sie auf der Symbolleiste auf format-code korrekt (markieren Sie den code, und klicken Sie auf die Schaltfläche).
  • Warum tun Sie das Präfix eine Variante Namen mit "str" ??? Gift-das Leben der nächste Kerl, haben zu erhalten Ihren code ?
  • Für die meisten Teil, es ist viel sicherer als Präfix von Variablen in VBA eher als Risiko zu beenden, bezieht sich sowohl auf eine Kontrolle und eine variable mit dem gleichen Namen oder mit einem reservierten Wort oder eine Funktion als variable.
InformationsquelleAutor user1073626 | 2011-11-30
  1. 1

    Dein problem ist in diesem code hier:

        Do Until strData = " "
    Input #intFileNum, strData
        strSplit = Split(strData, " ")
            For Each strLine In strSplit
                SPECS.Value = strSplit(1)
            Next
    Loop

    Sie nicht tun, werden Sie die Prüfung für strData = " " bis nach der Split Funktion ausgeführt wird (dh, zu Beginn der nächsten Schleife, iteration). Versuchen Sie Folgendes statt:

        Do 
        Input #intFileNum, strData
        If strData = " " Or InStr(strData, " ") = 0 Then Exit Do

        strSplit = Split(strData, " ")
        For Each strLine In strSplit
            SPECS.Value = strSplit(1)
        Next
    Loop
    InformationsquelleAutor mwolfe02
  2. 0

    Ein weiterer Ansatz wäre die Prüfung für die Obere Grenze des split-array.

    strSplit = Split(strData, " ")
For Each strLine In strSplit
    '~~~Assuming that you always want the second element, if available
    If (UBound(strSplit)) > 0 Then
        SPECS.Value = strSplit(1)
    Else
        SPECS.Value = strSplit(0)
    End If
Next
    InformationsquelleAutor teddy2
Schreibe einen Kommentar