tomar valor de entre cadena delphi xe 10

wolfran_hack · #1 29-12-2015

Tengo todo un memo con un codigo fuente y necesito sacar el valor de entre:

Código:

lon="-58.54236984"

y mostrarlo como -58.54236984

ideas¿?

ecfisa · #2 29-12-2015

Hola wolfran_hack.

Una que te permite extraer lo comprendido entre el texto: lon=" y la siguiente: "

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

procedure ....
var
  p1, p2: Integer;
begin
  Memo1.Text := 'Tengo todo un memo con un codigo fuente y necesito sacar' +
                ' el valor de entre: lon="-58.54236984" y mostrarlo como '+
                '-58.54236984 ideas¿?';

  p1  := Pos('lon="', Memo1.Text) + Length('lon="');
  p2  := PosEx('"', Memo1.Text, p1);

  ShowMessage(Copy(Memo1.Text, p1, p2 - p1));
...

Saludos

wolfran_hack · #3 04-01-2016

Gracias! para XE:

Código:

uses System.StrUtils

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Tomar una cadena numerica	DasGrun	Conexión con bases de datos	5	12-04-2011 20:01:20
Tomar Valor de un campo a una variable	pmtzg	Conexión con bases de datos	5	28-05-2008 20:39:03
tomar el valor de un campo en DataGrid	martindebiasi	Internet	2	29-02-2008 13:02:32
Tomar el valor de una celda de un dbgrid	Petolansa	Conexión con bases de datos	9	09-09-2005 02:33:34
tomar el valor QRDBText	Supermagayin	Impresión	2	01-06-2005 20:43:39