ayuda con arvhivos de textos y arreglos en delphi

[twister]

bueno gracias!! pero no me funciono!! en realidad leo de un archivo de trexto esta cadena HOLA MUNDO <var1> <var2> necesito sacar var1 y var2 para utilizarlas dentro del programa... el q tu me enviastes lo use pero no me arroja nada!!

[twister]

mira esto es lo q utilizo para q me devuelva el valor,

procedure ExtraeCadena(cadena: string): string;
begin
result:=copy(cadena,pos('<',cadena)+1,pos('>',cadena)-pos('<',cadena)-1);
end;

pero solo lo hace para "var1" y no me trae "var2" puedes revisarlo a ver si se puede hacer de la misma forma para traer var2??

[ecfisa]

Hola de nuevo.

El procedimiento que te puse funciona correctamente para la petición que hiciste en el primer mensaje quitando los símbolos < y > y almacenando en dos variables las dos cadenas que están separadas por un espacio.

En el ejemplo de llamada apareció un ' ' y no '<hola> <mundo>' por un problema que provocan los símbolos '< >' dentro de las etiquetas [delphi] y [/delphi] . Si ponés el texto dentro de las comillas simples, funcionará.

Te pongo otro ejemplo con una tercera variable que supuestamente tendría almacenada la cadena leida del archivo de texto:

Código Delphi [-]
...
var
  Cad1,Cad2, Txt: string;
  ...
begin
  Txt:= 'menor_hola_mayor menor_mundo_mayor'; // reemplaza menor_ y _mayor por sus símbolos correspondientes
  QuitarMayorMenor(Txt , Cad1,  Cad2);
  ShowMessage(Cad1 + #10#13 + Cad2);
end;
...

El procedimiento sigue siendo el mismo.


Un saludo.

[twister]

no me funciona :S tal vez no entiedas lo q en realidad quiero hacer!! o.o

[twister]

podrias agregarme al msn para explicar bien!!

[ecfisa]

Hola.

Hice la prueba y funciona correctamente de acuerdo a la condicion que expusiste: <cadena1> espacio <cadena2>.

Para comprobarlo, copia y pega lo siguiente:

procedure QuitarMayorMenor(const Value: string; var s1,s2: string);
var
  i: Integer;
begin
  s1:= '';
  for i:= 1 to Length(Value) do
    if not(Value[i] in ['<', '>']) then
      s1:= s1 + Value[i];
  s2:= Copy(s1, Pos(' ', s1)+1, MaxInt);
  Delete(s1, Pos(' ', s1), MaxInt);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  Cad1,Cad2, st: string;
begin
  st:= '<hola> <mundo>';
  QuitarMayorMenor(st ,Cad1, Cad2);
  ShowMessage(Cad1+#10#13+Cad2);
end;

Usé otras etiquetas, para que puedas copiar y pegar el ejemplo tal como es.


Nota: Si lees la guía de estilo , verás que dice: No solicites que te respondan por correo en privado.
(Por lo que borro el mismo de tu mensaje anterior)


Un saludo.

[twister]

hola

ups sorry no sabia!! xD bueno dejame probar ese para ver gracias!!

[ecfisa]

No hay problema twister, ya irás familiarizandote con el estilo y las etiquetas.

Cualquier problema que tengas, seguí presentándolo.

Un saludo.