Discussion :

[lilli1407]

Bonjour,

est-ce que quelqu'un peut me dire ce que fait ce code :

TypLig$ := 'DIV';
if ex_pos(val$,'BR , BS , BT , BU , BV , BW , ')<>0
then TypLig$:=Ex_Copy(val$,1,2);

Merci

[Dr.Who]

c'est pas du delphi ça ...

sinon ex_pos devrait être comme pos, cela renvois la première occurrence d'une chaine dans une autre.
= 0 si aucune occurrence trouvée, > 0 indique l'indice de l'occurrence.

Code :

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

1
2
3
4
5
6
7
8
// assigne la chaine 'DIV' dans la variable TypLig$
TypLig$ := 'DIV';
 
// recherche l'occurrence de val$ dans la chaine
// si occurrence trouvée
if ex_pos(val$,'BR , BS , BT , BU , BV , BW , ') <> 0 then 
  // copy les deux premier caractère de val$ dans TypLig$
  TypLig$:=Ex_Copy(val$,1,2);