ayuda con arvhivos de textos y arreglos en delphi

[twister]

Hola mundo.! tengo un problemilla.! tengo esta cadena : < hola> <mundo> y quiero guardar "hola" en una variable y "mundo" en otra.! eliminando los delimitantes <>.! por favor ayudenme.!

[ecfisa]

Hola twister y bienvenido a Club Delphi.

Código Delphi [-]
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;

Llamada de ejemplo:

Código Delphi [-]
...
var
  Cad1,Cad2: string;
begin
  QuitarMayorMenor(' ',Cad1,Cad2);
  ShowMessage(Cad1+#10#13+Cad2);
end;
...

Un saludo.

[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!!

[twister]

hola alguien sabe de alguna funcion en delphi que pueda leer una linea desde un archivo de texto y guardar cada palabra en una posicion de un ARREGLO?? ojo es un arreglo no necesito listas!! las lineas en el arvhico pueden ser N lineas y cada linea puede tener N palabras. agradeceria su ayuda...

[ecfisa]

Hola twister.

Por favor no repitas mensajes.
Un mensaje tuyo con igual contenido estaba en el foro 'noticias' con el título ":(" que por otro lado, nada tiene que ver con tu consulta.
Muchas gracias.

Saludos.

[twister]

Es que no se como eliminarlo..!

[ecfisa]

Hola tiwster.

No, no podés eliminarlo una vez enviado, no te preocupes ya irás manejando el tema. Sólo te lo hago presente para que lo tengas en cuenta en el futuro.

Ahora a lo nuestro, no te sirvió el ejemplo con TStrings...

Bueno, aca te hice un ejemplo con un arreglo y te agregué comentarios en las líneas como mejor pude:

Código Delphi [-]

const
   MAXPALABRAS = 5000;

var
  v: array[1..MAXPALABRAS] of string;
 ix: Integer;

procedure TForm1.LineaAPalabras(NomArch: string);
var
  F: TextFile;
  p: Integer;
  s: string;
begin
  AssignFile(F, NomArch);  // asociár archivo a 'F'
  Reset(F);                // abrir para lectura
  ix:= 0;                  // inicializar indice arreglo
  while not Eof(F) do      // mientras no fin de archivo
  begin
    ReadLn(F, s);          // leer una línea
    s:= s + ' ';           // para obtener última palabra
    p:= Pos(' ', s);       // 1er palabra
    while p <> 0 do        // mientras haya palabras
    begin
      Inc(ix);                   // incrementar posición en arreglo
      v[ix]:= Copy(s, 1, p);    // guardar en arreglo
      s:= Copy(s, p+1, MaxInt); // quitar guardado
      p:= Pos(' ', s);          // proxima palabra
    end; // p<>0
  end;   // not Eof(F)
  CloseFile(F);           // cerrar archivo
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  LineaAPalabras('PRUEBA.TXT');
  Memo1.ScrollBars:= ssVertical;
  Memo1.Clear;
  for i:= 1 to ix do
    Memo1.Lines.Add(v[i]);
end;

No lo creo, pero por si tenés algún problema, te adjunto el ejemplo funcionando.

Un saludo.