program LogonAddRecords;
{ Sample script that reads an input text file line by line,
  parses each line, gets the first name, last name, email address
  and displays each record on screen
  
  Format of input text file:
    Bill,Clinton,bill.clinton@yahoo.com
    George,Bush,Gbush@aol.com
    Jimmy,Carter,james.Carter@google.com
    Gerald,Ford,gford@timewarner.com
}    

const         
  InputTextFile = 'c:\UserName.txt';

var
  ALine : string;
  sFirstName, sLastName, sEmailAdrs : string;

// This procedure will return 3 fields of a line    
procedure ParseLine(sLine: string; var sFirst: string; var sLast: string; var sEmail: string);
var 
  nPos : integer;
  sTmp : string;
begin
  sTmp := sLine;
  nPos := Pos(',', sLine); 
  // get first name
  if (nPos > 0) then
    begin
      sFirst := Copy(sTmp, 1, nPos-1);
      Delete(sTmp, 1, nPos);
    end;
  nPos := Pos(',', sTmp); 
  // get last name
  if (nPos > 0) then
    begin
      sLast := Copy(sTmp, 1, nPos-1);
      Delete(sTmp, 1, nPos);
    end;  
  // get email
  if Trim(sTmp) <> '' then
    sEmail := Trim(sTmp);
end;

{ Process events here }
procedure OnDocumentComplete(URL : string);    
begin
  
end;              

{ This is the main program body. }
begin
  Reset(InputTextFile);
  while not(EndOfFile) do
    begin
      Readfl(ALine);
      ParseLine(ALine, sFirstName, sLastName, sEmailAdrs);      
      showmessage('First Name: '+sFirstName+#13+'Last Name: '+sLastName+#13+'Email Address: '+sEmailAdrs+#13);
    end;    
  CloseFile;
  NewbieScriptEnd;
end.