1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

var f_file, f_neu: textfile;
i_pos, i, j: integer;
s_zeile: string;
s_zeile_neu, s_zeichen: string;
begin
  assignfile(f_file, 'd:\abwesenheit.sql');
  assignfile(f_neu, 'd:\abwesenheitneu.sql');
  reset (f_file);
  rewrite (f_neu);
  while not eof(f_file) do
  begin
    readln(f_file,s_zeile);
    s_zeile_neu := copy (s_zeile, 0, 313) + 'to_date(''' + copy (s_zeile, 314, 20) +
                   ',''yyyy-mm-dd'')';

    i_pos := 335;
    s_zeichen := copy(s_zeile, i_pos, 1);
    if s_zeichen = 'n' then
    s_zeile_neu := s_zeile_neu + copy(s_zeile, 334, 5)
    else
      s_zeile_neu := s_zeile_neu + ',to_date('''+ copy(s_zeile, 336, 20) +
                   ',''yyyy-mm-dd hh24:mi:ss'')' ;
    j := 0;
    for I := i_pos to length(s_zeile) do
      begin
        if s_zeile[i] = ',' then inc (j);
        if j = 8 then
        begin
          i_pos:= i+1;
          j := 10;
        end;
      end;
    s_zeile_neu := s_zeile_neu + ',' + copy(s_zeile, 340, i_pos-340);
 
    writeln(f_neu, s_zeile_neu);
  end;
  closefile(f_neu);
  closefile(f_file);
end;