Discussion :

[johweb]

Bonjour à tous.

Cela fait longtemps que je n'ai pas fait de Delphi, et là j'ai un petit projet à faire qui me pose des soucis...

J'ai une balance de précision connectée par le port série à mon PC. J'utilise le composant ComPort pour communiquer avec cette balance.

Sur un clic de bouton sur mon application, cette balance me renvoie d'abord cette chaine de caractères :

01/01/05

puis

00:55:56 AM
Bal ID: 8728365588
USER ID:
PROJ ID:
Name___________________
4.9882 g
4.9882 g

Les retours à la ligne semblent être de simples #13#10.

J'aimerai traiter cette deuxième chaine de caractères afin de ne conserver que le poids envoyé (ici : 4.9882).
Si quelqu'un pouvait me mettre sur une piste, cela serait vraiment sympa...

Merci
Johweb

[Cl@udius]

Salut

Je vois une solution assez simple en utilisant un TStringList:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function GetWeight(const InStr: string): string;
var
  SL: TStringList;
begin
  Result := '';
  SL := TStringList.Create;
  try
    SL.Text := InStr;
    if SL.Count > 5 then
      Result := SL[5];  // Renvoyer la 6° ligne
  finally
    SL.Free;
  end;
end;

Il y a surement d'autres méthodes, mais celle-ci reste à mon avis la plus simple.

@+ Claudius

[johweb]

C'est aussi simple que cela ! Merci beaucoup.

Bon, maintenant, j'ai des soucis de traitement des autres chaines renvoyées par la balance, mais je vais chercher un peu avant d'appeler à l'aide.

Merci encore !