Entwickler-Ecke :: Thema anzeigen - ...wie kann ich einen String zerteilen?

Moritz M. - Mo 07.06.04 20:11
Titel: ...wie kann ich einen String zerteilen?

Hallo Leute,

ich wollte hier jetzt mal meine Split-Funtkion posten, da doch des öfteren Fragen ala. "Wie trenne[meta]trennen, spalten, aufspalten, teilen, aufteilen, splitten[/meta] ich eine String bei jedem Leerzeichen" oder "Wie trenne ich einen String bei neuen Zeilen" auftreten. Erstmal die Funktion, Erklärung kommt drunter.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

function Split(fText: String;fSep: Char;fTrim: Boolean=false;fQuotes: Boolean=false):TStringList;
var vI: Integer;
    vBuffer: String;
    vOn: Boolean;
begin
  Result:=TStringList.Create;
  vBuffer:='';
  vOn:=true;
  for vI:=1 to Length(fText) do
  begin
    if (fQuotes and(fText[vI]=fSep)and vOn)or(Not(fQuotes) and (fText[vI]=fSep)) then
    begin
      if fTrim then vBuffer:=Trim(vBuffer);
      if vBuffer[1]=fSep then
        vBuffer:=Copy(vBuffer,2,Length(vBuffer));
      Result.Add(vBuffer);
      vBuffer:='';
    end;
    if fQuotes then
    begin
      if fText[vI]='"' then
      begin
        vOn:=Not(vOn);
        Continue;
      end;
      if (fText[vI]<>fSep)or((fText[vI]=fSep)and(vOn=false)) then
        vBuffer:=vBuffer+fText[vI];
    end else
      if fText[vI]<>fSep then
        vBuffer:=vBuffer+fText[vI];
  end;
  if vBuffer<>'' then
  begin
    if fTrim then vBuffer:=Trim(vBuffer);
    Result.Add(vBuffer);
  end;
end;

function Split(fText: String;fSep: Char;fTrim: Boolean=false;fQuotes: Boolean=false):TStringList;

Parameter: fText: String;
Der String, der getrennt werden soll.
Parameter: fSep: Char;
Das Trennzeichen[meta]Separator, Trenner[/meta]. Wenn anhand von neuen Zeilen getrennt werden soll, hier #10 angeben.
Optionaler Paramter: fTrim: Boolean=false;
Trimmung. Wenn dieser Parameter aktiviert ist, werden die zurückgelieferten Ergebnisse getrimmt, d.h. überflüssige Leerzeichen am Anfang und Ende des Strings werden entfernt.
Dieser Parameter ist standardmäßig auf false gesetzt.
Optionaler Paramter: fQuotes: Boolean=false;
Wenn dieser Paramter aktiviert ist, wird bei der Trennung auf Anführungszeichen geachtet. Diese Funktion ist besonders zum auswerten von CSV-Dateien gedacht.
Dieser Parameter ist standardmäßig auf false gesetzt.
Result: TStringList;
Das Ergebnis der Funktion wird in einer TStringList zurückgegeben.

Beispielaufruf und Ergebnis:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Aufruf:
  Split('"    Wert 1";"Wert 2 mit ;";"Wert 3    "',';',true,true);
Ergebnis (Einzele Werte der TStringList):
  Wert 1
  Wert 2 mit ;
  Wert 3

Aufruf 2:
  Split('"    Wert 1";"Wert 2 mit ;";"Wert 3    "',';',false,true);
Ergebnis (Einzele Werte der TStringList):
      Wert 1
  Wert 2 mit ;
  Wert 3    

Aufruf 3:
  Split('"    Wert 1";"Wert 2 mit ;";"Wert 3    "',';',false,false);
Ergebnis (Einzele Werte der TStringList):
  "    Wert 1"
  "Wert 2 mit 
  "
  "Wert 3

Ich hoffe damit sind einige Fragen geklärt. Falls nicht könnt ihr mir gerne eine PN schreiben.

Gruß

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.
Moderiert von Christian S.: Meta-Tags und - Wörter eingefügt

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!