Hallo,
ich bin etwas am verzweifeln. Bin mir gerade ein Hilsprogramm am basteln,
welches mir eine Texdatei parsen tut und Telefonnummern in das gewünschte Format bringt.
Zwischen Vorwahl und Rufnummer soll ein ' - ', also 'blank|Leerstelle|blank' stehen.
Dachte mir dafür wäre ja die Insert procedure wunderbar.
Tja, scheisse wars. Wenn ich mit Insert die Leerzeichen und den - einfügen will,
kommt nur Müll raus. Hier mal der Code, vielleicht hab ich ja einfach nur nen Denkfehler un sehs einfach nicht.
Delphi-Quellcode:
function TMainForm.ReplaceString(fNummer: String): String;
var
hInsert : String;
i : Integer;
begin
hInsert := ' - ';
if (fNummer<>'')then
begin
fNummer := StringReplace(fNummer,'(','',[rfReplaceAll]);
fNummer := StringReplace(fNummer,')','',[rfReplaceAll]);
fNummer := StringReplace(fNummer,'/','',[rfReplaceAll]);
fNummer := StringReplace(fNummer,'\','',[rfReplaceAll]);
fNummer := StringReplace(fNummer,'-','',[rfReplaceAll]);
for I := 1 to Length(fNummer) do // Iterate
begin
if fNummer[i]= ' ' then
begin
fNummer := StringReplace(fNummer,' ','',[rfReplaceAll]);
Insert(hInsert, fNummer, i);
end;
end; // for
end;
Result := fNummer;
end;
Aufruf folgendermassen:
ShowMessage(ReplaceString(hFeld));
Klappt auch alles wunderbar, bis darauf dass mein String der rauskommt so aussieht:
0911-2-4-2-4-6-0
sobald ich in hInsert die leerzeichen rausnehme stimmt mein string, also:
0911-242460
warum verhaspelt sich delphi mit den leerzeichen? oder bin ich vielleicht nur zu blöd?
Aber ich brauche die Leerstellen, da die Textdatei später über ein externes Programm
eingelesen wird, und die Leerstellen an der Stelle sein müssen. Zum Hühnermelken.
wäre klasse wenn einer spontan weiterhelfen könnte......
Sollte eigentlich ein 20 Minüter werden. Aber irgendwie hat das dann doch net so geklappt
wie geplant. Erstens kommt es anders zweitens als man denkt.
Gruss
Daniel