Source file: /~heha/j/japextra.zip/RES/TORC.PAS

{Umwandeln in .RC-Datei}
var
 S,ON,kun,les: String;
 line, e, i: Integer;
 f: Text;

function GetField(const S:String; Field:Integer):Integer;
{ohne Test auf Stringüberlauf!!}
 var
  I: Integer;
 begin
  I:=1;
  while Field>0 do begin
   if S[I]=#9 then Dec(Field);
   Inc(I);
  end;
  GetField:=I;
 end;

begin
 assign(f,ParamStr(1)); Reset(f);
 WriteLn('STRINGTABLE LOADONCALL MOVEABLE DISCARDABLE');
 WriteLn('BEGIN');
 while not eof(f) do begin
  ReadLn(f,S);
  Val(Copy(S,1,GetField(S,1)-2),line,e);
  if e=0 then begin
   Delete(S,1,GetField(S,6)-1);
   ON:=Copy(S,1,GetField(S,1)-2);
   kun:=Copy(S,GetField(S,1),GetField(S,2)-GetField(S,1)-1);
   if kun='-' then kun:='';
   if ON='' then les:=kun
   else if kun='' then les:=ON
   else les:=ON+','+kun;
   S:=les+'#'+Copy(S,GetField(S,2),255);	{Lesungen#Übersetzung}
   i:=1;
   while i<=length(S) do begin	{Kommata mit nachfolgenden Leerzeichen}
    if S[i] in [',',';'] then begin
     Inc(i);
     Insert(' ',S,i);
    end;
    Inc(i);
   end;
   WriteLn(#9,4000+line,', "',S,'"');
  end;
 end;
 WriteLn('END');
 Close(f);
end.