Función PosEspero que te sirva
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'}
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
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.
Muchas gracias Enko, da igual si no es eficiente...mientras funcione.... ;) ;)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.
Si la as echo tu aun mas gracias entonces.... :D :D