Discussion :

[mlepretre]

Bonjour,

soit ma variable ValeurRxChar (String) qui contient la valeur suivante :

AT+GMM
Nokia E90

OK

Je modifie cette variable de façon à ne garder que "Nokia E90" grâce au code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure ConvertValeurRxChar;
var
  A, B : Integer;
begin
  A := Pos(Chr(10) , ValeurRxChar) + 1;
  B := Pos('OK' , ValeurRxChar) - 4;
 
  ValeurRxChar := Copy(ValeurRxChar, Pos(Chr(10) , ValeurRxChar) + 1, B - A);
end;

Malheureusement, ma variable initiale vaut parfois :

AT+GMM
Samsung J600
OK

... et dans ce cas mon code me renvoie "Samsung J60" du fait qu'il n'y ait pas d'espace entre la seconde ligne et le "OK"

J'aurais donc voulu dans mon code ne prendre que la sous-chaine comprise entre le premier retour chariot (Chr(10)) et le second plutôt qu'entre le premier retour chariot et le "OK"...

Seulement je ne sais pas comment obtenir la position du second Chr(10) car je n'ai jamais utilisé la fonction Pos avant.

Pourriez-vous m'aider svp ?

Merci

[Droïde Système7]

Salut,

Je pige pas trop, mais en gros, souhaites-tu suivant cet algo :

Si la ligne numéro trois n'est pas vide = j'insère une ligne entre ?

[mlepretre]

Salut, merci pour cette réponse aussi rapide...

Non, en somme je veux récupérer la seconde ligne...

(je réalise que mon explication n'était peut-être pas très claire lol)

[Droïde Système7]

Salut, merci pour cette réponse aussi rapide...

Non, en somme je veux récupérer la seconde ligne...

(je réalise que mon explication n'était peut-être pas très claire lol)

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(memo1.Lines.Strings[2]);

[Aka Guymelef]

Bonjour,

Si tu peux te fier au retour chariot alors tu peux procéder comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var
 A, B: Integer;
begin
  // récupérer la position du premier retour chariot
  A := Pos( Char(13), ValeurRxChar );
  B := PosEx( Char(13), ValeurRxChar, A+1 );
  ValeurRxChar := Copy( ValeurRxChar , A+1, B - A + 1 );
end;

Bon alors y'a peut-être des problèmes de décalage de 1 caractère à revoir mais en gros l'idée c'est de copier ce qu'il y a entre le premier retour chariot et le second.

[mlepretre]

Excellent !!! C'est exactement ce que je cherchais !

Merci, à bientôt...

[petitcoucou31]

salut

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure ConvertValeurRxChar(sep:char);
var P : Integer;
begin
  P:=Pos(sep , ValeurRxChar);
  delete(ValeurRxChar,1,P);
  P:=Pos(sep , ValeurRxChar);
  delete(ValeurRxChar,P,length(ValeurRxChar));
  ValeurRxChar:=trim(ValeurRxChar);
end;