delphi - uso - ¿Cómo dividir la secuencia por un delimitador de caracteres múltiples?

string split c#

Question

¿Hay una función Delphi para dividir la cadena por un delimitador de múltiples caracteres en lugar de un solo carácter?

Por ejemplo, cuando usaría esa función de esta manera:

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

Me gustaría obtener un resultado de estas 3 cadenas:

''Whale'', ''Mammal'', ''Ocean''

¿Hay alguna función en Delphi para esto?

Answer 1

Hay otra solución bastante simple usando TStringList. Cambiar LineBreak:

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 2

No existe tal función ''desde la caja''. Si sus cadenas contienen texto regular, puede utilizar StringReplace con un símbolo exótico; de lo contrario, no es difícil escribir su propia función dividida usando Pos o IdStrings.SplitString (si está disponible en D2010)

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

Answer 3

No sé si Delphi tiene un procedimiento de división estándar que utiliza una cadena como delimitador. Pero puede escribir el suyo ya sea que tenga 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;

Espero eso ayude..

Answer 4

Puede consultar mi unidad StringUtils.pas que es parte de la Biblioteca Cromis

Hay un tokenizador de texto simple allí. Pero probablemente es justo lo que necesitas. La interfaz es así

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;

Soporta cadenas como delimitadores y también más de un delimitador.

Answer 5

Si tiene JCL instalado, entonces en la unidad jclStrings hay StrToStrings procedimiento StrToStrings :

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