procedure TForm1.DatenverarbeitungMB256;
Var
Datum :
String;
Jahr :
String;
Monat :
String;
Sicherung :
String;
SL :TStringList;
I :Integer;
IA :Integer;
IB :Integer;
IC :Integer;
ID :Integer;
N :Integer;
Parser: TMySimpleBaseParser;
begin
Datum := DatetoStr(Date);
Jahr := FormatDateTime('
yyyy',strtodatetime(Datum));
Monat := FormatDateTime('
mmmm',strtodatetime(Datum));
CreateDir('
..\Daten\');
CreateDir('
..\Daten\'+Jahr);
CreateDir('
..\Daten\'+Jahr+'
\'+Monat);
sl := TStringList.Create;
try
MMUEZ2000.Lines.Add(Zeile);
sl.AddStrings(MMUEZ2000.Lines);
for i := 0
to sl.Count -1
do
begin
sl[i] := trim(StringReplace(sl[i], #$D, '
', [rfReplaceAll]));
sl[i] := StringReplace(sl[i], #129, '
ü', [rfReplaceAll]);
sl[i] := trim(StringReplace(sl[i], #132, '
ä', [rfReplaceAll]));
sl[i] := StringReplace(sl[i], #142, '
Ä', [rfReplaceAll]);
sl[i] := StringReplace(sl[i], #148, '
ö', [rfReplaceAll]);
sl[i] := StringReplace(sl[i], #153, '
Ö', [rfReplaceAll]);
sl[i] := StringReplace(sl[i], #154, '
Ü', [rfReplaceAll]);
sl[i] := StringReplace(sl[i], #10#13, '
', [rfReplaceAll]);
if sl[i] <> '
'
then
Zeile:='
';
Parser := TMySimpleParserMB256plus.Create;
DoParse(Parser, ExtractFilePath(ParamStr(0)) + '
..\Daten\'+Jahr+'
\'+Monat+'
\'+Datum+'
.txt');
DisplayResult(Parser);
Parser.Free;
Memo.Lines.Append(SL[I]);
Speichermemo.Lines.Append(SL[I]);
end;
MMUEZ2000.Clear;
sl.Free;
finally
end;
Zeile:='
';
Sicherung := ('
..\Daten\'+Jahr+'
\'+Monat+'
\'+Datum+'
.txt');
Speichermemo.Lines.SaveToFile(Sicherung);
Label1.Caption := Sicherung;
end;