[AYUDA] Backup de SMS a Base de Datos

[hmoner]

Hola marcos
Gracias por la ayuda, y permiteme hacer algunas preguntas del caso

En la primer linea de los archivos de mensajes recibidos tengo esto por ejemplo:
[Sender]: Ernesto Perez Garcia Gomez [Received]: 2007-3-2 13:58:55

Entiendo lo de tomar con la funcion copy hasta el indice donde comienza el nombre, pero como hago para extraer hasta que comience [R... ? Osea, no todos los nombres tienen la misma longitud... Supongo que como dice tu primer respuesta, debere hallar la longitud del nombre primero... pero no se como

Hasta ahora tengo este codigo

...
    if ( pos('[Receiver]',buffer) > 0 ) then
    begin
      listbox1.Items.Add( copy(buffer,12,13) );
...

Alli uso 13, pero no siempre sera esa longitud

Y otra pregunta, parecida a la anterior...
Cuando lea el mensaje, debere hacer lo mismo para saber si llegue al final del mensaje, no ?

Resolviendo esto podre solucionar todo para los archivos de mensajes enviados

Muchisimas gracias

[marcoszorrilla]

Para empezar a hacer la prueba, crea un formulario con 2 Tedit, en el primero escribe el texto que muestras en tu pregunta (corrige Reciever por Recieved) y el segundo déjalo tal cual.

Ahora con este código verás como capturamos el nombre en cuestión.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
nIniSender:Integer;
nFinSender:Integer;
begin
nIniSender:=10;
nFinSender:= pos('[Received]',Edit1.Text);
nFinSender:= nFinSender - nIniSender;

  if nFinSender > 0 then
  Edit2.Text:=Copy(Edit1.Text,nIniSender,nFinSender);
end;

Un Saludo.

[hmoner]

Funcionó perfecto Marcos
supongo que
nIniSender:=10;
corresponde a la cantidad de caracteres desde el inicio que debo tomar para que empiece a obtener el nombre, no ?

Para la fecha, hora, y mensaje, debo hacer lo mismo ?

Gracias

[marcoszorrilla]

Si eso es, dada la estructura el comienzo es el caracter 10, por eso lo incluyo como fijo.

Un Saludo.

[gabrielkc]

No sabes hacer autómatas?,

eso es un trabajo para un Autómata, te saldría facilísimo y mucho mas adaptable