8 respuestas en este tema

[Fenareth]

Hola a todos comunidad,

Les comparto un código que ayuda a insertar una subcadena en una cadena en cada una de n número de posiciones definidas mediante un arreglo...

Ojalá les sirva y claro que se aceptan sugerencias y mejoras.... 

Saludox !

delphi

function InsertaSubCadena(Cadena, Simbolo: String; Posicion: Array of Integer): String;
var
  sTemp, sDerecha, sIzquierda: String;
  i, iTamano: Integer;
begin
    sTemp:= Cadena;
 
    for i := 0 to Length(Posicion) - 1 do
    begin
       sIzquierda := AnsiMidStr(sTemp,1,((Posicion[i]+i)-1));
       iTamano := Length(sTemp);
       sDerecha := AnsiRightStr(sTemp,(iTamano-(Posicion[i]+I))+1);
 
       sTemp := sIzquierda+Simbolo+sDerecha;
    end;
    Result := sTemp;
end;

Y se usa de la siguiente manera:

delphi

   Label.Caption := InsertaSubCadena('DELPHIACCESS.COM','-',[2,3,5,7]);

Resultado:  D-E-LP-HI-ACCESS.COM

[cadetill]

Buenas,

Sólo una pequeña mejora para controlar que la posición no esté más allá que la longitud de la cadena dada ya que no terminaba de hacerlo correctamente en ese caso

delphi

function InsertaSubCadena(Cadena, Simbolo: String; Posicion: Array of Integer): String;
var
  sTemp, sDerecha, sIzquierda: String;
  i, iTamano: Integer;
begin
    sTemp:= Cadena;
 
    for i := 0 to High(Posicion) do
    begin
      if Posicion[i] > Length(Cadena) then Continue;
 
       sIzquierda := AnsiMidStr(sTemp,1,((Posicion[i]+i)-1));
       iTamano := Length(sTemp);
       sDerecha := AnsiRightStr(sTemp,(iTamano-(Posicion[i]+I))+1);
 
       sTemp := sIzquierda+Simbolo+sDerecha;
    end;
    Result := sTemp;
end;

Otra posible mejora sería hacer una ordenación previa de la lista de posiciones por si la pasan desordenada. También he substituido el Length(Posicion) - 1 por un High(Posicion), pero esto ya es más cuestión de gustos personales

Nos leemos

[seoane]

Yo lo haria asi:

delphi

function InsertaSubCadena(Cadena, Simbolo: String; Posicion: Array of Integer): String;
var
  i: Integer;
begin
  Result:= Cadena;
  for i:= High(Posicion) downto Low(Posicion) do
    insert(Simbolo,Result,Posicion[i]);
end;

Aunque como ya dijo cadetill, primero habría que hacer una ordenación de las posiciones para asegurarse que van de menor a mayor.

PD: Lo de "Low" también es una manía personal 

[cadetill]

Buenas,

Efectivamente amigo seoane, esa es la manera en que lo había pensado, pero como podría darse el caso de que los elementos vinieran desordenados ya no lo plantee

Nos leemos

[seoane]

Buenas,

Efectivamente amigo seoane, esa es la manera en que lo había pensado, pero como podría darse el caso de que los elementos vinieran desordenados ya no lo plantee

Nos leemos

Si el array viene desordenado, no funciona ninguna de ellas

[cadetill]

Buenas,

Sí, sí, lo sé. Lo único que hice en la opción de la amiga Fenareth fue tener en cuenta que la posición no superara la longitud de la cadena, cosa que seguramente se debería de comprobar también antes de hacer el "insert" en tu caso. No lo he probado, pero quizás de algún error o no lo haga como es debido

Nos leemos

[seoane]

Si al insert le pasa una posición mas alta que la longitud de la cadena te lo coloca al final.

Es decir, si usamos esto:

delphi

InsertaSubCadena('DELPHIACCESS.COM','-',[2,3,5,7,50,70]);

Obtenemos esto

delphi

D-E-LP-HI-ACCESS.COM--

PD: Fenareth es amiga no amigo 

[cadetill]

Si al insert le pasa una posición mas alta que la longitud de la cadena te lo coloca al final.

Perfecto pues

PD: Fenareth es amiga no amigo 

jejeje, no lo sabía, ahora mismo lo corrijo

Nos leemos

[egostar]

Que bien !!!, esto de ver el estilo de cada uno es muy interesante e ilustrativo.

Salud OS