TXT Datei in Excel importieren und aufsplitten

[Zwergel]

Hi,
mir liegen Backups aus WhatsUp Chatverläufen als Txt Dateien vor, aber da sind die Chats alle endlos aneinander gereiht, die gewünschte Trennung sollte jeweils ab Datum beginnen (in 1. Spalte), dann Name in 2. Spalte, in 3. Spalte der Textverlauf bis nächstes Datum.

Damit das klarer wird mal eine Musterdatei anbei.

Tabelle1

<style type = "text/css"> th {font-weight:normal} </style> A B C 1 27. Apr, 0:50 Micha 1&1 Hallo Frau, dank deines Einsatzes wird das nun ein Muster. Noch schönes WE und eine gute Nacht Grüße Michael 2 27. Apr, 19:43 Frau A Hallo Michael, dein Muster ist sehr schön. Liebe Grüße Frau 3 27. Apr, 20:08 Micha 1&1 Hi Frau, hat es denn wirklich gefallen? Liebe Grüße Michael 4 27. Apr, 21:18 Micha 1&1 Hi Frau, hab vergessen danach zu fragen: hast du eine Mailadresse? Lieben Gruß Micha 5 28. Apr, 21:35 Frau A Hallo Micha, dann abholen.

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

[BoskoBiati]

Hallo Michael,

Dein Muster läßt sich doch problemlos in Excel kopieren:



[html]

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B
1	27. Apr, 0:50 - Micha 1&1: Hallo Frau, dank deines Einsatzes wird das nun ein Muster. Noch schönes WE und eine gute Nacht
2	Grüße Michael
3
4	27. Apr, 19:43 - Frau A: Hallo Michael,
5	dein Muster ist sehr schön.
6	Liebe Grüße Frau
7	27. Apr, 20:08 - Micha 1&1: Hi Frau, hat es denn wirklich gefallen?
8	Liebe Grüße
9	Michael
10	27. Apr, 21:18 - Micha 1&1: Hi Frau, hab vergessen danach zu fragen: hast du eine Mailadresse? Lieben Gruß Micha
11
12
13	28. Apr, 21:35 - Frau A: Hallo Micha, dann abholen.
14
15
16	27. Apr, 0:50 - Micha 1&1: Hallo Frau, dank deines Einsatzes wird das nun ein Muster. Noch schönes WE und eine gute Nacht
17	Grüße Michael
18
19	27. Apr, 19:43 - Frau A: Hallo Michael,
20	dein Muster ist sehr schön.
21	Liebe Grüße Frau
22	27. Apr, 20:08 - Micha 1&1: Hi Frau, hat es denn wirklich gefallen?
23	Liebe Grüße
24	Michael
25	27. Apr, 21:18 - Micha 1&1: Hi Frau, hab vergessen danach zu fragen: hast du eine Mailadresse? Lieben Gruß Micha
26
27
28	28. Apr, 21:35 - Frau A: Hallo Micha, dann abholen.
29
30	27. Apr, 0:50	Micha 1&1: Hallo Frau, dank deines Einsatzes wird das nun ein Muster. Noch schönes WE und eine gute Nacht
31	Grüße Michael
32
33	27. Apr, 19:43	Frau A: Hallo Michael,
34	dein Muster ist sehr schön.
35	Liebe Grüße Frau
36	27. Apr, 20:08	Micha 1&1: Hi Frau, hat es denn wirklich gefallen?
37	Liebe Grüße
38	Michael
39	27. Apr, 21:18	Micha 1&1: Hi Frau, hab vergessen danach zu fragen: hast du eine Mailadresse? Lieben Gruß Micha
40
41
42	28. Apr, 21:35	Frau A: Hallo Micha, dann abholen.

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[/html]

1. Block als Unicode-Text
2. Block nur einfügen
3. Block mit "-" als voreingestelltem Trennzeichen für Text in Spalten

Der Rest ist doch leicht zu bewerkstelligen.

[snb]

Code:

Sub M_snb()
  With CreateObject("scripting.filesystemobject")
      sn = Split(Replace(.opentextfile("G:\OF\chattext.txt").readall, ",", " "), vbLf)
        
        For j = 0 To UBound(sn)
           If Val(sn(j)) > 0 Then sn(j) = "|" & sn(j)
        Next
      .createtextfile("G:\OF\chattext_001.txt").write Replace(Replace(Replace(Join(sn, ""), "|", vbLf), " - ", ","), ": ", ",")
  End With
 
  Sheets.Add , , , "G:\OF\chattext_001.txt"
End Sub

[Zwergel]

Hi ihr Zwei,

danke für die beiden unterschiedlichen Lösungen. Da es wie zu erwarten ja um deutlich mehr Chatbeiträge ging (Muster haben so ihre Tücken, aber persönliche Texte kann und möchte man ja nicht posten, aber jede Änderung am Ist bildet es nicht original ab) habe ich zur Umsetzung die VBA Variante genommen und es hat geklappt. Supi, denn so sind die Chats doch deutlich besser lesbar als so in einer Endlosschleife.

Was mir bei der VBA Lösung auffiel: Chats mit Zahlen drin werden offenbar als eigenständige Chats bewertet und somit beim Durchlauf dann in eigene Zeilen geschrieben.

WhatsApp Chat mit Frau A

<style type = "text/css"> th {font-weight:normal} </style> A B C D 9 28. Apr  21:35 Frau A Hallo Micha  dann abholen.Meine Adresse :Am Beispiel 7 10 98999 MusterstadtKlingel bitte beiFrau A dann komme ich runter.Nun muss ich aber endlich ins Bett.

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Da aber nur selten, änder ich es manuell ab.

[snb]

Code:

Sub M_snb()
  With CreateObject("scripting.filesystemobject")
      sn = Split(Replace(.opentextfile("G:\OF\chattext.txt").readall, ",", " "), vbLf)
        
        For j = 0 To UBound(sn)
           If Val(sn(j)) > 0 And InStr(Left(sn(j), 3), ".") Then sn(j) = "|" & sn(j)
        Next
      .createtextfile("G:\OF\chattext_001.txt").write Replace(Replace(Replace(Join(sn, ""), "|", vbLf), " - ", ","), ": ", ",")
  End With
 
  Sheets.Add , , , "G:\OF\chattext_001.txt"
End Sub

[Zwergel]

Hi snb,
danke aber auch mit diesem Code wird der Text aufgesplittet ab dem Geburtsdatum.

Hier mein/dein Testcode und das Ergebnis

Code:

Sub M2_snb()
  With CreateObject("scripting.filesystemobject")
      sn = Split(Replace(.opentextfile("G:\Text mit Zahl.txt").readall, ",", " "), vbLf)
        
        For j = 0 To UBound(sn)
           If Val(sn(j)) > 0 And InStr(Left(sn(j), 3), ".") Then sn(j) = "|" & sn(j)
        Next
      .createtextfile("G:\Text mit Zahl1.txt").write Replace(Replace(Replace(Join(sn, ""), "|", vbLf), " - ", ","), ": ", ",")
  End With
 
  Sheets.Add , , , "G:\Text mit Zahl1.txt"
End Sub

Text mit Zahl1

<style type = "text/css"> th {font-weight:normal} </style> A 2 3. Mai  12:44 Frau A Schicke dir etwas Sonne rüber  haben genug davon. Mein Geburtstag ist lange vorbei  war am 3 10. Februar und wann ist deiner? Da du ja jetzt weißt wie man Fotos versenden kann  schick doch mal eins von deinen Hunden. Würde mich freuen. LG A

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  


Ist auch nicht sauber in Spalten aufgeteilt woerden, Chatdatum, Absender und Text sind in einer Spalte, ab Geburtstag dann zweite Zeile.

[snb]

dann versuch mal:

Code:

Sub M2_snb()
  With CreateObject("scripting.filesystemobject")
      sn = Split(Replace(.opentextfile("G:\Text mit Zahl.txt").readall, ",", " "), vbLf)
        
        For j = 0 To UBound(sn)
           If Val(sn(j)) > 0 And InStr(Left(sn(j), 12), ":") Then sn(j) = "|" & sn(j)
        Next
      .createtextfile("G:\Text mit Zahl1.txt").write Replace(Replace(Replace(Join(sn, ""), "|", vbLf), " - ", ","), ": ", ",")
  End With
 
  Sheets.Add , , , "G:\Text mit Zahl1.txt"
End Sub

Aber, was als Datum erscheint wird als Datum anbemerkt.

[Zwergel]

Hi snb,

danke, jetzt wird zwar nicht aufgesplittet am Geburtstag aber dafür alles in eine Zelle geschrieben. Soll ja aber in 3 Spalten: Datum, Absender, Textteil.

Teste doch mal selbst mit dem Musterdatensatz.

Aber insgesamt brauchst du da keine weitere Arbeit zu investieren (sind nur wenige Datensätze betroffen und die habe ich bereits angepaßt), ist jetzt eher nur aus Ehrgeiz, auch das noch hinzubekommen.

[snb]

Kann ich nicht testen, weil das abhängt von lokale Einstellungen: listseparator z.B.

Bie mir läuft's tadellos.

Statt komma kannst du ; oder tab verwenden.

.createtextfile("G:\Text mit Zahl1.txt").write Replace(Replace(Replace(Join(sn, ""), "|", vbLf), " - ", ";"), ": ", ";")

[Zwergel]

Hi snb,
leider kommt auch damit nicht das gewünschte ergebnis, aber beenden wir hier einfach die Fragestellung. Das was schon klappte ist völlig ausreichend.