text-dateien auslesen

Forumthread: text-dateien auslesen

04.05.2006 20:29:02

Bernd

hallo,
ich möchte 2 txt-dateien mit einander vergleichen.
wenn es eine übereinstimmung gibt, soll die zeile in der textdatei in die erste zeile der xls datei geschrieben werden.
usw.
beispiel:
txt-datei 1 hat vollgenden inhalt:
Datensatz ist gar nicht so gross
0202000154 ist keine zahl sondern text
in tx-datei 2 steht:
0202000154;55487621;Gerd;Mai;Schulstrasse 28;22099 Hamburg
0202000155;55487622;Frank;Juni;Gasse 28;22099 Hamburg
0202000156;55487623;Manuell;Juli;Weg 28;22099 Hamburg
0202000157;55487624;Frida;August;Pfad 28;22099 Hamburg
nun soll eine übereinstimmung beider txt-dateien erfolgen und wenn ein textinhalt aus txt 1 in txt 2 gefunden wird, soll die gefundene zeile in tabelle1 oben beginnend eingetragen werden
ich hoffe mich verständlich gemacht zu haben und vilen dank imvorraus.
habe keine ahnung ob das überhaupt geht.
gruss Bernd

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: text-dateien auslesen

04.05.2006 20:55:13

Erich
AW: text-dateien auslesen

05.05.2006 08:15:34

Heiko

AW: text-dateien auslesen

04.05.2006 20:55:13

Erich

Hallo Bernd,
mein Vorschlag:
Mit Word kann man ganz gut Dateien vergleichen, ganz ohne Programmierung - auch Textdateien.
Die Ergebnisse kannst du dann auch noch in ein Excel-Tabellenblatt kopieren.
Grüße von Erich aus Kamp-Lintfort

AW: text-dateien auslesen

05.05.2006 08:15:34

Heiko

Hallo Bernd,
z.B. so:


Sub Vergleich()
Dim arrDaten1() As String, arrDaten2() As String
Dim strHelp1 As String, strhelp2 As String
Dim lng1 As Long, lng2 As Long, lngZZ As Long
' Pfade für die Textdateien anpassen.
' Datei 1 ist die nur mit den Nummern
Open "C:\Copy\TextDat1.txt" For Binary As #1
strHelp1 = Space(LOF(1))
Get #1, , strHelp1
arrDaten1 = Split(strHelp1, vbCrLf)
Close #1
' Datei 2 ist die mit den weiterren Angaben.
Open "C:\Copy\TextDat2.txt" For Binary As #1
strhelp2 = Space(LOF(1))
Get #1, , strhelp2
arrDaten2 = Split(strhelp2, vbCrLf)
Close #1
lngZZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
For lng1 = 0 To UBound(arrDaten1)
For lng2 = 0 To UBound(arrDaten2)
If arrDaten1(lng1) <> "" And arrDaten2(lng2) <> "" Then
If InStr(1, arrDaten2(lng2), arrDaten1(lng1)) > 0 Then
ActiveSheet.Cells(lngZZ, 1) = arrDaten2(lng2)
lngZZ = lngZZ + 1
End If
End If
Next lng2
Next lng1
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

Forumthread: text-dateien auslesen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread