variablen String in andere Variable übertragen

[Robert Hohbein]

Hallo Leute,
ich muß einen aus einer ASCII-Datei gelesenen String 'zerlegen' und in andere Felder übertragen. Hierbei spielt das Sonderzeichen Hex05 eine besondere Rolle. Alle Zeichen (es können 1 - 10 sein)vor dem Sonderzeichen müssen in Feld1 und das Zeichen (es kann nur eins sein Space oder alpha) muß in ein anderes Feld. Beispiel: '2ca c34304sdd' oder '1056c c'
oder '134cc c'.
Also aus dem 1. Beispiel wird die '2' und das 'a' gebraucht bei 2. die '1056' und das Space und 3. '134' und das 'c'.

Wer kann mir weiterhelfen. Vielen Dank im voraus.

Robert

[Robert Hohbein]

Leider wird das Sonderzeichen Hex05 - nach der Diskussionseröffnung nicht korrekt dargestellt (als c) es handelt sich aber nur um <B> ein Zeichen</B>

[Frank Kneffel]

<pre>
procedure String2vars(var str1,str2:String;searchstring:String);
begin
str1:='';
str2:='';
if pos('c',searchstring) >0 then
begin
str1:=copy(searchstring,1,pos('c',searchstring)-1);
delete(searchstring,1,pos('c',searchstring)+1);
if pos('c',searchstring) >0 then
begin
str2:=copy(searchstring,pos('c',searchstring)-1,1);
end;
end;
end

[Robert Hohbein]

Hallo Frank,
vielen Dank für die schnelle Hilfe - super. Habe die Procedure sofort ausprobiert und eine Kleinigkeit angepasst, aber Sie funktioniert mit den original Daten.

procedure String2vars(var str1,str2:String;searchstring:String);
begin
str1:='';
str2:='';
if pos(#5,searchstring) > 0 then
begin
str1:=copy(searchstring,1,pos(#5,searchstring)-1);
delete(searchstring,1,pos(#5,searchstring)+0);
str2:=copy(searchstring,1,1);
end;
end;

Gruß
Rober

[Robert Hohbein]

Hallo Frank,

vielen Dank für die schnelle Hilfe - super. Habe die Procedure sofort ausprobiert und eine Kleinigkeit angepasst, aber Sie funktioniert mit den original Daten.

procedure String2vars(var str1,str2:String;searchstring:String);
begin <BR>
str1:=''; <BR>
str2:=''; <BR>
if pos(#5,searchstring) > 0 then <BR>
begin <BR>
str1:=copy(searchstring,1,pos(#5,searchstring)-1); <BR>
delete(searchstring,1,pos(#5,searchstring)+0); <BR>
str2:=copy(searchstring,1,1); <BR>
end; <BR>
end; <BR>

Gruß
Rober