Modifier le contenu d'un RichEdit

Bonjour,
Je met dans un RichEdit ce que je lie d'un port Com, et voici ce que j'obtiens:
1-05-2-01 TEMP. ECHAP. APRES
H
C
4
H
5
A
0
U

D

I

ERE RECUP TD OK 373 °C
Il faudrait lire ceci :
1-05-2-01 TEMP. ECHAP. APRES CHAUDIERE RECUP TD H450 OK 373 °C

merci de votre aide

Salut,

Bin c'est que le texte envoyé dans le RichEdit est truffé de CRLF = #13#10
Reste donc plus qu'à les supprimer.
voir ici : http://www.developpez.net/forums/d78...text-richedit/

A+.

Bonjour,
Comme Gilbert , je dirais "yaka" mais la source de ces CR/LF est peut être due à la méthode de lecture via le port com

Avant tout merci de votre aide!

Gilbert, pour le #20, c'est une erreur de ma part, j'ai essayé de supprimer les (Space) $20.
Par contre avec ce code, il ne se passe rien dans mon RichEdit...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure SupprChar(const S : string; var MS : TMemoryStream; CharSuppr : Char);
const     ibMax = 65536;
var       ic,ib,transf : integer; buff : array [0..ibMax] of char;
begin     ib:=-1; transf:=0; MS.Position:=0;
          for ic:=1 to length(S) do
          begin if S[ic] <> CharSuppr
                then begin inc(ib); buff[ib]:=S[ic]; inc(transf); end;
                if transf=ibMax+1 then
                begin MS.Write(buff,transf); ib:=-1; transf:=0; end;
          end;
          if transf<>0 then MS.Write(buff,transf);
end;
 
 
procedure TJournaux.SpeedButton3Click(Sender: TObject);
var       MS : tMemoryStream; i : integer;
begin     MS := tMemoryStream.create;
          SupprChar(RichEdit_Journaux.Text,MS,#13); // #13 = CR = Carriage Return
          SupprChar(RichEdit_Journaux.Text,MS,#10); // #10 = LF = Line Feed
          MS.Position:=0;
          RichEdit_Journaux.Lines.LoadFromStream(MS);
          MS.Free;

Bonjour ,

il y a plus simple pour remplacer les CR/LF , utiliser la fonction StringReplace

Citation:

function StringReplace ( const SourceString, OldPattern, NewPattern : string; Flags : TReplaceFlags ) : string;
Code:

1 2 3 4 5 6 7 procedure TForm1.Button1Click(Sender: TObject); var A : String; const CRLF : String = #13#10; begin A:=StringReplace(Memo1.Lines.Text,CRLF,'',[rfReplaceAll]); Memo2.Lines.Add(A+CRLF); end;
Question : Pourquoi un TRichEdit ?
P.S. Merci d'utiliser les balises de code (bouton #) , cela facilite grandement la lecture

Bonjour,

Citation:

Marin1617 : Gilbert, pour le #20, c'est une erreur de ma part, j'ai essayé de supprimer les (Space) $20.
Par contre avec ce code, il ne se passe rien dans mon RichEdit...

S'il ne se passe rien c'est que les caractères parasites sont autre chose que CRLF, donc pour commencer il faut identifier les caractères à supprimer.
Les identifier avec une boucle de i := 1 à N do ShowMessage(RichEdit_Journaux.Text[i] + ' : ' + IntToStr(Ord(RichEdit_Journaux.Text[i])))
Du coté du bleu tu verras le ShowMessage afficher les caractères visibles ... et s'il n'est pas visible alors du coté du vert tu verras si c'est du Chr(32) ou autre à supprimer.
Et puis Space = $20 = #32 = Chr(32) et non #20.

A+. :D

Merci Gilbert,
Voici ce que j'obtiens :
1-05-2-01 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP TD OK 373 °C

Il reste beaucoup de #32 à supprimer, et une autre question : comment couper les : H450 pour les coller entre TD et 373
Frédéric

Bonjour,

Citation:

Voici ce que j'obtiens :
1-05-2-01 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP TD OK 373 °C

Il reste beaucoup de #32 à supprimer, et une autre question : comment couper les : H450 pour les coller entre TD et 373

Bizarre le bordel que la lecture via le port com met dans le mot CHAUDIERE !!!???
Code:

1 2 3 Pour transformer : 1-05-2-01 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP TD OK 373 °C en : 1-05-2-01 TEMP. ECHAP. APRES CHAUDIERE RECUP TD H450 OK 373 °C
Je procéderais comme suit :
1 - vérifier si la lecture via le port com est correcte car le bordel provient peut-être de la lecture,
si oui ou non alors :
2 - copier la chaîne à transformer en trois parties : S1 = partie de gauche avec espaces à conserver, S2 = partie du milieu avec espaces à supprimer, et S3 = partie de droite avec espaces à conserver.
(utiliser la fonction Copy(S; Index, Count: Integer): string;)
3 - supprimer les #32 dans la partie S2 avec :
Code:

1 2 3 po:=pos(#32, S2); // var po : integer; while po > 0 do begin Delete(S2, po, 1); po:=pos(#32, S2); end;
4 - mémoriser les valeurs de H 4 5 0 avant de les supprimer dans S2,
5 - insérer le H450 mémorisé à sa bonne place dans S3,
6 - résultat final = S1 + S2 +S3.

Pour l'étape 4 : vérifier que le bordel positionne toujours les valeurs de H 4 5 et 0 (variables d'une chaudière à l'autre ???) aux mêmes positions dans S2.
Autre question : est-ce que la partie '1-05-2-01' a toujours la même longueur ???
Bon, courage.

A+. :D

Citation:

Envoyé par Gilbert Geyer

1 - vérifier si la lecture via le port com est correcte car le bordel provient peut-être de la lecture,

c'était ma première impression

Citation:

Envoyé par SergioMaster

la source de ces CR/LF est peut être due à la méthode de lecture via le port com

Gilbert, la lecture via le port com est correcte car je li sur le même port com d'autres données!
J'ai essayé de travailler sur le mode de lecture etc, mais, je reçois toujours la même chose, donc il ne me reste plus qu'à modifier le contenu de mon RichEdit. D'ailleurs, un grand merci pour ton aide..
Par contre je ne pourrais pas tester le code que tu m'as filer avant vendredi prochain... Vivement
Je te tiens au courant
Bonne semaine

Bonjour Gilbert,
Effectivement la partie '1-05-2-01' est l'adresse de mes alarmes, et elles est toujours de même longueur.
1-05-2-01

1-05-2-02
etc...
Par contre je vois bien ce que tu voudrai faire mais j'avoue qu'à mon niveau, j'ai du mal à mettre tout cela en forme.

Je veux bien un coup de main

Bonjour,

Citation:

Marin1617 : Effectivement la partie '1-05-2-01' est l'adresse de mes alarmes, et elles est toujours de même longueur.

Donc, on peut en conclure que les longueurs des sous-chaînes S1 = partie de gauche avec espaces à conserver, S2 = partie du milieu avec espaces à supprimer, et S3 = partie de droite avec espaces à conserver, sont toujours de même longueur : Oui/Non ???.

Citation:

Par contre je vois bien ce que tu voudrai faire mais j'avoue qu'à mon niveau, j'ai du mal à mettre tout cela en forme.
Je veux bien un coup de main .

Puisque tu vois bien comment je le ferais, fais donc un bout de code pour ce que tu sais faire pour les étapes 2 à 6 et on corrigera et compléterons au fur et à mesure.

Pour l'étape 4 (- mémoriser les valeurs de H 4 5 0) il faudrait que l'on soit certains que ces valeurs soient elles aussi toujours positionnées aux mêmes endroits de la chaîne.???

A+. :D

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 procedure TJournaux.SpeedButton2Click(Sender: TObject); var S1,S2,S3 : string; po,pi,pu : integer; begin fin := length(#13#10); S1 := Copy(RichEdit_Copy.Lines.Text,1,29); RichEdit_Journaux.Lines.Add(S1); S2 := Copy(RichEdit_Copy.Lines.Text,31,450); po := pos(#32, S2); while po > 0 do begin delete(S2, po, 1); po := pos(#32, S2); end; pi := pos(#10, S2); while pi > 0 do begin delete(S2, pi, 1); pi := pos(#10, S2); end; pu := pos(#13, S2); while pu > 0 do begin delete(S2, pu, 1); pu := pos(#13, S2); end; RichEdit_Journaux.Lines.Add(S2); S3 := Copy(RichEdit_Copy.Lines.Text,451,516); RichEdit_Journaux.Lines.Add(S3);
Avec ce code, j'obtiens :
1-05-2-01 TEMP. ECHAP. APRES
HC4H5A0UDI
I

ERE RECUP TD OK 373 °C
Voilà ou j'en suis pour le moment. Par contre j'ai tenté avec une variable fin pour délimiter la fin de la 3eme sous chaine, mais se ne marche pas!
Il y a un I qui vient de je ne sais trop ou?
Je ne sais pas faire pour l'étape 4.
Pour ce qui est de la longueur des sous chaines, voici quelques lignes que je reçois du port com, et il y en a encore beaucoup...
OPéRATEUR : LEVEL 3

GROUPES FONCTIONNELS : RELEVE GENERAL

NUMERO LIBELLE SEUILS ETAT MESURE UNITE

1-05-2-01 TEMP. ECHAP. APRES
H
C
4
H
5
A
0
U

D

I

ERE RECUP TD OK 373 °C

1-05-2-02 TEMP. ECHAP. ENTREE
H
T
5
S
5

0
V

A

MP TD OK 531 °C

1-05-2-03 TEMP. ECHAP. ENTREE
H
T
5
S
6

0
V

B

MP TD OK 540 °C

1-05-2-04 TEMP. ECHAP. APRES
H
C
4
H
5
A
0
U

D

I

ERE RECUP BD OK 366 °C
Qu'en pense tu?
Frederic

Re-salut,

Il faudrait prendre l'habitude d'ajouter les Balises qui délimitent le code : Au lieu de placer un # en début et à la fin du code il faut sélectionner le code puis cliquer sur le bouton marqué justement avec ce #

Remarque 1 :

Citation:

voici quelques lignes que je reçois du port com

La sous-chaîne S1 est :
- tantôt : 1-05-2-01 TEMP. ECHAP. APRES
- tantôt : 1-05-2-02 TEMP. ECHAP. ENTREE
donc sa longueur n'est pas constante, et donc S1 := Copy(RichEdit_Copy.Lines.Text,1,29); n'est pas correct, et donc les deux autres (S2 et S3) sont aussi incorrectes.
On dirait même que cette variation n'est pas alternative à moins que les extraits que tu cites ne se suivent pas dans l'ordre réel ???
Il faudrait donc vérifier ceci, car si cette variation est alternative on peut copier alternativement S1 avec 29 caractères puis avec 30 caractères et en tenir compte pour les copy de S2 et S3.
(Espérons que le le port com t'envoie toujours 1-05-2-01 TEMP. ECHAP. APRES en tête de liste, puis alternativement 1-05-2-02 TEMP. ECHAP. ENTREE, etc et si N = indice chaudière alors count = 29 si N est pair et si N est impair alors count = 30. N est impair si Odd(N) = true).

Citation:

Il y a un I qui vient de je ne sais trop ou?

Cela provient probablement de l'anomalie évoquée ci-dessus. On verra après avoir corrigé l'anomalie ci-dessus.
Si ce que j'espère ci-dessus n'est pas le cas, je pense qu'on pourrait s'en sortir autrement en parcourant le RichEdit ligne par ligne avec :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.Button1Click(Sender: TObject); var S, Sc : string; i : integer; SL :tStringList; begin SL := tStringList.Create; for i:=0 to RichEdit_Copy.Lines.count-1 do begin S := RichEdit_Copy.Lines[i]; if (pos('APRES', S)>0) or (pos('ENTREE', S)>0) then Sc := S + ' ' // Début de ce qui concerne une chaudière else Sc:=Sc + S; // Accumulation dans Sc de tout ce qui concerne la même chaudière if (pos('°C', S)>0) then begin // Fin de ce qui concerne la même chaudière SL.Add(Sc); // on récupère Sc dans la stringList end; end; RichEdit_Copy.Lines.Assign(SL); // on affiche le résultat dans le même RichEdit SL.Free; end;
Avec ce code j'obtiens dans le TRichEdit les lignes suivantes à partir de ce que tu dis recevoir du port com et que j'ai récupéré ici par copier-coller:

1-05-2-01 TEMP. ECHAP. APRES HC4H5A0UDIERE RECUP TD OK 373 °C
1-05-2-02 TEMP. ECHAP. ENTREE HT5S50VAMP TD OK 531 °C
1-05-2-03 TEMP. ECHAP. ENTREE HT5S60VBMP TD OK 540 °C
1-05-2-04 TEMP. ECHAP. APRES HC4H5A0UDIERE RECUP BD OK 366 °C

Chaque ligne correspond à la même chaudière. On peut y distinguer les lignes qui comportent APRES de celles qui incluent ENTREE avec un if pos('ENTREE',Ligne[i])>0 then ...
Par contre il faudrait maintenant savoir ce qu'il faut modifier dans les parties en gras de ces lignes pour retomber sur ses pattes ???

A+. :D

Re,
ce n'est pas toujours APRES ou ENTREE :
2-01-6-01 MOYENNE T° CYL. MP T
H
D
4

6

9

.

0

OK 376.6 °C

2-01-6-02 MOYENNE T°CYL. MP BD
H

4

6

9

.

0

OK 377.7 °C

2-01-1-02 T°ECHAPPEMENT
D
M
V
P
0

T

D

CYL.A2 OK 354 °C

2-02-2-01 PRESSION HUILE
L
H
2
E
.
L
0
I

C

E

TD OK 5.0 BAR
2-02-2-03 PRESSION AIR DE

S
H
U
2
R
.
A
5
L

I

MENT.MP TD OK 0.7 BAR
2-02-2-05 PRESSION POMPES
L
E
0
M
.

5
R

E

F

RIG MPX OK 1.5 BAR
etc...

1-05-2-01 TEMP. ECHAP. APRES HC4H5A0UDIERE RECUP TD OK 373 °C
1-05-2-02 TEMP. ECHAP. ENTREE HT5S50VAMP TD OK 531 °C
1-05-2-03 TEMP. ECHAP. ENTREE HT5S60VBMP TD OK 540 °C
1-05-2-04 TEMP. ECHAP. APRES HC4H5A0UDIERE RECUP BD OK 366 °C

Nous devrions retrouver :

1-05-2-01 TEMP. ECHAP. APRES CHAUDIERE RECUP TD H450 OK 373°C
1-05-2-02 TEMP. ECHAP. ENTREE TS VA MP TD H550 OK 531°C
1-05-2-03 TEMP. ECHAP. ENTREE TS VB MP BD H560 OK 540°C
1-05-2-04 TEMP. ECHAP. APRES CHAUDIERE RECUP BD H450 OK 366°C

1 pièce(s) jointe(s)

Re,
Ce que je copie/colle sur la page du forum n'est pas identique à ce que j'obtiens. Je te joint un .doc de ce que j'obtiens.:)

Chaque première parties (S1) se termine par #13#10, on pourrait peut être supprimer ce #13#10 et commencer à partir de là à travailler la deuxième partie? Quand pense tu?:P

1 pièce(s) jointe(s)

Bonjour,

Citation:

Je te joint un .doc de ce que j'obtiens

Vu ton .doc : sacré bordel !!!

Citation:

on pourrait peut être supprimer ce #13#10

Au lieu de les supprimer j'ai fait comme hier je ramasse les miettes alphanumériques pour les regrouper dans une chaîne qui se termine par #32 + '°C'
et avant de récupérer chacune de ces chaînes dans la StringList j'y supprime les espaces redondants pour n'en laisser chaque fois qu'un seul avec le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 procedure TForm1.Button1Click(Sender: TObject); var S, Sc, Reste: string; i, poDeg: integer; SL: tStringList; procedure ReduireEspacesA1(var S: string); // Réduit les répétitions d'espaces à un seul var po: integer; begin po := pos(#32#32, S); while po > 0 do begin Delete(S, po, 1); po := pos(#32#32, S); end; end; begin SL := tStringList.Create; Sc := ''; for i := 0 to RichEdit_Copy.Lines.count - 1 do begin S := RichEdit_Copy.Lines[i]; Sc := Sc + S; // Accumulation dans Sc de tout ce qui concerne la même chaudière poDeg := pos(#32+'°C', Sc); if (poDeg > 0) then begin // Fin de ce qui concerne la même chaudière Reste := Copy(sc, poDeg + 3, MaxInt); sc := Copy(sc, 1, poDeg + 2); ReduireEspacesA1(sc); SL.Add(Sc); // on récupère Sc dans la stringList sc := Reste; end; end; RichEdit_Copy.Lines.Assign(SL); // on affiche le résultat dans le même RichEdit SL.Free; end;
... et avec ce code j'obtiens la liste de chaînes dont voici un extrait (ou voir la liste complète dans le .doc ci-joint) :

1-05-2-01 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP TD OK 373 °C
1-05-2-02 TEMP. ECHAP. ENTREE H T 5 S 5 0 V A MP TD OK 531 °C
...
1-05-2-04 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP BD OK 366 °C
...
1-05-2-06 TEMP. ECHAP. ENTREE H T 5 S 6 0 V B MP BD OK 543 °C
...
2-01-6-01 MOYENNE T° CYL. MP T H D 4 6 9 . 0 OK 376.6 °C
1-05-2-06 TEMP. ECHAP. ENTREE H T 5 S 6 0 V B MP BD OK 543 °C
2-01-6-01 MOYENNE T° CYL. MP T H D 4 6 9 . 0 OK 376.6 °C
2-01-6-02 MOYENNE T°CYL. MP BD1-05-2-06 TEMP. ECHAP. ENTREE H T 5 S 6 0 V B MP BD OK 543 °C
...
2-01-6-02 MOYENNE T°CYL. MP BD H 4 6 9 . 0 OK 377.7 °C
2-01-1-01 T°ECHAPPEMENT D M V P 0 T D CYL.A1 OK 340 °C
...
2-01-1-04 T°ECHAPPEMENT D M V P 0 T D CYL.A4 OK 388 °C

A mon avis il ne reste plus qu'à supprimer dans ce charabia, ici et là, un espace, mais seuls ceux qui savent ce que ce charabia signifie pourront dire quels sont ces espaces à supprimer. T'as une idée ???

A+. :D

Re-salut,

A propos de :

Citation:

Gilbert, la lecture via le port com est correcte car je lis sur le même port com d'autres données!

Si on n'arrive pas à clarifier les parties "charabia" des chaînes il ne resterait plus qu'à voir si toi ou quelqu'un d'autre peut intervenir en amont du port com pour mettre de l'ordre dans les données qui sont transmises au port com :
- si ces données proviennent d'une saisie manuelle à l'aide d'un logiciel-maison : rectification du logiciel,
- si ces données proviennent de capteurs : rectification de l'interface qui traduit les signaux des capteurs en données alphanumériques,
car à mon avis il n'est pas normal qu'en mettant les miettes bout à bout on obtienne ceci 1-05-2-01 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP TD OK 373 °C
où les chiffres du nombre 450 sont intercalés dans le mot CHAUDIERE ... sans oublier que le port com ne te transmet que ce qu'il reçoit de l'amont.

Bon, tu me diras "c'est plus facile à dire qu'à faire"...

A+. :D

Bonjour Gilbert, on approche...
pour la fin des chaines, j'ai essayé de mettre un 'or' car certaines chaines se termine par :
#32 + 'BAR';
#32 + 'RPM';
#32 + 'KW';
et 7 se termine par rien.
En amont, on ne peux rien faire.
Par contre pour que tu y voit plus clair : c'est une centrale d'alarme CMR qui envoit les alarmes et journaux machines (ce sur quoi nous travaillons) à une interface Homme/Machine et qui l'imprime. Ce que j'essai de faire, c'est de remplacer l'imprimante OKI qui mange beaucoup de papier par une imprimante informatique! J'y suis parvenu pour les alarmes mais pour un type de journaux (car il y en a plusieurs) le port com nous envoi le charabia !!
Plus tard, si nous parvenons à mettre en place le bordel, il ne restera plus qu’à détecter le journal (je pense que la première ligne le permettra) pour appliquer le code. Car bien entendu les autres types de journaux arrivent lisible..
Je te joint une impression clair de l’ensemble qui se décompose comme suit :
NUMERO LIBELLE SEUILS ETAT MESURE UNITE

Les NUMERO, LIBELLE et UNITE sont fixe,
Les SEUILS, ETAT et MESURE varient.
Nous le bordel s’applique en la fin du LIBELLE et le SEUILS.
Frédéric

1 pièce(s) jointe(s)

:)

1 pièce(s) jointe(s)

Et la suite :)

Bonjour Marin,

Citation:

pour la fin des chaines, j'ai essayé de mettre un 'or' car certaines chaines se termine par :
#32 + 'BAR';
#32 + 'RPM';
#32 + 'KW';
et 7 se termine par rien.

Quand tu dis 'essayé' veux tu dire que ça n'a pas marché ???
Si ça n'a pas marché c'est peut-être que tu n'as pas copié dans 'Reste' la partie de 'sc' qui se situe après #32 + 'BAR'.

Quand tu dis "et 7 se termine par rien" : ça je ne comprends pas. C'est quoi ce 7 ???

Citation:

En amont, on ne peux rien faire.

Dommage, car il est toujours préférable de résoudre les problèmes à leur source.

Citation:

Par contre pour que tu y voit plus clair : c'est une centrale d'alarme CMR ... Je te joint une impression clair de l’ensemble qui se ...

OK, je vais y jeter un coup d'œil pour voir ce qu'on peut en tirer.

Citation:

NUMERO LIBELLE SEUILS ETAT MESURE UNITE

Les NUMERO, LIBELLE et UNITE sont fixes,
Les SEUILS, ETAT et MESURE varient.
Nous le bordel s’applique en la fin du LIBELLE et le SEUILS.

OK, il faudra analyser la partie bordel pour voir ce qu'on peut en faire.

Sur ce, je vais ajouter les or #32 + 'BAR'; or #32 + 'RPM'; or #32 + 'KW';

A+. :D

1 pièce(s) jointe(s)

Re-salut,

Voici le code modifié qui tient compte des séquences qui se terminent #32 + 'BAR', #32 + 'RPM', ou #32 + 'KW'
... en attendant de savoir ce que tu as voulu dire par "et 7 se termine par rien" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 procedure TForm1.Button1Click(Sender: TObject); var S, Sc, Reste: string; i, poCas1, poCas2, poDeg, poBAR, poRPM, poKW: integer; SL: tStringList; procedure ReduireEspacesA1(var S: string); // Réduit les répétitions d'espaces à un seul var po: integer; begin po := pos(#32#32, S); while po > 0 do begin Delete(S, po, 1); po := pos(#32#32, S); end; end; begin SL := tStringList.Create; SL.Sorted := True; // Liste triée pour regrouper les lignes qui se ressemblent SL.Duplicates := dupAccept; // := dupIgnore si on veut ignorer les doublons Sc := ''; RE1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Journal périodique Orig.txt'); for i := 0 to RE1.Lines.count - 1 do begin S := RE1.Lines[i]; Sc := Sc + S; // Accumulation dans Sc de tout ce qui concerne le même enregistrement poCas1 := 0; poBAR := pos(#32 + 'BAR', Sc); if (poBAR > 0) then poCas1 := poBAR; poRPM := pos(#32 + 'RPM', Sc); if (poRPM > 0) then poCas1 := poRPM; poCas2 := 0; poDeg := pos(#32 + '°C', Sc); if (poDeg > 0) then poCas2 := poDeg; poKW := pos(#32 + 'KW', Sc); if (poKW > 0) then poCas2 := poKW; if poCas1 > 0 then begin // Fin de ce qui concerne le même enregistrement Cas 1 Reste := Copy(sc, poCas1 + 4, MaxInt); sc := Copy(sc, 1, poCas1 + 3); ReduireEspacesA1(sc); SL.Add(Sc); // on récupère Sc dans la stringList sc := Reste; end else if poCas2 > 0 then begin // Fin de ce qui concerne le même enregistrement Cas 2 Reste := Copy(sc, poCas2 + 3, MaxInt); sc := Copy(sc, 1, poCas2 + 2); ReduireEspacesA1(sc); SL.Add(Sc); // on récupère Sc dans la stringList sc := Reste; end; end; SL.SaveToFile(repAppli+'Journal_Classé.txt'); RE1.Lines.Assign(SL); // on affiche le résultat dans le même RichEdit SL.Free; end;
Attention, dans mon code :
1) RE1 c'est le RichEdit qui peut être vide au départ et j'y charge le fichier Journal périodique Orig.txt qui n'est rien d'autre que ton .doc sauvé au format .txt
2) SL.Sorted:=True; afin que la StringList-ramasse-miettes soit triée pour regrouper les lignes qui se ressemblent : ça permet de se rendre plus facilement compte du nombre de cas de figure qu'il faudra décrypter.
3) le SL.SaveToFile(repAppli+'Journal_Classé.txt') vers la fin, tu peux le virer si tu ne veux pas sauver le résultat sur disque.

Ci-joint le fichier-résultat :

A+. :D

Bonjour Gilbert, en fait les 7 sont : les phrases qui n'ont pas de valeurs d'unité (°C, BAR, KW...)
2-06-3-01 CAP DU NAVIRE

OK 88.3

2-06-3-02 ANGLE DE BARRE BD

OK -3.8

2-06-3-03 ANGLE DE BARRE TD

OK 0.3

2-06-3-04 PAS DEMANDES TD

OK 6.7

2-06-3-05 PAS OBTENUS TD

OK 7.5

2-06-3-06 PAS DEMANDES BD

OK 7.3

2-06-3-07 PAS OBTENUS BD

OK 8.1

Re-salut,

Suggestion pour l'étape suivante : Insérer dans chacune des chaînes NUMERO + LIBELLE + SEUILS + ETAT + MESURE + UNITE des séparateurs qui délimitent les sous-chaînes à bordel.
Pour ma part je propose : NUMERO + LIBELLE + Sep1 + SEUILS + Sep2 + ETAT + Sep3 + MESURE + UNITE, sauf si tu en veux davantage ???.
Ces séparateurs pourront aussi être utilisés par la suite pour imprimer les sous-chaînes alignées sur des colonnes comme dans tes .pdf.
Reste à choisir les Séparateurs dans la table de caractères parmi ceux qui ne proviennent jamais du port com et ceux qui restent invisibles.
Ceux qui restent invisibles dans un RichEdit, mis à part #13 et #10, sont [#1, #9, #11, #12, #28 à #32, et #160] mais on pourrait aussi choisir des caractères accentués qui n'apparaissent jamais dans le binz qui provient du port com.
Ou bien choisis parmi ceux-ci qui s'affichent dans un RichEdit sans trop gêner :
#91 [
#92 \
#93 ]
#123 {
#124 |
#125 }

A+. :D

Re-salut,

Oups, je n'avais pas remarqué que pendant que je rédigeais mon message précédent tu as été plus rapide que moi :

Citation:

Bonjour Gilbert, en fait les 7 sont : les phrases qui n'ont pas de valeurs d'unité (°C, BAR, KW...)
2-06-3-01 CAP DU NAVIRE OK 88.3
...
2-06-3-07 PAS OBTENUS BD OK 8.1 [/B]

OK, ça fait donc 7 cas particuliers à ajouter.

A+. :D

Re-salut,

Voici le code modifié pour la prise en compte des 7 cas particuliers qui n'ont pas de valeurs d'unité ... mais qui (bordel en prime) sont des variables :
donc c'est du provisoire qui ne marche qu'avec la longueur des variables que tu as fournies en tant qu'exemples,
et donc seulement si l'ETAT = 'OK' et si la longueur de MESURE ne varie pas : Varie-t-elle ???. : si oui, casse-tête en vue.
Question : comment est libellé l'ETAT lorsqu'il n'est pas 'OK' ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
procedure TForm1.Button1Click(Sender: TObject);
const
  cp1 = 'CAP DU NAVIRE'; cp2 = 'ANGLE DE BARRE BD'; cp3 = 'ANGLE DE BARRE TD';
  cp4 = 'PAS DEMANDES TD'; cp5 = 'PAS OBTENUS TD'; cp6 = 'PAS DEMANDES BD';
  cp7 = 'PAS OBTENUS BD';
var
  S, Sc, Reste: string;
  i, poCas1, poCas2, poDeg, poBAR, poRPM, poKW: integer;
  pocp1, pocp2, pocp3, pocp4, pocp5, pocp6, pocp7: integer;
  SL: tStringList;
 
  procedure ReduireEspacesA1(var S: string);
  // Réduit les répétitions d'espaces à un seul
  var po: integer;
  begin
    po := pos(#32#32, S);
    while po > 0 do begin Delete(S, po, 1); po := pos(#32#32, S); end;
  end;
 
begin
  SL := tStringList.Create;
  SL.Sorted := True; // Liste triée pour tenter de regrouper de lignes qui se ressemblent
  SL.Duplicates := dupAccept;
  Sc := '';
  RE1.Lines.LoadFromFile(RepAppli + 'Journal périodique Orig.txt');
  for i := 0 to RE1.Lines.count - 1 do begin
    //S := trim(RE1.Lines[i]);
    S := RE1.Lines[i];
    Sc := Sc + S; // Accumulation dans Sc de tout ce qui concerne le même enregistrement
    ReduireEspacesA1(sc);
 
    poCas1 := 0;
    poBAR := pos(#32 + 'BAR', Sc); if (poBAR > 0) and (pos('BARRE', Sc) < 0) then poCas1 := poBAR;
    poRPM := pos(#32 + 'RPM', Sc); if (poRPM > 0) then poCas1 := poRPM;
    poCas2 := 0;
    poDeg := pos(#32 + '°C', Sc); if (poDeg > 0) then poCas2 := poDeg;
    poKW := pos(#32 + 'KW', Sc); if (poKW > 0) then poCas2 := poKW;
 
    pocp1 := pos(cp1, Sc); pocp2 := pos(cp2, Sc); pocp3 := pos(cp3, Sc); pocp4 := pos(cp4, Sc);
    pocp5 := pos(cp5, Sc); pocp6 := pos(cp6, Sc); pocp7 := pos(cp7, Sc);
 
    if poCas1 > 0 then begin // Fin de ce qui concerne le même enregistrement Cas 1
      Reste := Copy(sc, poCas1 + 4, MaxInt);
      sc := Copy(sc, 1, poCas1 + 3);
      ReduireEspacesA1(sc);
      SL.Add(Sc); // on récupère Sc dans la stringList
      sc := Reste;
    end else
      if poCas2 > 0 then begin // Fin de ce qui concerne le même enregistrement Cas 2
      Reste := Copy(sc, poCas2 + 3, MaxInt);
      sc := Copy(sc, 1, poCas2 + 2);
      ReduireEspacesA1(sc);
      SL.Add(Sc); // on récupère Sc dans la stringList
      sc := Reste;
    end else
      if pocp1 > 0 then begin // 2-06-3-01 CAP DU NAVIRE OK 88.3
      Reste := Copy(sc, pocp1 + length(cp1) + 8, MaxInt);
      sc := Copy(sc, 1, pocp1 + length(cp1) + 7);
      SL.Add(Sc); sc := Reste;
    end else
      if pocp2 > 0 then begin // 2-06-3-02 ANGLE DE BARRE BD OK -3.8
      Reste := Copy(sc, pocp2 + length(cp2) + 8, MaxInt);
      sc := Copy(sc, 1, pocp2 + length(cp2) + 7);
      SL.Add(Sc); sc := Reste;
    end else
      if pocp3 > 0 then begin // 2-06-3-03 ANGLE DE BARRE TD OK 0.3
      Reste := Copy(sc, pocp3 + length(cp3) + 7, MaxInt);
      sc := Copy(sc, 1, pocp3 + length(cp3) + 6);
      SL.Add(Sc); sc := Reste;
    end else
      if pocp4 > 0 then begin // 2-06-3-04 PAS DEMANDES TD OK 6.7
      Reste := Copy(sc, pocp4 + length(cp4) + 7, MaxInt);
      sc := Copy(sc, 1, pocp4 + length(cp4) + 6);
      SL.Add(Sc); sc := Reste;
    end else
      if pocp5 > 0 then begin // 2-06-3-05 PAS OBTENUS TD OK 7.5
      Reste := Copy(sc, pocp5 + length(cp5) + 7, MaxInt);
      sc := Copy(sc, 1, pocp5 + length(cp5) + 6);
      SL.Add(Sc); sc := Reste;
    end else
      if pocp6 > 0 then begin // 2-06-3-06 PAS DEMANDES BD OK 7.3
      Reste := Copy(sc, pocp6 + length(cp6) + 7, MaxInt);
      sc := Copy(sc, 1, pocp6 + length(cp6) + 6);
      SL.Add(Sc); sc := Reste;
    end else
      if pocp7 > 0 then begin // 2-06-3-07 PAS OBTENUS BD OK 8.1
      Reste := Copy(sc, pocp7 + length(cp7) + 7, MaxInt);
      sc := Copy(sc, 1, pocp7 + length(cp7) + 6);
      SL.Add(Sc); sc := Reste;
    end
  end;
 
  SL.SaveToFile(repAppli + 'Journal_Classé.txt');
  RE1.Lines.Assign(SL); // on affiche le résultat dans le même RichEdit
  SL.Free;
end;

A+. :D
EDIT : Au fait, je n'ai pas pu tester le code en conditions réelles car le .doc dont je dispose n'inclut aucun des 7 cas particuliers.

2 pièce(s) jointe(s)

Re,
Je découvre en même temps, si ce n'est pas OK, cela peut être "BK" ou "TC".
la longueur de MESURE peut varier de 0 à 360 seulement pour le CAP DU NAVIRE
J'ai fait un nouveau test connecté au PC CMR, et voici en PJ ce que cela donne. Par contre lorsque je copie/colle le Journal Périodique lu du port Com sur mon RE1, effectivement il manque des lignes!
Un RichEdit n'a pas de limite de ligne normalement?:)

Re
Pour les séparateurs, #9 me semble bien
Frédéric

Re,
Voici le résultat pour les 7 cas particuliers :

OK -0.32-06-3-04 PAS DEMANDES TD
OK 278.42-06-3-02 ANGLE DE BARRE BD
OK -5.42-06-3-03 ANGLE DE BARRE TD
OK 6.42-06-3-05 PAS OBTENUS TD
OK 7.02-06-3-07 PAS OBTENUS BD
OK 7.32-06-3-06 PAS DEMANDES BD
2-06-3-01 CAP DU NAVIRE

Réponse à ton message d' Hier, 20h01

Bonjour Marin,

Citation:

Je découvre en même temps, si ce n'est pas OK, cela peut être "BK" ou "TC".

OK, l'essentiel est que BK, TC et OK soient toujours de la même longueur (je m'attendais à HS, mais bon).

Citation:

la longueur de MESURE peut varier de 0 à 360 seulement pour le CAP DU NAVIRE

OK, je vais essayer une combine qui considère que la longueur de mesure peut varier pour les 7 cas particuliers.

Citation:

J'ai fait un nouveau test connecté au PC CMR, et voici en PJ ce que cela donne. Par contre lorsque je copie/colle le Journal Périodique lu du port Com sur mon RE1, effectivement il manque des lignes!
Un RichEdit n'a pas de limite de ligne normalement?

Il manque des lignes à quel moment ??? Je suppose que c'est lors du 1ier chargement dans le RichEdit car le code qu'on utilise ne supprime que des espaces redondants pour n'en conserver chaque fois qu'un seul.
Comme JP 10.03.doc ne fait que 201 Ko ça tient largement dans un RichEdit.

A+. :D

Bonjour Gilbert,
En fait cela me pose pb pour le moment car pour tester en atelier, je fais des copier/coller de ce que j'ai enregistré dans un .doc, mais en fonctionnement normal, l'application recevra directement le contenu sur le port com. Le pb ne devrait plus être.
En faisant des copier/coller .doc vers l'application, sur le .doc, les numéros vont de 1-05-2-01 à 2-06-3-07 alors que dans l'application les numéros vont de 1-05-2-01 à 2-04-4-05 alors que je sélectionne l'ensemble du .doc!!
Frédéric;)

Réponse à tes 2 messages suivants d'HIER

Re-salut,

Citation:

Pour les séparateurs, #9 me semble bien

A mon avis il serait préférable d'utiliser des séparateurs différents, car pos(#9, Sc) renvoie toujours la position du 1ier séparateur
et si on veut imprimer le résultat aligné sur des colonnes comme dans les .pdf ce serait plus facile de pouvoir distinguer directement Position1, Position2, etc

Citation:

Voici le résultat pour les 7 cas particuliers :

OK -0.32-06-3-04 PAS DEMANDES TD
OK 278.42-06-3-02 ANGLE DE BARRE BD
OK -5.42-06-3-03 ANGLE DE BARRE TD
OK 6.42-06-3-05 PAS OBTENUS TD
OK 7.02-06-3-07 PAS OBTENUS BD
OK 7.32-06-3-06 PAS DEMANDES BD
2-06-3-01 CAP DU NAVIRE

Cela ne correspond plus avec ce que j'ai obtenu en utilisant ton premier Journal périodique.doc converti en .txt
Par contre j'obtiens le même résultat à partir de JP 10.03.doc converti en .txt
Il n'est pas normal que le OK soit placé devant NUMERO, LIBELLE ... ni qu'il manque la valeur de MESURE pour le CAP DU NAVIRE : je vais voir d'où ça provient.

A+. :D

1 pièce(s) jointe(s)

Re-salut,

A propos de "Il n'est pas normal que le OK soit placé devant NUMERO, LIBELLE ... ni qu'il manque la valeur de MESURE pour le CAP DU NAVIRE" :
J'ai trouvé d'où ça provient le OK qui suit CAP DU NAVIRE est situé dans l'une des lignes suivantes : voir capture d'écran de mon Editeur Hexa où les .. (deux points dans la colonne de droite) sont des #13#10
Reste plus qu'à modifier le code en conséquence.

A+. :D

Bien :zoubi:pratique ton éditeur Hexa

Re-Salut,

A propos de "En faisant des copier/coller .doc vers l'application, sur le .doc, les numéros vont de 1-05-2-01 à 2-06-3-07 alors que dans l'application les numéros vont de 1-05-2-01 à 2-04-4-05 alors que je sélectionne l'ensemble du .doc!!" :
Pour moi, l'essentiel est que le format des numéros soit constant car j'envisage de remanier le code pour repérer les débuts des enregistrements avec ceci :
Code:

1 2 3 4 function iDebEnreg(const S: string): boolean; // 1-05-2-02 begin Result := (S[2] = '-') and (S[5] = '-') and (S[7] = '-'); end;
... et ensuite je ramasse les miettes jusqu'au suivant.

Citation:

Bien pratique ton éditeur Hexa

Si tu veux le même, c'est gratuit ici : http://www.01net.com/telecharger/win...es/110455.html
HxD Hex Editor

Sur ce je vais continuer le ramasse-miettes.

A+. :D

Re-salut,

Voici le code du nouveau ramasse-miettes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure TfrmCryDecr.Button1Click(Sender: TObject);
var
  S, Sc, Sd, Sp: string;
  i, poPage: integer;
  SL: tStringList;
 
  procedure ReduireEspacesA1(var S: string);
  // Réduit les répétitions d'espaces à un seul
  var po: integer;
  begin
    po := pos(#32#32, S);
    while po > 0 do begin Delete(S, po, 1); po := pos(#32#32, S); end;
  end;
 
  function iDebEnreg(const S: string): boolean; // Format des NUMEROS = 1-05-2-02
  begin
    Result := False; if S = '' then EXIT;
    Result := (S[2] = '-') and (S[5] = '-') and (S[7] = '-');
  end;
 
begin
  SL := tStringList.Create; SL.Sorted := False;
  //RE1.Lines.LoadFromFile(RepAppli + 'Journal périodique Orig.txt');
  RE1.Lines.LoadFromFile(RepAppli + 'JP 10.03.txt');
 
  Sc := RE1.Text; ReduireEspacesA1(Sc); RE1.text := Sc; RE1.Update;
  Sc := '';
  i := -1;
  repeat
    inc(i);
    S := RE1.Lines[i];
    if S = '' then Continue;
    if (pos('Opérateur', S) = 2) or (pos('Groupes', S) = 2) or (pos('Page', S) = 2) then begin
      SL.Add(S); Continue;
    end else
      if iDebEnreg(S) then begin
      repeat
        Sc := Sc + RE1.Lines[i]; // Accumulation dans Sc de tout ce qui concerne le même enregistrement
        inc(i);
      until (i >= RE1.Lines.count - 1) or iDebEnreg(RE1.Lines[i]);
      poPage := pos('Page', Sc);
      if poPage > 0 then begin // Lignes formées par un enregistrement + Page 1/6 Opérateur : level 3 Groupes Fonctionnels : RELEVE GENERAL, etc
        Sd := Copy(Sc, 1, poPage - 1); ReduireEspacesA1(Sd); SL.Add(Sd);
        Sp := Copy(sc, poPage, MaxInt); ReduireEspacesA1(Sp); SL.Add(Sp);
      end else begin // Enregistrements courants
        ReduireEspacesA1(Sc);
        SL.Add(Sc);
      end;
      Sc := ''; dec(i);
    end;
  until i >= RE1.Lines.count - 1;
 
  SL.SaveToFile(repAppli + 'Journal_NON_Classé.txt');
  RE1.Lines.Assign(SL); // on affiche le résultat dans le même RichEdit
  SL.Free;
end;

... il est nettement plus simple.

Par contre pour y insérer des séparateurs ça va être le galère vu la pléthore de LIBELLES qui existent,
sans oublier le problème non résolu du mélange LIBELLE + SEUIL dans par exemple 1-05-2-01 TEMP. ECHAP. APRES H C 4 H 5 A 0 U D I ERE RECUP TD OK 355 °C
Au fait, puisque actuellement les journaux sont imprimés, elle fait comment votre imprimante pour décrypter ce type de charabia ???

A+. :D

Re,
Le PDF datait du 10/2013, depuis quelques temps, cela ne fonctionne plus! et je ne sais pas comment l'imprimante OKI peut écrire ce charabia..
C'est pas mal maintenant avec ton code, nous sommes très proche!! Plus que le charabia, as tu une idée?

Frédéric

Re,
Pour revenir sur le pb en amont, c'est à dire de l'imprimante, j'ai fouillé dans ses paramètres et elle re-fonctionne a nouveau avec:
Nom :Généric
Pilote : Oki ML 280 Elite (IBM)
port Com 2
Si sa peut d'aider..