Bonjour a tous...

bon voila mon problème,je viens lire un mot (word) que je voudrais eclater en bit pour pouvoir par la suite venir en lire 5, le script bloque dans la boucle

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Text_Trigger(Byval Item)
Dim texte
Dim MON_INDEX,i
Dim Mon_Int
Dim Bit(16)mes bits
Set Mon_Int = HMIRuntime.Tags("Mon_Int")Mon mot 
Set MON_INDEX = HMIRuntime.Tags("MON_INDEX")
Set texte = ScreenItems("Mon_Text")
MsgBox "je suis la "
For i = 1 To 16
MsgBox "je suis lala "

	Bit(1) = Mon_Int & 2^i  'C est la que ca bloque au niveau du masque
	MsgBox "bit"
	
	If Bit(i) Then
		b = HMIRuntime.Tags("MON_INDEX").Read 
		texte.text TextFileReadLine("C:\Ma_list.txt",b)
	End If
Next 
MsgBox "out"

Merci a tous
End Function