VB Script

[NickC111]

I have a text file with an email address

Example

From: t.test@hotmail.co.uk 454445454545454

I want to extract the email address into a new text file

Any ideas?

 

[Geates]

Use the FileSystemObject to open, read and create a new file.
Use the left() and instr() functions to extract the data

http://raqxtr.sstar.com/caspdoc/html/vbscript_language_reference.htm

set objFSO = CreateObject("Scripting.FileSystemObject")

set objInFile = objFSO.OpenTextFile("C:\filename_in.txt", 1, true, 0)
set objOutFile = objFSO.OpenTextFile("C:\filename_out.txt", 2, true, 0)

do while not (objInFile.AtEndOfStream)
   strLine = objInFile.ReadLine
   strEmail = left(strLine, instr(strLine, " "))
   objOutFile.WriteLine strEmail
loop


objInFile.close
objOutFile.close

-Geates

"I hope I can chill and see the change - stop the bleed inside and feel again. Cut the chain of lies you've been feeding my veins; I've got nothing to say to you!"
-Infected Mushroom

"I do not offer answers, only considerations."
- Geates's Disclaimer

 

[PHV]

Geates, why not simply use the Split function ?

If Left(strLine, 6) = "From: " Then
  strEmail = Split(strLine)(1)
...

FYI your suggestion will put "From: " into strEmail

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Geates]

I didn't notice "From:"

-Geates

"I hope I can chill and see the change - stop the bleed inside and feel again. Cut the chain of lies you've been feeding my veins; I've got nothing to say to you!"
-Infected Mushroom

"I do not offer answers, only considerations."
- Geates's Disclaimer