Autor Tema: Buscar Dentro De Strings (Leído 4196 veces)

Zirrosis · « **en:** Jueves 5 de Octubre de 2006, 17:53 »

Bueno, lo que pretendo hacer es un buscador de palabras dentro de un archivo....kiero ke extraiga linea a linea y dentro de esta linea buske alguna palabra...lo de las lineas lo se hacer...lo ke no se hacer es buscar dentro de una string....alguien me ayuda??

Un ejemplo seria esto:

Supongamos ke kiero buscar la palabra Punk aki dentro:

Eskorbuto, es y sera para siemrpe uno de los mejores grupos punk de la Historia

No se ke komando se usa para buskar dentro de strings....en VB es facilisimo...en Pascal no se....

Enko

fuente de la info

Citar

Función Pos

Esta función permite determinar si una cadena está contenida en otra. En este caso, la función devuelve la posición donde comienza la cadena buscada en la cadena fuente, si la cadena no existe, se devuelve el resultado 0.

Formato :
Pos (cadena buscada, cadena fuente)

Ejemplo:

cad:= 'uno dos tres cuatro cinco seis';
WriteLn(Pos('dos',cad));
{Resulta 5 que es la posición de 'd'}
WriteLn(Pos('ocho',cad));
{Resulta 0 no existe la cadena 'ocho'}

Espero que te sirva
Saludos
Eugenio

Zirrosis

Muchas gracais....era lo ke buskaba....ahora ya me apañare yo....

Zank's

Zirrosis

Una ultima pregunta.....supongamos ke kiero extraer el kontenido ke hay en medio de 2 caracteres....por ejemplo:

Jaime es "corto"...

Kiero extraer lo ke hay entre las komillas....ke instruccion se usaria???o se harai con un bukle hasta recorrer toda la string desde el primer " hasta el segundo " y alamcenar todo lo de enmedio en una variable???

A lot of Thank's....xD xD xD

Amilius

Pascal no viene con tanta variedad de funciones de cadenas, pero con las que tiene puedes hacer lo que quieres y lo del bucle es buena idea. De todos modos es más que seguro que exista alguna biblioteca de funciones para cadenas que sería bueno tener a mano para estas cosas.

Zirrosis

Exacto...si alguien konoce alguna "biblioteca" de como trabajar strings en Pascal se agradeceria y mucho.....

Enko

otra vez, extraido de la misma fuente citada en el post de arriba.

Citar

Función Copy

Esta función devuelve una cadena de caracteres (subcadena) extraída de una cadena.

Formato:
Copy(s,posición,número)

s cadena (fuente)
posición primer carácter a extraer (tipo entero)
número total de caracteres a extraer (tipo entero)

Si posición es mayor que la longitud de S, se devuelve una cadena vacía; si número especifíca más caracteres que los indicados desde posición, sólo se devuelve el resto de la cadena.

Ejemplo:

cad := 'Instituto Tecnológico de La Paz';
cad2 := Copy(cad,26,6);
Write(cad2);

Lo que produce la cadena 'La Paz' contenida en cad2

Zirrosis

Ok...muchas gracias....

Zirrosis

Bien, kon los comandos posteados pretendo hacer una funcion ke me sake el kontenido ke hay entre 2 caracteres....por ejemplo, tengo esto:

Eskorbuto (gran grupo Punk) ya no cantan mas debido a que sus cantantes murieros pro sobredosis

Kiero ke la funcion extraiga lo ke hay dentro de los parentesis....habia ensado en hacerlo kon un bucle, pero me da un error brutal por pantalla (sintacticamente no hay error). Alguien me peude ayudar a codear esa funcion???

Gracias.

Zirrosis

Cita de: "Zirrosis"

Bien, kon los comandos posteados pretendo hacer una funcion ke me sake el kontenido ke hay entre 2 caracteres....por ejemplo, tengo esto:

Eskorbuto (gran grupo Punk) ya no cantan mas debido a que sus cantantes murieros pro sobredosis

Kiero ke la funcion extraiga lo ke hay dentro de los parentesis....habia ensado en hacerlo kon un bucle, pero me da un error brutal por pantalla (sintacticamente no hay error). Alguien me peude ayudar a codear esa funcion???

Gracias.

Nadie me puede ayudar???

Enko

Código: Text

 
function Extract(OpenS, CloseS, Str: String): String;
var
  ExtractResult: String;
  I: Integer;
  doCopy: Boolean;
begin
 for i:= 1 to Length(Str) do
 begin
   //el caracter es el del final, devolvemos resutlado y salimso
   if Str[i] = CloseS then
   begin
      doCopy := False;
      Extract := ExtractResult;
      Exit;
   end;
   //si ya comenso el segmento de copia....
   if doCopy then
   begin
     ExtractResult := ExtractResult + Str[i];
   end;
   //si el caracter es el de comienzo, tonces hay que copiar
   if Str[i] = OpenS then
      doCopy := True
   else
 end;
end;
 
var
  S: String;
 
begin
  Readln(S);
  WriteLn(Extract('(', ')',S));
  Readln;
end.
 
 

No es de lo mas eficiente pero funciona

Zirrosis

Muchas gracias Enko, da igual si no es eficiente...mientras funcione....

Si la as echo tu aun mas gracias entonces....

Enko

Cita de: "Zirrosis"

Muchas gracias Enko, da igual si no es eficiente...mientras funcione....

Si la as echo tu aun mas gracias entonces....

Lo hice en Delphi, pero aún así debería funcionar en TurboPascal ya que no use casi ninguna funcion salgo Length que esta en los dos Compiladores.

SoloCodigo

Autor Tema: Buscar Dentro De Strings (Leído 4196 veces)

Zirrosis

Buscar Dentro De Strings

Enko

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Amilius

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Enko

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Enko

Re: Buscar Dentro De Strings

Zirrosis

Re: Buscar Dentro De Strings

Enko

Re: Buscar Dentro De Strings