Je signale pour les nouveaux que j'ai codé un prog pour mettre en forme le code ainsi que d'autres trucs, vous trouverez tout sur mon site. (et hop un peu de pub, non mais des fois

A+
Code : Tout sélectionner
Procedure IsNomValide(Nom$)
; teste que les caractères du mots sont Ok
; retourne #false si un caractère ne correspond pas
; retourne #true si le nom est Ok et pas pointeur
; retourne #pointeur si nom Ok avec * au début
Adr = @Nom$
Char = PeekB(Adr)
; test sur le 1er caractère
If char = '_' Or (Char >= 'a' And Char <= 'z') Or (Char >= 'A' And Char <= 'Z') Or Char = '*' ; pas de chiffres
Adr + 1 : Char = PeekB(Adr)
While Char ; caractère de fin chaine
If (Char >= '0' And Char <= '9') Or (Char >= 'a' And Char <= 'z') Or (Char >= 'A' And Char <= 'Z') Or Char = '_'
Adr + 1
Char = PeekB(Adr)
Else
ProcedureReturn #false
EndIf
Wend
Else
ProcedureReturn #false
EndIf
If PeekB(@Nom$) = '*' ; c'est un pointeur
ProcedureReturn #pointeur
Else
ProcedureReturn #true
EndIf
EndProcedure
faire la différence entre un calcul de mathDéjà ça met un espace lorsque c'est un pointeur
Code : Tout sélectionner
5*2
Code : Tout sélectionner
5 * 2