Come dividere la stringa con un delimitatore a più caratteri?

Question

Esiste una funzione Delphi per dividere la stringa da un delimitatore a più caratteri anziché da un singolo carattere?

Per esempio quando mi piacerebbe usare quella funzione in questo modo:

SplitString('Whale<->Mammal<->Ocean', '<->') 

vorrei ottenere un risultato di questi 3 stringhe:

'Whale', 'Mammal', 'Ocean' 

C'è una tale funzione in Delphi per questo?

Answer 1

Non so se Delphi ha una procedura di split standard che utilizza una stringa come delimitatore. Ma si può scrivere il proprio o si ha o no:

procedure SplitStr(const Source, Delimiter: String; var DelimitedList: TStringList); 
var 
    s: PChar; 

    DelimiterIndex: Integer; 
    Item: String; 
begin 
    s:=PChar(Source); 

    repeat 
    DelimiterIndex:=Pos(Delimiter, s); 
    if DelimiterIndex=0 then Break; 

    Item:=Copy(s, 1, DelimiterIndex-1); 

    DelimitedList.Add(Item); 

    inc(s, DelimiterIndex + Length(Delimiter)-1); 
    until DelimiterIndex = 0; 
    DelimitedList.Add(s); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    sl: TStringList; 
begin 
    sl:=TStringList.Create; 
    SplitStr('delphi++split++string++','++',sl); 
    //do something with the list 
    sl.Free; 
end; 

Speranza che aiuta ..

Answer 2

Non esiste una funzione 'da scatola'. Se le stringhe contengono regolare testo 'buono', quindi è possibile utilizzare StringReplace con il simbolo esotico, altrimenti non è difficile scrivere una propria funzione di divisione utilizzando Pos o IdStrings.SplitString (se è disponibile in D2010)

function SplitStringByStr(const S, StrDelimiter: string): TStringDynArray; 
var 
    tmp: string; 
begin 
    tmp := StringReplace(S, StrDelimiter, '`', [rfReplaceAll]); 
    Result := SplitString(tmp, '`'); 
end; 

Answer 3

Puoi controllare la mia unità StringUtils.pas che fa parte di Cromis Library

C'è un semplice tokenizzatore di testo lì. Ma probabilmente è proprio quello di cui hai bisogno. L'interfaccia è simile a

TTextTokenizer = class 
    private 
    FTokens: TTokens; 
    FDelimiters: array of ustring; 
    public 
    constructor Create; 
    procedure Tokenize(const Text: ustring); 
    procedure AddDelimiters(const Delimiters: array of ustring); 
    property Tokens: TTokens read FTokens; 
    end; 

Suporta stringhe come delimitatori e anche più di un delimitatore.

Answer 4

C'è un'altra soluzione piuttosto semplice che utilizza TStringList. Modificare l'interruzione di riga:

procedure TForm208.Button1Click(Sender: TObject); 
var 
    lst: TStringList; 
begin 
    lst := TStringList.Create; 
    try 
    lst.LineBreak := '<->'; 
    lst.Text := 'Whale<->Mammal<->Ocean'; 
    Memo1.Lines := lst; 
    finally 
    lst.Free; 
    end; 
end; 

Answer 5

Se avete installato JCL poi nell'unità jclStrings c'è StrToStrings procedura:

var sl: TStringList; 
begin 
    sl := TStringList.Create; 
    StrToStrings('Whale<->Mammal<->Ocean' , '<->' , sl);