string durch ; getrennt

**Christian18**

Hallo,

ich habe einen String, ich weiß nicht wie lang dieser ist. Dieser String besteht zum Beispiel aus:

1345123515;345235;2352354;23452345;

können aber auch Buchstaben sein.

Ich möchte jetzt diesen string auslesen. also ohne ;

1345123515

345235

2352354

23452345

so würde ich gerne diesen langen string in meinen 4 Labels augegeben haben. Wieß jemend von euch wie man das macht???

**Luckie**

Kuck mal in der Code-Lib nach expode

expode.

**Christian18**

hallo,

ich konnte leider nichts finden.kannst du mir trotzdem weiter helfen?

**ibp**

luckie meinte ja auch "explode"

**Sprint**

Dafür kannst du auch TStringList missbrauchen. Stichwort: Delimiter und DelimiterText.
Das könnte dann z.B. so aussehen...

zusammenfalten · markieren

Delphi-Quellcode:

			var

  List: TStringList;

  I: Integer;

  S: String;

begin

  S := '1345123515;345235;2352354;23452345;';

  List := TStringList.Create;

  try

    with List do

    begin

      Delimiter := ';';

      DelimitedText := S;

      for I := 0 to Count - 1 do

        ShowMessage(Strings[I]);

    end;

  finally

    List.Free;

  end;

end;

Ich weiss ja nicht, wie Borland die StringList-Routinen intern gebaut hat, aber ich würde eher Explode nehmen, da man es nach seinen Bedürfnissen verändern kann. Womöglich ist das mit der Stringlist die elegantere Lösung, aber Explode ist faktisch effektiver.

**Pauli**

Hallo Christian,

Einfache Stringverarbeitung:
1. POS - suchen eines Simbols in einem String. Liefert Position(Integer)
2. LEFTSTR - liefert n Zeichen von links
3. RIGHTSTR - das gleiche von rechts
4. LENGTH - liefert Länge eines Strings.

Ich hoffe du kannst damit etwas anfangen

zusammenfalten · markieren

Delphi-Quellcode:

			var

  p: Integer;

  tSpalte: Integer;

  tZeile: String;

begin

  p := 0;

  tSpalte := 0;

  tZeile := Zeile;

  while p < Length(tZeile) do

  begin

    p := pos(';', tZeile);

    tSpalte := tSpalte + 1;

    if tSpalte >= Spalte then

    begin

      Result := LeftStr(tZeile, p-1);

      Break;

    end

    else

      tZeile := RightStr(tZeile, length(tZeile)-p);

  end;

end;

Vile Spaß

**LarsMiddendorf**

ExtractStrings funktioniert auch. Ich glaube das wird auch von der TStringList verwendet.

markieren

Code:

			function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
		

**Chewie**

Gibts aber zumindest bei Delphi5 nicht.

Ich bin schon viel in der VCL rumgekommen, aber eine Methode namens "ExtractStrings" ist mir nie begegnt. Wo ist die denn definiert.

BtW: Im Prinzip sind Explode und ExtractSctring folglich das selbe.

string durch ; getrennt

string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Re: string durch ; getrennt

Forumregeln

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#2 Re: string durch ; getrennt 8. Sep 2004, 13:39 Kuck mal in der Code-Lib nach expode. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Christian18 Registriert seit: 9. Dez 2003 Ort: Hamburg 1.279 Beiträge	#3 Re: string durch ; getrennt 8. Sep 2004, 13:46 hallo, ich konnte leider nichts finden.kannst du mir trotzdem weiter helfen?
	Zitat

ibp Registriert seit: 31. Mär 2004 Ort: Frankfurt am Main 1.511 Beiträge Delphi 7 Architect	#4 Re: string durch ; getrennt 8. Sep 2004, 13:48 luckie meinte ja auch "explode"
	Zitat

Dax (Gast) n/a Beiträge	#6 Re: string durch ; getrennt 8. Sep 2004, 13:58 Ich weiss ja nicht, wie Borland die StringList-Routinen intern gebaut hat, aber ich würde eher Explode nehmen, da man es nach seinen Bedürfnissen verändern kann. Womöglich ist das mit der Stringlist die elegantere Lösung, aber Explode ist faktisch effektiver.
	Zitat

LarsMiddendorf Registriert seit: 4. Sep 2003 Ort: Hemer 104 Beiträge Turbo Delphi für Win32	#8 Re: string durch ; getrennt 8. Sep 2004, 14:04 ExtractStrings funktioniert auch. Ich glaube das wird auch von der TStringList verwendet. markieren Code: function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
	Zitat

Chewie Registriert seit: 10. Jun 2002 Ort: Deidesheim 2.886 Beiträge Turbo Delphi für Win32	#9 Re: string durch ; getrennt 8. Sep 2004, 14:06 Gibts aber zumindest bei Delphi5 nicht. Martin Leim Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
	Zitat

Dax (Gast) n/a Beiträge	#10 Re: string durch ; getrennt 8. Sep 2004, 14:06 Ich bin schon viel in der VCL rumgekommen, aber eine Methode namens "ExtractStrings" ist mir nie begegnt. Wo ist die denn definiert. BtW: Im Prinzip sind Explode und ExtractSctring folglich das selbe.
	Zitat