Laden Sie linux text-Datei in excel mit VBA

Ich habe eine text-Datei erstellt, die auf linux, wenn ich es öffnen in Word pad die Datei normal angezeigt. Allerdings, wenn ich öffnen Sie es in Editor, und wenn ich versuche, laden Sie Sie in excel mit dem code unten, es erscheint als eine einzige Zeile.

' Open the file
Open Filename For Input As #1

' Look for the Table Title
Do While Not (EOF(1) Or InStr(TextLine, TableTitle) > 0)
    Line Input #1, TextLine
Loop

Wie kann ich es aufgeteilt in die ursprünglichen Linien? Gibt es eine end-of-line-seperator, dass vba nutzen kann?

InformationsquelleAutor Chris | 2012-06-08

  1. 12

    Linux verwendet ein line-feed ( \n ), um eine neue Zeile, anstatt die carriage return+line-feed ( \r\n ), wie bei Windows, so dass Sie nicht verwenden können Line input statt:

    Open Filename For Input As #1
'//load all
buff = Input$(LOF(1), #1)
Close #1

'//*either* replace all lf -> crlf
buff = replace$(buff, vbLf, vbCrLf)
msgbox buff

'//*or* line by line
dim lines() As String: lines = split(buff, vbLf)
for i = 0 To UBound(lines)
   msgbox lines(i)
next
    Wenn Sie zu line-by-line-Verarbeitung, die Sie wollen, zu tun buff = replace$(buff, vbCrLf, vbLf) und führen Sie dann die split() Logik. , Die Windows-Zeilenenden normalisiert werden, um Unix-style.

    InformationsquelleAutor Alex K.

  2. 4

    Die Funktion

    Public Function GetLines(fpath$) As Variant
    'REFERENCES:
    'Microsoft Scripting Runtime //Scripting.FileSystemObject
    'Microsoft VBScript Regular Expressions 5.5 //VBScript_RegExp_55.RegExp
    Dim fso As New Scripting.FileSystemObject, RE As New VBScript_RegExp_55.RegExp
    If fso.FileExists(fpath) = True Then
        Dim mts As MatchCollection, mt As Match
        Dim lines() As String
        Dim content$: content = fso.OpenTextFile(fpath).ReadAll()
        With RE
            .Global = True
            .Pattern = "[^\r\n]+" 'catch all characters except NewLines/Carraige Returns
            If .test(content) = True Then
                Set mts = .Execute(content)
                ReDim lines(mts.Count - 1)
                Dim pos&
                For Each mt In mts
                    lines(pos) = mt.Value
                    pos = pos + 1
                Next mt
            Else
                MsgBox "'" & Dir(fpath) & "' contains zero bytes!", vbExclamation
            End If
        End With
        GetLines = lines
    Else
        MsgBox "File not found at:" & vbCrLf & Dir(fpath), vbCritical
    End If
End Function

    und konnte aufgerufen werden (von immediate window)

    ?GetLines("C:\BOOT.INI")(2)

    und die Ausgabe

    default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS

    Das obige Beispiel könnte verwendet werden, um alle Zeilen aus einer Textdatei stammt, von jedem OS.

    Hoffe, das hilft.

    2 Jahre später, und dies hat mich gerettet, eine MENGE Arbeit, ich danke Ihnen sehr viel. Es hat nicht auftreten zu mir, bis die Dinge schief gelaufen ist, dass die Dateien, die ich arbeite, stammen aus einer Reihe von verschiedenen Betriebssystemen! Dies ist ein life saver.

    InformationsquelleAutor Cylian

  3. 1

    Öffnen Sie die linux-text-Datei mit Windows "Word Pad". Speichern Sie die Datei. Word Pad konvertieren die linux Zeilenvorschub (\n) , carriage return+line feed (\r\n), da es speichert die Datei. Keine Codierung erforderlich.

    InformationsquelleAutor jlnerd

Schreibe einen Kommentar