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

[Christian Seehase]

Moin UC,

Zitat:

Zitat von Uncle Cracker

doch leider erhalten ich einen String, der Größer ist als 255 Zeichen und somit funktioniert es leider auch nicht mehr

ja und. Die "normalen" Strings können doch bis zu 2 GB lang sein. Das müsste auch unter D4 schon so sein.

[glkgereon]

ähm, was zum dazulernen:

was ist das für ne deklaration:

Zitat:

MyStr: string='Text;1;Zahl;2;Wert;3;Zeichen';

??? :wiejetzt:
hab ich noch nie gesehen!!!

wird da einfach nur ein string direkt initialisiert?

[SirThornberry]

keine Ahnung was das sein soll, vermutlich einfach nur so hingeschrieben um zu verdeutlichen was gemeint ist. Mein Delphi kann das zumindest nicht kompilieren...

[glkgereon]

dann bin ich ja beruhigt :-D :-D :-D

[Uncle Cracker]

Wenn ich das jetzt z.B. so mache:

Code:

var s:string;
begin
  s:='/pkCFKrbTduUXvEU36IwXesWyNNi6+VB1BzvDOZPqxieJnv9P368A0GVjlMfnQLc7mNlFr34i5+TF6jqhIy1sgao5lmpsjG+h9nSa6bAxCgWy6Vzo+2//pG9WCaWjYrj8+X+KuHSB1Veo1220hYKLKd6MS5vI0jvWpbDo5iWZy0MhrERb3NZicLLYxcRsfOtD3ZI27AQjjxD9hiZXBcwswMVzEBE6Vjs1SSlT+Yj7CgKgOYwLDeZVsS7tdpH2P3oIDIvGG/y95qtjoYJ/Wxsopw2Q1SfWmv9Ld4n7GcXRN12kZXYyMeOPbw14iCju9qbtpWeVfMM4DHsvlFaAmTb+0LYPXMK3FeIWo36TaOlx4pSq2QnQ0TfddH/Y2tWUgqNKCPyZ6lXnC'
end;

Dann kommt die Meldung:

Zitat:

String-Literale können maximal 255 Elemente besitzen

Wie könnte ich das sonst machen?

[Christian Seehase]

Moin Sir Thornberry,

Zitat:

Zitat von SirThornberry

Mein Delphi kann das zumindest nicht kompilieren...

dann schreib's mal als globale Deklaration... ;-)

[Markus K.]

Hallo,
folgende Zeile funktioniert schon, allerdings muss sie noch vor dem Implementation-Teil der Unit deklariert(global) werden.

Delphi-Quellcode:

var
  Form1: TForm1;
  MyStr: string='Text;1;Zahl;2;Wert;3;Zeichen';

implementation

So wird der Variablen gleich beim Initilisieren ein Wert zugeteilt.

Tschüß Markus

[glkgereon]

gibts so wat wie longstring in d4???

[Uncle Cracker]

@glkbkk

Ich wollte nur mal testen ob es jemanden auffällt :zwinker:


Longstring stand zwar in der OH, habe ich auch gefunden, aber dann kommt, das Longstring nicht gefunden werden kann.

[Nicolai1234]

Zitat:

Zitat von Uncle Cracker

Wenn ich das jetzt z.B. so mache:

Code:

var s:string;
begin
  s:='/pkCFKrbTduUXvEU36IwXesWyNNi6+VB1BzvDOZPqxieJnv9P368A0GVjlMfnQLc7mNlFr34i5+TF6jqhIy1sgao5lmpsjG+h9nSa6bAxCgWy6Vzo+2//pG9WCaWjYrj8+X+KuHSB1Veo1220hYKLKd6MS5vI0jvWpbDo5iWZy0MhrERb3NZicLLYxcRsfOtD3ZI27AQjjxD9hiZXBcwswMVzEBE6Vjs1SSlT+Yj7CgKgOYwLDeZVsS7tdpH2P3oIDIvGG/y95qtjoYJ/Wxsopw2Q1SfWmv9Ld4n7GcXRN12kZXYyMeOPbw14iCju9qbtpWeVfMM4DHsvlFaAmTb+0LYPXMK3FeIWo36TaOlx4pSq2QnQ0TfddH/Y2tWUgqNKCPyZ6lXnC'
end;

Dann kommt die Meldung:

Zitat:

String-Literale können maximal 255 Elemente besitzen

Wie könnte ich das sonst machen?

Bei deinem Beispiel ahst du gar nicht mehr ;1; ;2; usw. drin?!?!

In meiner function werden Arrays of Strings benutzt, ich weiß nicht ob das einen Unterschied machen!

[Uncle Cracker]

Nee, macht leider keinen Unterschied

Das Beispiel von mir ob ist gecryptet, nach dem encrypten sind die ; drin, aber der String ist dann leider immer noch zulang :cry:

[Markus K.]

Hallo Uncle Cracker,
es müsste gehen wenn du den String aufteilst.

Delphi-Quellcode:

var s:string;
    eins,zwei:string;
begin
     eins:='/pkCFKrbTduUXvEU36IwXesWyNNi6+VB1BzvDOZPqxieJnv9P368A0GVjlMfnQLc7mNlFr34i5+TF6jqhIy1sgao5lmpsjG+h9nSa6bAxCgWy6Vzo+2//pG9WCaWjYrj8+X+KuHSB1Veo1220';
     zwei:='hYKLKd6MS5vI0jvWpbDo5iWZy0MhrERb3NZicLLYxcRsfOtD3ZI27AQjjxD9hiZXBcwswMVzEBE6Vjs1SSlT+Yj7CgKgOYwLDeZVsS7tdpH2P3oIDIvGG/y95qtjoYJ/Wxsopw2Q1SfWmv9Ld4n7GcXRN12kZXYyMeOPbw14iCju9qbtpWeVfMM4DHsvlFaAmTb+0LYPXMK3FeIWo36TaOlx4pSq2QnQ0TfddH/Y2tWUgqNKCPyZ6lXnC';
     s:=eins+zwei;
end;

Tschüß Markus

[Uncle Cracker]

@Christian Seehase

Das mit den 2GB String stimmt schon, funktionert auch bei D4, aber nur wenn ich die Strings mit '+' verbinde. Aber ich erhalte den langen String leider aus einem INI File und kann da schlecht was zerteilen, oder vielleicht doch?

[Markus K.]

Eigentlich müsste es doch funktionieren, wenn du einen langen String aus einer Ini-Datei lädst. Die Fehlermeldung bedeutet doch eigentlich nur, dass zwischen den beiden ' ' maximal 255 Zeichen stehen dürfen, oder?

Tschüß Markus

[Uncle Cracker]

Ja, aber ich lade den String aus einer INI und dann will ich mit der Funktion von Nicolai1605 weiterarbeiten, doch es funktioniert dann nicht :(

[Uncle Cracker]

Also es folgt eine Zugriffsverletzung, aber wenn ich nun einen kürzeren String nutze, dann läuft alles ohne Probleme.

[Christian Seehase]

Moin UC,

das klingt aber seltsam.
Entweder Deine Delphi Version unterstützt HugeStrings oder nicht :gruebel:

Hast Du auch Projekt\Optionen\Compiler in D4?
Dort gibt's dann eine CheckBox "HugeStrings"

Eventuell kannst Du Dir auch mit der Compilerdirektive {$H+}/{$H-} behelfen. (HugeStrings ein/aus)
Dann werden als String deklarierte Variablen als HugeStrings verarbeitet (im Unterschied zu String[...]).

[Uncle Cracker]

Also Huge-Strings sind bei mir aktiviert.

Hat es mal jemand versucht einen längeren String in die Funktion zuladen? Wenn es bei jemanden funktioniert hat bitte sagen welche Delphi Version, denn dann müsste ich mir wohl langsam mal überlegen die Delphi Versionen zu wechseln :?