Hallo Fachleute,
ich will aus einer Textdatei Emailadressen auslesen. Das Programm soll dazu das @ zeichen erkennen.
Aber das Programm schaltet mir nicht von einem zeichen zum anderen weiter:
Dim arr() As String, i&, sSource$
Dim sText$, j&
sSource = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\A bis Z ltd\Emailadressen\Adressen.txt"
i = 1
Open sSource For Output As #1
Do Until EOF(1)
Line Input #1, sText
If InStr(i, sText, "@", vbTextCompare) 0 Then
sText = InStr(sText, "@")
Stop
End If
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = sText
Loop
Debug.Print i
Close
For j = 1 To i - 1
Debug.Print arr(j)
Next j
End Sub
vielen Dank!