[slinkelist] RE: whole "articles" thing, the

[Mike Zmuda]

(First, I wonder if anyone got the secret jibe in the subject of this =
message). Second (and most importantly), doing all that editing myself =
would
admittedly make CDJ's operation too "manual," and hence, aw, hell... you =
know what I'm saying. SURE it's easy to fix, but it's also easy to =
implement:

in pseudocode:

If POSition(UPCASE(S),'THE ') =3D 1 then S :=3D =
IndexedSubstring(S,5,LengthOf(S)) + ', The';
If POSition(UPCASE(S),'A ') =3D 1 then S :=3D =
IndexedSubstring(S,3,LengthOf(S)) + ', A';
If POSition(UPCASE(S),'An ') =3D 1 then S :=3D =
IndexedSubstring(S,4,LengthOf(S)) + ', An';

etcetera,

Actually, in Pascal/Delphi it would look just like this:

=46unction ReplArt(S) : String;
Var
	TS : String

=46unction Upcase(U) : String;
var
	X : Integer;
	W : String;
Begin
	W :=3D U;
	For X :=3D 1 to length(W) do W[X] :=3D Upcase(W[X]);
	Upcase :=3D W;
end;

Begin
	If Pos(UpString(S),'THE ') =3D 1 then TS :=3D Copy(S,5,LengthOf(S) + ', =
The';
	If Pos(UpString(S),'AN ') =3D 1 then TS :=3D Copy(S,4,LengthOf(S) + ', =
An';
	If Pos(UpString(S),'A ') =3D 1 then TS :=3D Copy(S,3,LengthOf(S) + ', =
A';
	ReplArt :=3D TS;
end;

If that helps anyone at all... Like I said, it's an easy fix.

Z
  =20
Computers good at math? Then why is 99+1=3D0?