Extract Text From File

[AutoChris]

I need to extract some text from a file and I'm not sure how to do it. Here is an example of what I need to do.

From: EarthLink High Speed Internet Team <dslsales@earthlink.net>

Subject: EarthLink High Speed Internet -- 6 Months for $29.95 per Month!**

Date: Fri, 19 Mar 2004 05:48:57 PDT

X-Accept-Language: en

MIME-Version: 1.0

Content-Type: multipart/alternative;

types="text/plain,text/html";

I have to extract the entire Subject line (minus "Subject: ") and leave just what the subject is and put it in a text file. In fact, I have to go through about 100 text files (named MSG1.TXT through MSG100.txt) and do the same exact thing, putting all of the subjects in a single text file.

Does anybody know how this can be accomplished?

[scriptkitty]

Something like this perhapse, if your file stays standard

$file="something.htm"
$everything=FileRead($file,FileGetSize($file))
while 1
if StringInstr($everything,"Subject: ")=0 then ExitLoop
    $len=StringInstr($everything,"Subject: ")+9
$line=StringMid($everything,$len,StringInStr($everything,"Date: ")-$len-1)
FileWriteLine("tempfile.txt",$line&@CRLF)
$everything=StringTrimLeft($everything,StringInstr($everything,"Date: "))
wend

[AutoChris]

Genius! Thank you, scriptkitty!

Yes, with only slight modifications to account for the file names, that will work perfectly!