Busqueda de texto

[Gerson12]

hola Roman pero lo que yo pregunte en el hilo pasado fue para hacer una busqueda o puede ser similar al otro hilo ¿? y q es get text(ya se q es obtener text xD) pero aparte como puedo usar un get text eso mas me interesa saber

[roman]

Pues para encontrar el texto que dices tienes precisamente que hacer una búsqyeda, o sea, lo mismo que en el hilo anterior. No veo que relación pueda tener eso con GetText o SetText.

// Saludos

[Gerson12]

pero yo quiero q lo buscado se agrege a otro memo diferente

[roman]

Eso también lo preguntaste en el otro hilo

Empezado por Gerson12

gracias por la respuesta lo provare pero antes disculpame pero otra pregunta
como haria para agregar a otro memo el texto seleccionado por la busqueda

y también te contesté

Empezado por roman

Podrías agregarlo como una nueva línea:

Código Delphi [-]
OtroMemo.Lines.Add(Edit.Text);

// Saludos

// Saludos

[Gerson12]

ya gracias disculpa por las molestias la verdad recien entendi a q te referias si crees necesario borrar el tema haslo y disculpa

[Casimiro Notevi]

He combinado ambos hilos porque es lo mismo.

Gerson12, si tienes dudas y no lo tienes claro entonces sigue con el mismo hilo, vuelve a preguntar, explica lo que no entiendes y se continua hasta que lo entiendas y lo resuelvas, pero abrir otro hilo no sirve de nada, salvo para dispersar la información.

Así que no hay problema, si no lo tienes claro, ya sabes, pregunta, que se te responderá. ( Para eso nos pagan )

[roman]

No lo digas ni en broma, que hay algunos que exigen como si realmente nos pagaran

Yo lo que le recomendaría a Gerson, es que trate de entender las respuestas que se le dan en lugar de sólo aplicarlas en su sódigo. De esta manera podrá usarlas en otras partes y no sólo en el problema que origina la pregunta.

// Saludos

[Casimiro Notevi]

Empezado por roman

... que trate de entender las respuestas que se le dan en lugar de sólo aplicarlas en su sódigo

por supuesto, así tiene que ser si se quiere aprender

[roman]

Eso mismo!

// Saludos

[ecfisa]

Hola.

En defensa de Gerson12, voy a decir que, aunque no identifico los temas como similares, se preocupo por consultar antes de de abrir un nuevo hilo.

Mensaje privado:

FW: consulta si puedo abrir un nuevo tema ?
Cita:
Empezado por Gerson12
hola amigo quisiera hacerte una consulta es que te recuerdas de la consulta q hize anteriormente en el foro pero no se si esta permitido abrir un nuevo tema despues de de haber recibido ayuda de otro tema distinto es q necesito abrir un tema gracias por tu atencion
Discupe por la redundancia
--------------------------------
Hola Gerson12.

No hay ningún problema en que abras un nuevo hilo, es lo correcto si el tema es diferente.

Lo que no corresponde es abrir varios hilos haciendo una consulta similar o la misma. Si es la misma o está intimamente relacionada, lo correcto es ponerla en el hilo ya creado.

Podes crear todos los hilos que desees sobre las diferentes dudas que tengas. Y realmente espero que encuentres la ayuda necesaria en cada uno de ellos.

Saludos.

Indudablemente no me expresé lo suficientemente claro o no supo interpretarme, pero lo cierto es que no hubo desinterés de su parte.

Saludos.

[roman]

Sí, tienes razón. En realidad, no veo tanto problema en haber abierto un nuevo hilo. Lo que percibí -y es lo que le comento- es que es importante tratar de entender las soluciones que le den pues así el mismo habría notdo que no era necesario.

// Saludos

[Casimiro Notevi]

Vaya, queda claro

[Gerson12]

gracias eficsa ^^ entonces ya vere la manera de encontrar solucion roman gracias roman lo q me dijistes de tu respuesta de comoa gregar lo buscado eso no era lo q tenia en mente pero bueno seguire buscando en san google gracias a todos
y gracias eficsa por tu defensa

[roman]

Empezado por Gerson12

roman lo q me dijistes de tu respuesta de comoa gregar lo buscado eso no era lo q tenia en mente pero bueno seguire buscando

Y ¿por qué no nos dices qué es lo que tenías en mente?

// Saludos

[Casimiro Notevi]

Empezado por Gerson12

gracias eficsa ^^ entonces ya vere la manera de encontrar solucion roman gracias roman lo q me dijistes de tu respuesta de comoa gregar lo buscado eso no era lo q tenia en mente pero bueno seguire buscando en san google gracias a todos
y gracias eficsa por tu defensa

Es que no somos adivinos, por eso hace falta que nos expliques claramente qué es lo que buscas.

Y en cuanto a la defensa... no veo que te hayan atacado

[ecfisa]

Hola.

Bueno parece que en este hilo me la paso aclarando...

Cuando usé la estereotipada y tal vez poco acertada frase : "En defensa de ..." mi intención fue poner de manifiesto el interés de Gerson12 por observar las normas, pero bajo ningún punto de vista por que hubiera visto un "ataque" hacia él.

Ya clarificado el punto, sólo nos queda esperar a que Gerson12 nos explique lo más detalladamente posible que es lo que en realidad desea hacer..

Un justificado saludo.

[Casimiro Notevi]

Otra aclaración:
Sí, te había entendido

[roman]

Sí, yo también te había entendido. Y sí, en este hilo hay más aclaraciones que cosas que aclarar.

// Saludos

[Gerson12]

creo que me veo como un tonto

Tratare de explicarme lo mejor posible
lo q quiero hacer
es una aplicaccion q obtenga texto de un memo y ese texto obtenido lo agregue a un listbox
les dare un ejemplo

supongamos q este texto esta en el memo1:
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilarodolfopetronilarodolfo
petronilarodolfopetronilahttp://www.remusica.bizrodolfopetronilarodolfodsfsdfsdf
dpetronilarodolfo
efsdfdspetronilhttp://www.otraweb1.bizarodolfopetronilarodolfo
dsfsdfsdfsdf
sdsf
ds
f
dsfdsfdsfhttp://www.otraweb2.biz

ahora que al presionar el boton1 me agregue los textos q estan dentro es este parametro 'http://'( agregar texto que estee dentro de estos dos )'.biz':
espero q esta ves me hayan entendido y si cumpen si pregunto demasiado =( y roman gracias por tu consejo me guie de una respuesta para otra cosa pero la verdad que como dije antes se poco pero me gustaria aprender mas viendo sus respuesta de ayuda gracias espero que esta ves me entiendan si puedo mas tarde pongo una imagen ya q no tengo delphi ahora .
PD:destino a donde se agregaran los textos extraidos seran un listobox.
Chau!

[ecfisa]

Hola Gerson12.

Ahora creo haber entendido lo que buscas... Es copiar desde un TMemo hacia un TListBox, todos aquellos términos que comiencen en una cadena inicial A y otra final B incluyendo los caracteres que existan en el medio sin importar cuales sea.

Entonces podrías hacer:

Código Delphi [-]
...
uses StrUtils;

procedure Cargar(aMemo: TMemo; const Sufijo, Prefijo: string; TS: TStrings);
var
  p1, p2: Integer;
begin
  p2:=1;
  repeat
    p1:= PosEx(Sufijo, aMemo.Text, p2);
    p2:= PosEx(Prefijo, aMemo.Text, p1+1);
    if p1 <> 0 then
      TS.Add(Copy(aMemo.Text, p1, p2-p1 + Length(Prefijo)));
  until (p1 = 0)or(p1 > p2);
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   Cargar(Memo1, 'http://www.', '.biz',  ListBox1.Items);
end;

Tomando como ejemplo el téxto de tu mensaje anterior, en ListBox1 obtendríamos:

http://www.remusica.biz
http://www.otraweb1.biz
http://www.otraweb2.biz

Saludos.