Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-08-2011
Panasys Panasys is offline
Miembro
 
Registrado: ago 2007
Posts: 88
Poder: 17
Panasys Va por buen camino
Extraer n caracteres de una cadena

Hola amigos, llevo una semana con algo que parece simple a la vista pero no lo es en los resultados

Les cuento, tengo una conexion serie con un aparato utilizando un componente ComPort, envio una cadena y el dispositivo me contesta con una cadena como esta: :0103100003006400000000000000000000000086. Hasta aca todo bien, el codigo es el siguiente:

Código Delphi [-]
procedure TFMain.Com_SerieRxChar(Sender: TObject; Count: Integer);
var
  Str           : String;
  SubWord1  : String;
  Word1       : Integer;
begin 
  Com_Serie.ReadStr(Str, Count);
  Str           := copy(Str, 10, 2);
  SubWord1 := '$' + Str;
  Word1      := strtoint(SubWord1 );;
  Memo1.text := Memo1.Text + inttostr(Word1);
End;

Str es la cadena que obtengo del dispositivo, que si la mando directamente al memo aparece correctamente y completa.

Ahora solo necesito esta parte de la cadena :0103100003006400000000000000000000000086, ya que esos dos caracteres representan un numero hexadecimal, por eso en SubWord1 le agrego el $ a la cadena y en Word1 lo paso de Str a Int para que me devuelva el valor, el hex va de 00 a ff por lo tanto voy a ir de 0 a 255 en el entero.

Cual es el problema? Que el copy me devuelve cualquier cosa, por momentos bien por momentos cualquier valor y no solo dos digitos puede darme 2, 4, 6 y hasta 8 digitos, eso hace que cuando lo paso a entero me da cualquier cosa.

El Memo1 solo esta para ver en tiempo real que esta diciendo, la app consulta cada segundo al dispositivo. Ya les digo que cuando muestro la cadena entera en el memo se ver perfecta y la comunicacion es correcta lo que no puedo hacer es extraer correctamente esos dos caracteres.

Un abrazo ! y gracias !!!

Muchos datos ? Mucha lata? Mucho Gre Gre para decir Gregorio? No sabia como explicarlo en menos palabras

Abrazos

Javier

Última edición por ecfisa fecha: 05-08-2011 a las 16:59:54. Razón: Etiquetas [DELPHI] [/DELPHI]
Responder Con Cita
  #2  
Antiguo 05-08-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Revisa si tu cadena tiene la longitud adecuada (mayor o igual a 10)...
Me llama la atención que marques en negrita los caracteres 9 y 10 y la instrucción sea Copy(Str, 10, 2);

¿No debería ser:?

Código Delphi [-]
if Length(Str) >= 10 then 
  SubWord1 := '$' + Copy(Str, 9, 2);

Saludos.
Responder Con Cita
  #3  
Antiguo 05-08-2011
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
Cita:
Empezado por escafandra Ver Mensaje
Revisa si tu cadena tiene la longitud adecuada (mayor o igual a 10)...
Me llama la atención que marques en negrita los caracteres 9 y 10 y la instrucción sea Copy(Str, 10, 2);

¿No debería ser:?

Código Delphi [-]
if Length(Str) >= 10 then 
  SubWord1 := '$' + Copy(Str, 9, 2);

Saludos.
Si tomas en cuenta el :, los caracteres si son el 10 y 11...

Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita
  #4  
Antiguo 05-08-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por maeyanes Ver Mensaje
Si tomas en cuenta el :, los caracteres si son el 10 y 11...

Saludos...
Muy cierto maeyanes, la presvicia me jugó una mala pasada.

Saludos.
Responder Con Cita
  #5  
Antiguo 05-08-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Prueba enviando cada paso al memo, para ver donde se produce el error:

Código Delphi [-]
procedure TFMain.Com_SerieRxChar(Sender: TObject; Count: Integer);
var
  Str : String;
  SubWord1 : String;
  Word1 : Integer;
begin 
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Inicio');

  Com_Serie.ReadStr(Str, Count);
  Memo1.Lines.Add('Str: '+Str);
  Memo1.Lines.Add('Count: '+IntToStr(Count));

  // Verifico que haya mas de 11 caracteres
  if Length(Str) >= 11 then
     Str := copy(Str, 10, 2)
  else
     Raise Exception.Create('Error al leer COM. No han llegado caracteres suficientes');
  Memo1.Lines.Add('copy(Str,10,2): '+Str);

  SubWord1 := '$' + Str;
  Memo1.Lines.Add('SubWord1: '+SubWord1);

  Word1 := strtoint(SubWord1 );;
  Memo1.Lines.Add('Word1: '+IntToStr(Word1));
end;

Última edición por duilioisola fecha: 05-08-2011 a las 17:41:35.
Responder Con Cita
  #6  
Antiguo 05-08-2011
Panasys Panasys is offline
Miembro
 
Registrado: ago 2007
Posts: 88
Poder: 17
Panasys Va por buen camino
Exactamente amigo, el problema es que no me esta llegando la cadena completa que especifique mas arriba en el primer post.

Hace un rato hice lo que planteas y me di cuenta de eso, pero planteare en otro post el problema del ComPort.

Es un problema con el componente.

Y Escafandra tienes razon, era 9,2 la posicion del copy. Pero igual no funciona porque seguramente no estoy utilizando correctamente la libreria del puerto serie.

Muchísimas gracias por la ayuda, igual me sirvio para recorrerme el foro y aprenderme otras cosas !!!

Un abrazo
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿Como extraer letras de una cadena? avila Varios 9 22-07-2011 18:42:29
Extraer caracteres de una cadena MiLLeNPuNk Varios 7 19-05-2010 22:37:25
Convertir cadena aleatoria en cadena de N caracteres DANY OOP 3 12-03-2009 21:49:21
Extraer caracteres de un edit lKinGl Varios 2 25-07-2008 00:12:14
Extraer caracteres de una Cadena!! subzero C++ Builder 6 18-02-2004 23:15:50


La franja horaria es GMT +2. Ahora son las 01:12:09.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi