Funciones String

[[fer21unmsm]]

Empezado por thomasini

Hola:

Tengo un problemilla... alguien sabe de alguna funcion o en todo caso alguien ha desarrollado algun codigo q permita... dada una cadena de texto identificar el valor o la subcadena que se encuentra entre dos simbolos... ejm:

"este es un jemplo para verificar <Prueba> si funciona"
deseo guardar el valor que se encuentra entre los simbolso "<>" q es Prueba.. algo asi..

si alguien puede ayudarme.. se lo agradecere...

Saludos
Thomas

Hola thomas, aquí te dejo la función hecha tomando en cuenta que el delimitador es '<' y '>', si deseas cambiar de delimitador sólo agrégale dos parámetros más a la función para especificar el delimitador inicial y el final, y los reemplazas '<' (por delimitador inicial) y '>' (por delimitador final).

Código Delphi [-]
function ExtraeCadena(cadena: string): string;
begin
  result:=copy(cadena,pos('<',cadena)+1,pos('>',cadena)-pos('<',cadena)-1);
end;

saludos.