Hejsan

Jag har en textfil där jag vill hämta ut mailadresser. Har tittat runt lite men inte hittat något om detta.
Har någon några tips vart jag skall börja leta/läsa. Alla tips mottages tacksamt.

ska du bara läsa in mailadresser en efter en eller ska du utföra någon slags sortering av all data som ligger sparad i rextfilen? Alltså om det finns annan information sparad på textfilen utöver mailadresserna.

Det finns mer text i filen. Vill på ett enkelt sett filtrera ut mailadresserna och skriva ut dom på en ny sida.

du kan öppna filen med FSO textstreamobject och sedan använda dig av Reg.exp för att plocka ut just mailadresser.

Har tittat runt lite och fått ihop detta

<%

Function IsEmail(strValue)
  With New RegExp
  .Pattern="^[^ ]+@[^ ]+\.[A-Za-z]+$"
  IsEmail=.Test(strValue)
  End With
End Function 

Const ForReading = 1 
Const Create = False

Dim objFSO         ' FileSystemObject
Dim TS             ' TextStreamObject
Dim strLine        ' local variable to store Line
Dim strFileName    ' local variable to store fileName

strFileName = Server.MapPath("test.txt")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set TS = objFSO.OpenTextFile(strFileName, ForReading, Create)

If Not TS.AtEndOfStream  Then   

Do While Not TS.AtendOfStream  
 
strLine = TS.ReadLine ' Read one line at a time
  
If not IsEmail(strLine) Then
   Response.Write strLine
   Response.Write "<br>"  
   Response.End
End If

Loop
 
End If

TS.Close 
Set TS = Nothing
Set objFSO = Nothing
%>

och det är flera rader och inte bara en massa information på en rad?
Kan vara så ibland (kanske)

Men BRA JOBBAT att hitta (och sätta ihop) funktionen! *tummen upp*