Procedimientos para separar cadenas

[[Bicho]]

Hola para lo que buscas, no recuerdo nada que exista en Delphi, siempre me he visto funciones creadas por terceros, un ejemplo en concreto en Trucomania es este

Échale un vistazo a ver si te sirve o no si prefieres usar la tuya porque te va bien

Saludos

[ixMike]

La verdad, la mía es bastante más sencilla, aunque lo más seguro sea debido a que solo se puede usar como separador un carácter.

Gracias

[nemesio]

Bueno, Cuando necesito hacer algo asi utilizo el Pos o recorro la cadena con un ciclo.

Saludos

[roman]

Empezado por ixMike

La verdad, la mía es bastante más sencilla

Y antes:

Empezado por ixMike

si no lo hay, bueno, pues me tocará mostraros mi código

Estamos esperando...

// Saludos

[[seoane]]

Yo para estas cosas utilizo un TStringList. Aunque parece que esa es mi solución para todo ...

[roman]

A mi también se me ocurre eso pero no deja de tener sus inconvenientes:

1. Hay que construir el objeto y luego destruirlo y encima hacer esto último dentro de un bloque try-finally.

2. No funciona bien si las partes tienen espacios:

Hola,soy pepe perez perea

Lo toma como si fuesen cinco partes.

Por ello me interesa ver cuál es el código de ixMike.

// Saludos

[[seoane]]

Empezado por roman

Por ello me interesa ver cuál es el código de ixMike.

¿no te interesa ver el mio?.

Código Delphi [-]
function Token(Sub: string; var S: string): string;
begin
  Result:= '';
  while Length(S)>0 do
  begin
    if AnsiSameText(Copy(S, 1, Length(Sub)), Sub) then
    begin
      Delete(S, 1, Length(Sub));
      break;
    end;
    Result:= Result + Copy(S,1,1);
    Delete(S,1,1);
  end;
end;


// Un ejemplo de uso
var
  S: string;
begin
  S:= 'uno[sep]dos[sep]tres';
  while Length(S)>0 do
    ShowMessage(token('[sep]',S));
end;

No se si te acuerdas de Pico, el micro servidor web que postee por aquí hace unos meses, pues cuando estuve creando a su hermano mayor tuve que crear muchas funciones parecidas para manejar cadenas porque me había empeñado en no usar la unit classes para así hacerlo mas pequeño. Pero eso ya es otra historia, y ya no te cuento cuando intente trasladarlo todo a C ... Que forma de complicarse la vida por diversión

[roman]

Empezado por seoane

¿no te interesa ver el mio?.

Ja, ja. Bueno, tú no lo habías ofrecido y además mencionaste StringLists, ¿o no eres el mismo seoane de hace tres mensajes?

Pero lo veo muy bien, muy compactito. Lo único malo es que está tan bien que ahora hay aún menos posibilidades de que ixMike nos muestre su código.

// Saludos

[[seoane]]

Empezado por roman

2. No funciona bien si las partes tienen espacios:

Hola,soy pepe perez perea

Lo toma como si fuesen cinco partes.

Trasteando como mi Turbo he visto que el objeto TStrings cuenta con la propiedad StrictDelimiter. Cuando esta propiedad esta a TRUE solo se tiene en cuenta el carácter delimitador, ignorando los espacios y demás. Ignoro si existe en versiones anteriores de delphi, en la 7 no la tenia. Parece que los de Borland recapacitaron y acabaron con la sin razón de meter siempre en el mismo saco el carácter delimitador y cualquier otro entre el #1 y el #32.

Código Delphi [-]
var
  i: integer;
begin
  with TStringList.Create do
  try
    Delimiter:= ',';
    // Aqui esta 
    StrictDelimiter:= TRUE;
    DelimitedText:= 'Hola,soy pepe perez perea';
    for i:= 0 to Count - 1 do
    begin
      ShowMessage(Strings[i]);
    end;
  finally
    Free;
  end;
end;

[roman]

¡Ah! Pues hasta que se les prendió el foco

Ahora que, eso sí, nada como el amigable php:

Código PHP:

<?
$lista = explode(",", 'hola, soy pepe perez perea, tengo pereza, por eso uso php');
?>
<pre>
<?
print_r($lista);
?>
</pre>

Salida:

Array
(
    [0] => hola
    [1] =>  soy pepe perez perea
    [2] =>  tengo pereza
    [3] =>  por eso uso php
)

// Saludos