program read_file ;

uses
	Classes, strutils, sysutils ;

type
	ProcessedLineType = record
		pdf_filename  : string ;
		claim_id      : integer ;
		file_id       : string ;
		returned_date : string ;
	end;

function ReadFileIntoStringList (const filename : string) : TStringList ;
begin
	ReadFileIntoStringList := TStringList.Create ;
	ReadFileIntoStringList.LoadFromFile (filename) ;
end ;

function ParseProcessedLine (const line : string) : ProcessedLineType ;
(* 123_456.pdf|060508*)
var
	underscore_pos : integer ;
	period_pos     : integer ;
	pipe_pos       : integer ;
	end_pos        : integer ;

begin
	underscore_pos := Pos('_', line) ;
	period_pos     := Pos('.', line) ;
	pipe_pos       := Pos('|', line) ;
	end_pos        := Length(line) ;

	writeln ('"', Copy(line, 0, underscore_pos-1), '"') ;
	Val(Copy(line, 0, underscore_pos-1), ParseProcessedLine.claim_id) ;
	ParseProcessedLine.pdf_filename := Copy(line, 0, pipe_pos-1) ;
	ParseProcessedLine.file_id := Copy(line, underscore_pos+1, period_pos-underscore_pos-1) ;
	ParseProcessedLine.returned_date := Copy(line, pipe_pos+1, end_pos-pipe_pos) ;
end;

var
	lines       : TStringList ;
	index       : integer ;
	the_line    : ProcessedLineType ;

begin
	lines := ReadFileIntoStringList ('20060920.PROCESSED') ;

	for index := 0 to lines.Count - 1 do
		begin
			the_line := ParseProcessedLine (lines[index]) ;
			writeln (the_line.pdf_filename, ':', the_line.claim_id, ':',
					the_line.file_id, ':', the_line.returned_date) ;
		end ;
end.

// "50665"
// 50665_8268.pdf:-14871:8268:060920