Nun, ich habe da vor einiger zeit folgendes programmiert - nur mit dem
Unterschied, dass der Input kein Textfile sondern ein Formularfeld ("S1")
ist.
Ist eine quick'n-dirty-Aktion, funktioniert aber einigerma�en
=== CUT ===
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Mailadressen extrahieren....</title>
</head>
<body>
<%M = lcase(request("S1"))
M = M & "<BR>"
REM: Zerst die REPLACES:
M = Replace(M," ",";")
M = Replace(M,"=",";")
M = Replace(M,">",";")
M = Replace(M,"<",";")
M = Replace(M,CHR(10),";")
M = Replace(M,CHR(13),";")
M = Replace(M,"("," ")
M = Replace(M,")"," ")
M = Replace(M,"["," ")
M = Replace(M,"]"," ")
M = Replace(M,","," ")
M = Replace(M,";"," ")
M = Replace(M,"SMTP:","<BR>")
M = Replace(M,"TO:","<BR>")
M = Replace(M,"An:","<BR>")
M = Replace(M,"'","<BR>")
M = Replace(M,":"," ")
M = Replace(M," "," ")
M = Replace(M," "," ")
M = Replace(M," ","<BR>")
M = Replace(M,CHR(34)," ")
M = Replace(M,"<BR><BR>","<BR>")
%>
<p> </p>
<p><%
REM: Und jetzt die Klammeraffen suchen....
While M > ""
P1 = Instr(M,"<BR>")
St1 = Left(M,P1-1)
L=Instr(St1,"@")
St2 = St1
St1 = St1 + "<P>"
If L > 0 AND Instr(St2,".") Then
If Instr(Alle,St1) Then
Doppel = Doppel + St1
Else
Alle = Alle + St1
End If
End If
M = Mid(M,P1+4)
Wend
Response.write Alle
%> </p>
<p> </p>
<p> </p>
<p><strong>davon doppelt</strong></p>
<p>:<%response.write Doppel%> </p>
</body>
</html>
=== CUT ===
Stefan
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 26. November 2001 19:37
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] Emailadressen aus textfile auslesen
Hallo,
gibt es die M�glichkeit mit asp eine Textdatei nach emailadressen auszulesen
und wie mu� die Verbindung aufgebaut werden?
Mit freundlichen Gr��en
Andr� Scheres
http://hotelandre.de
http://partnerhotels.com
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
