BorlandTalk.com

cloudzero · Guest

Hi gang,
After a very long absence from programming, I've been persuaded to
build a text processing program. I've come up against a sticky little
problem that I hope you can help on.

This routine is expected to read and create two text files. The
primary file is the original file containing perhaps several tens of
thousand lines. The secondary file contains a shorter list of lines.

This routine needs to read the primary file a line at a time, and
compare it to lines found in the in the secondary file. If the line
in the secondary is found in a line in the primary file, it needs to
output the quarantine file, otherwise, it needs to output to the
target file. I have tried several incarnations of the code below with
varying degrees of failure.

I'm sure I'm missing something really fundamental and yes I know I can
shorten a few lines..

Thanks in advance.

begin
// original source text file
AssignFile(sourcefile, PrimaryDialogue.filename);
Reset(sourcefile);

// output file with lines containing banned word
assignFile(quarantined, 'quarantined.txt');
rewrite(quarantined);

// remaining lines
assignFile(targetfile, savedialogue.FileName);
rewrite(targetfile);
while not EOF(sourcefile) do begin
readln(sourcefile, buffer2);

// text file containing list of banned words.
AssignFile(blacklist, SecondaryDialogue.filename);
Reset(blacklist);
while not EOF(blacklist) do begin
readln(blacklist, buffer);
textpos:=pos((buffer2),(buffer));
if textpos <> 0 then
Writeln(quarantined, buffer2)
else
Writeln(targetfile, buffer2);
end; // if
end; // while
end; // while
end; // if
closefile(sourcefile);
CloseFile(targetfile);
CloseFile(blacklist);
CloseFile(quarantined);

Alan Mead · Guest

On Mon, 22 Nov 2004 16:10:41 -0800, cloudzero wrote:

cloudzero · Guest

Hi Alan, and thanks for replying :^)

The code filters out just the first occurrence of a banned word, the
rest are ignored and passed onto the safe list. In addition to this,
if I have say 10 lines in my banned list, the first matching line is
passed, but then 9 other copies of that line are passed through to the
safe list. All other lines are multiplied 10 times too.

Glenn

Alan Mead <amead (AT) comcast (DOT) net> wrote

Alan Mead · Guest

On Tue, 23 Nov 2004 09:27:24 -0800, cloudzero wrote:

cloudzero · Guest

Thanks Alan, I'll go away and rework the code.

Glenn

Alan Mead <amead (AT) comcast (DOT) net> wrote