Hallo,
habe folgendes Problem. Habe eine txt Datei die so aussieht:
X:\yyyyy\blabla.pdf / Besitzer: bbbbbbbbb / 200000 Bytes
X:\cccccc\blibli.txt / Besitzer: aaaaaaaaa /250000 Bytes
das geht so weiter da kommen noch viele Zeilen und jeweils immer unterschiedliche Dateinamen, Dateitypen, Besitzer und Dateigrößen.
jetzt habe ich z.b. so ein vbs Skript:
Option Explicit
Public Sub TextImport()
Dim strText As String
Dim avntValues As Variant, ialngIndex As Long
Dim intFileNumber As Integer
Dim lngRow As Long
Reset
intFileNumber = FreeFile
Open "D:\Test.txt" For Input As #intFileNumber
Do Until EOF(intFileNumber)
Line Input #intFileNumber, strText
avntValues = Split(Replace(strText, "Besitzer:", vbNullString), "/")
For ialngIndex = LBound(avntValues) To UBound(avntValues)
avntValues(ialngIndex) = Trim$(avntValues(ialngIndex))
Next
lngRow = lngRow + 1
Cells(lngRow, 1).Resize(1, UBound(avntValues) - LBound(avntValues) + 1).Value = avntValues
Loop
Close #intFileNumber
End Sub
Dieses Skript schreibt jetzt alle Zeilen folgendermaßen geordnet in ein Excel sheet, sodass nach den Spalten gefiltert werden kann. Dieses Excel Sheet sieht dann so aus:
Pfad Besitzer Dateigröße
X:\yyyyy\blabla.pst bbbbbbbbb 200000 Bytes
X:\cccccc\blibli.pst aaaaaaaaa 250000 Bytes
(Pfad, Besitzer, Dateigröße das sollen die Spaltenüberschriften sein, leider steht in der txt Datei auch schon Besitzer drin, das wurde mit diesem Skript aber ignoriert, weil des nicht in den Zellen in der Spalte mit dabei stehen soll, sondern in den Zellen in der Spalte Besitzer steht jetzt wirklich nur der Besitzername also z.b. aaaaaaaaa).
Nun zum Ziel:
Jetzt sollen NICHT ALLE ZEILEN von der txt Datei in ein Excel sheet geschrieben werden. FOLGENDE DATEITYPEN SOLLEN NICHT mit in das Excel Sheet:
qw_ertz_uioppü_asdfgh_jkl_öäyxcvb_nmqwertz_uioppü.txt
qwertz.fn
*.Omk
Es sollen später noch mehr DATEITYPEN kommen die NICHT mit in das Excel Sheet kommen sollen.
(Das sind natürlich nur Pseudonyme für die Dateiendungen)
bitte dringend um Hilfe.
|