Ich habe eine durch Pipes getrennte Datei, die aus einem Server-Update exportiert wurde. Sie enthält ungefähr 134 Millionen Datensätze. Ich verwende Excel, um eine kleine Anzahl von Datensätzen (1.000 - 10.000) zu importieren, um die Daten zu untersuchen und nach Problemen zu suchen, bevor ich die Daten in andere Programme (wie SAS) einlese.
Es gibt ein Problem in der Datei bei etwa Datensatz 6200, aber ich kann die Datei nicht lesen, da Excel nur die ersten 3.200 Datensätze liest. Ich habe festgestellt, dass die Datei mehrere Dateiende-Markierungen enthält (die Datei ist von Linux, wobei Windows 1A Hex Coed findet, das das Dateiende markiert). Hat jemand eine Idee, wie man das umgehen kann? Mein aktueller Code lautet wie folgt:
Sub Test()
file = "c:\user\myfile"
Open file For Input As #1
For i = 1 To 10000
Line Input #1, dat
Cells(i, 1) = dat
Next i
Close #1
End Sub
Antwort1
Versuchen Sie, den Wert in der Datei zu finden und zu ersetzen:
Dim CellContent as String
Dim NewCellContent as String
CellContent = 'the line you're bringing in
NewCellContent = (Worksheetfunction.Substitute([your line], chr(26),vbnullstring))
Do Until CellContent = NewCellContent
CellContent = NewCellContent
NewCellContent = Worksheetfunction.Substitute(NewCellContent,chr(26),vbnullstring)
Loop
Oder Sie verwenden reguläre Ausdrücke.