String zerlegen

[Uncle Cracker]

Also, ich habe einen String der Folgendermaßen aussieht: "Text;1;Zahl;2;Wert;3;Zeichen"

Die einzelnen Strings sind also durch ";1;", ";2;", ";3;", usw. geteielt. Nun meine Frage:

Wie bekomme ich es hin, dass ich die einzelnen Strings bekomme, also Text, Zahl, Wert, Zeichen?

Ich habe es so versucht, aber das klappt leider nicht wirklich, nur beim ersten String :(

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Str1: String;
    MyStr: string='Text;1;Zahl;2;Wert;3;Zeichen';
begin
  Memo1.Clear;
  Str1 := MyStr;
  Delete(Str1, pos(';1;', Str1), length(Str1));
  Memo1.Lines.Add(Str1);
end;

Wenn ich in dieser Funktion jetzt anstatt ";1;" ";2;" einsetze, funktioniert es leider nicht mehr :(

Vielleicht kann mir jemand helfen und mir verraten was ich für einen Fehler gemacht habe, warum es nicht funktioniert?


:love: Danke UC

[Luckie]

da kennt wohl jemand imme rnoch nicht unsere Code-Lib bzw. die Suche. :roll:

String AND zerlegen oder direkt explode.

[Markus K.]

Hallo Uncle Cracker,
mit diesem Code hatte ich einen String in einzelne Wörter zerlegt. Vielleicht hilft er dir.

Delphi-Quellcode:

var Text,Anfang:PChar;
    Wort:String;
begin
     Text:={String angeben};
     while (Text^ <> #0) do
           if (Text^ in [#1..#64,#91..#96,#123..#127]) then inc(Text)
           else begin
                Anfang:=Text;
                while not (Text^ in [#1..#64,#91..#96,#123..#127]) do inc(Text);
                SetString(Wort,Anfang,Text-Anfang);
                {Ausgabe}
                end;
end;

Tschüß Markus

[Uncle Cracker]

Danke Markus, hat mir schon ein bisschen weitergeholfen. Doch wie bekomme ich das jetzt einzeln in Strings?

Wenn ich als Ausgabe Showmessage(Wort) eingebe, dann stimmen zwar die ersten 4 Msg, aber dann kommt nur noch "Müll".


:love: Danke UC


PS: Mit der Suche und der CodeLib konnte ich gar nix anfangen, deswegen habe ich nochmal gefragt, auch wenn es schon mehrer Beiträge zu diesem Thema gibt.

[yankee]

Also ich würde das so machen:

Delphi-Quellcode:

var str1, str2, zeile:string;

for s:=1 to length(zeile) do //so oft wie die Zeile Zeichen hat 
    begin
        if zeile[s] <>';' then //wenn das aktualle Zeichen kein ; ist, dann:
        begin
            if semikolon=0 then str1 :=str1 +zeile[s];  //das aktuelle Zeichen wird der der Variable str hinzugefügt (wenn es vor dem Semikolon kommt)
            if semikolon=1 then str2:=str2 +zeile[s]; //das aktuelle Zeichen wird der der Variable str2 hinzugefügt (wenn es hinter dem Semikolon steht)
         end;
//------usw.---------
            if zeile[s] =';' then inc(semikolon) //wenn das aktuelle Zeichen ; ist, dann smikolon erhöhen

[Nicolai1234]

Ich würde es so machen!
Ich habe mal eine function als beispiel geschrieben und getestet und sie funktioniert:
Aufrufen kannst du sie mit ... := zerlegen(s,ZAHL)
s ist der String der zerlegt werden soll.
Zahl gibt den Wert an, der zurückkommen soll also

• 1 für Text
• 2 für Zahl
• 3 für Wert
• 4 für Zeichen

Delphi-Quellcode:

function zerlegen(quelle:string;welcher:integer):string;
var i,i2:integer;
    s: Array[1..4] of String;
begin
i := 1;
i2 :=1;
repeat
   while quelle[i] <> ';' do
        begin
        s[i2] := s[i2] + quelle[i];
        inc(i);
        end;
   i := i+3;
   inc(i2);
until i2 = 5;
result := s[welcher];
end;

Wenn du den folgenden Teil in eine procedure einbaust das ist s[1] der Text, s[2] die Zahl, s[3] der Wert und s[4] das Zeichen:

Delphi-Quellcode:

var i,i2:integer;
    s: Array[1..4] of String;

...


i := 1;
i2 :=1;
repeat
   while quelle[i] <> ';' do
        begin
        s[i2] := s[i2] + quelle[i];
        inc(i);
        end;
   i := i+3;
   inc(i2);
until i2 = 5;

[Markus K.]

Hmm...wodurch die anderen Werte kommen weiß ich jetzt auch ned. Hatte den String immer aus einer StringList geladen. Dann werden nur die vier Werte angezeigt.

Delphi-Quellcode:

var Text,Anfang:PChar;
    Wort:String;
    List:TStringList;
begin
     List:=TStringList.Create;
     List.Add('Text;1;Zahl;2;Wert;3;Zeichen');
     Text:=PChar(List.GetText);
     {...}
end;

Tschüß Markus

[Uncle Cracker]

Habe jetzt die Version von Nicolai1605 genommen, die hat super funktioniert, werde deine Variante auch nochmal probieren.

Also, nochmal vielen Dank :love:

[Sharky]

Hai Uncle Cracker,

ich weis nicht welche DelphiVersion Du hast, aber zumindest in D7 gibt es die Eigenschaft .Delimiter und .DelimitedText bei einer TStringList.

Damit würde das ganze dann so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sl : TStringList;
 ndx : Integer;
begin
  Memo1.Clear;
  sl := TStringList.Create;
  try
    sl.Delimiter := ';';  // Das Trennzeichen
    sl.DelimitedText := 'Text;1;Zahl;2;Wert;3;Zeichen';  //Der Text
    //Ab hier wird einfach jeder Eintrag der StringList in ein Memo geschrieben
    for ndx := 0 To sl.Count -1 do
    begin
      Memo1.Lines.Add(sl.Strings[ndx]);
    end;
  finally
    FreeAndNil (sl);
  end;
end;

[Uncle Cracker]

Ich habe Delphi 4 Standard, daher funktioniert deine Methode leider nicht :cry:

Aber noch eine andere Frage dazu:

Ich habe jetzt die Methode von Nicolai1605 genommen, doch leider erhalten ich einen String, der Größer ist als 255 Zeichen und somit funktioniert es leider auch nicht mehr :?
Ich habe auch schon versucht statt String einen AnsiString zunehmen, genauso mit Char, alles funktioniert leider nicht. Im Forum habe ich was gefunden mit Arrays aber auch das funktioniert irgendwie nicht :(

Kennt vielleicht jemand eine Methode womit ich übergroße Strings nutzen könnte?


:love: Danke UC