Email filter ?

[locos]

Hey,
weiß jemand wie ich aus einer Text datei alle Mail Adressen raus filtern kann
und diese dann separat abspeichere ?

Greetz

[NoNameMT]

stehen die Daten einfach wahllos in einer Datei oder hat die Datei nen bestimmtes Format (etwa: Name:Vorname:Alter:E-Mail)?

[locos]

sind durch ein ":" getrennt
also pro zeile so z.B:

sdfkhgkj@web.de:sdfg7qwe
jkyxjgads@gmx.net:x78vsd

Greetz

[NoNameMT]

Hoffe ich kann dir mit diesem Code hier helfen. Habe grade leider kein VB6 da, womit ich das testen könnte

Dim strTempBuffer As String
Dim strFileName As String

'Dateiname als Variable festlegen
strFileName = "C:\datei.txt"
'Pufferstring vorbereiten (muss die Länge der Datei haben beim Lesen)
strTempBuffer = Space(FileLen(strFileName))

'Datei öffnen und in den Puffer lesen
Close #2
Open strFileName For Input As #2
Get #2, , strTempBuffer
Close #2
'Den Puffer nach Zeilen auftrennen
'Funktioniert nur bei Windows Textdateien, unixformatierte Dateien benötigen anstatt vbCrLf nur vbCr!
Dim strLines() As String
strLines = Split(strTempBuffer, vbCrLf)
strTempBuffer = ""

'Alle Zeilen durchgehen
Dim strLine As Variant
dim split1() as String

For Each strLine In strLines
        split1 = Split(strLine, ":")
        txtAusgabe.Text = txtAusgabe.Text & split1(0) & vbCrLf
Next

' Code für das Abspeichern der Textbox
'...
'...

[!sniper]

Hab das ganze mal in C# gelöst meld dich per PN wenn du was wissen willst.