Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text-Datei in VB einlesen und best. Datensätze als csv ausgeben
Autor: computmusic
Datum: 11.02.08 11:53
Hallo BAStler, habe chr$, als auch "" eingefügt. Hat nichts gebracht. Immer noch Fehlermeldung "Laufzeitfehler '424' Objekt erforderlich. Nach dem debuggen, wird die Zeile im Code "Text1.Text = Chr$(34) & Zeile & Chr$(34)" markiert und wenn ich mit dem Cursor auf 'Zeile' gehe steht auch meine 1.Zeile ('Betreff:') aus der Einlesedatei drin, aber das Programm läuft nicht weiter. Jetzt nochmal meine Original Einlese-Datei: Betreff: Prospektanforderung per Website Von: <zzzzzz@aaaa.com> Datum: Thu, 31 Jan 2008 16:33:17 +0100 An: <xxxxxxxxxxxx-service-center@yyyyyyy.de> Prospektanforderung Brochures Requested: 2007C, 2007D, 2007E, Anrede: Frau FName: Heike LName: Mustermann Firma: Titel: Addr1: Musterstr. 99 City: Musterstadt Zip: 99999 Country: Deutschland Phone: 099999-12345 Fax: 099999-134567 eMail: xxxxxxxxx@xxxxxxx.com Betreff: Prospektanforderung per Website Von: <zzzzzz@aaaa.com> Datum: Thu, 31 Jan 2008 16:33:17 +0100 An: <xxxxxxxxxxxx-service-center@yyyyyyy.de> Prospektanforderung Brochures Requested: 2007E, 2007G Anrede: Herr FName: Erwin LName: Mustermann Firma: Titel: Addr1: Mustergasse 99 City: Musterdorf Zip: 888888 Country: Deutschland Phone: Fax: eMail: yyyyyyy_xxxx@ggg.de PreviousExp: ja CruiseLine: celebrity How: Internet, Ship: Florian 2, Destination: Nord-/Suedamerika u. Karibik, AgeGroup: 30-50 Partner: feste Partnerschaft und das ist mein Code. Aber wo liegt der Fehler?? und wie kann ich den zweiten Datensatz einlesen; bis jetzt mache ich ja bei 'email:' schluß. Ok, das ist aber der zweite Schritt, erstmal muß das Programm ja richtig einlesen.   Sub main() Dim Zeile As String Dim Dateiname As String Dim Ausgabe As String Dim Ausgabezeile As String Ausgabezeile = "" Dateiname = "E-Mail.txt" ' Hier wird von "Deine E-Mail-Datei" der Anfang bis zum Punkt selektiert und die Datei- ' endung .csv angehangen (ist ein reines Ascii-Format) Ausgabe = Left$(Dateiname, InStr(1, Dateiname, ".") - 1) & ".csv" ' Die Datei zum lesen öffnen Open App.Path & "\" & Dateiname For Input As #1 ' Die Datei zu Ausgabe öffnen, wird neu angelegt, hängt dann die Sätze dran Open App.Path & "\" & Ausgabe For Output Shared As #2 ' Hier findet die Aufbereitung statt Line Input #1, Zeile Do Do Text1.Text = Chr$(34) & Zeile & Chr$(34) Line Input #1, Zeile If Left$(Zeile, 8) = "Anrede: " Then Ausgabezeile = Ausgabezeile & Mid$(Zeile, 9, Len(Zeile) - 8) & ";" End If If Left$(Zeile, 7) = "FName: " Then Ausgabezeile = Ausgabezeile & Mid$(Zeile, 8, Len(Zeile) - 7) & ";" End If If Left$(Zeile, 7) = "LName: " Then Ausgabezeile = Ausgabezeile & Mid$(Zeile, 8, Len(Zeile) - 7) & ";" End If ' Eingabe mit ";" erweitern und wegschreiben Write #2, Zeile & ";" Loop Until InStr(1, Zeile, "eMail") <> 0 ' Ausgabezeile wegschreiben Write #2, Ausgabezeile Loop Until EOF(1) Close #1 Close #2 End Sub

Text-Datei in VB einlesen und best. Datensätze als csv ausge...	744	computmusic	09.02.08 13:04
Re: Text-Datei in VB einlesen und best. Datensätze als csv a...	488	BAStler	09.02.08 17:08
Re: Text-Datei in VB einlesen und best. Datensätze als csv a...	490	computmusic	09.02.08 20:43
Re: Text-Datei in VB einlesen und best. Datensätze als csv a...	469	computmusic	10.02.08 15:35
Re: Text-Datei in VB einlesen und best. Datensätze als csv a...	506	BAStler	11.02.08 09:04
Re: Text-Datei in VB einlesen und best. Datensätze als csv a...	509	computmusic	11.02.08 11:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen