WinCC erreur Objet Global Attendu

[wabo67]

Bonjour,

Voici mon code pour ecrire des valeur dans un fichier TXT, par contre il met une erreur "objet global attendu"

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
	Dim tagFilename
	Dim strFilename, strLine
	Dim arrTags(4), i
	Dim fso, objFile, objTag
	
	arrTags(0) = "TagA"
	arrTags(1) = "TagB"
	arrTags(2) = "TagC"
	arrTags(3) = "TagD"
	arrTags(4) = "TagE"
	
	Set tagFilename = HmiRuntime.Tags("c:\DEF.txt")  <==========
	strFilename = objTag1.Read
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set objFile = fso.CreateTextFile(strFilename,True)
	
	'for control
	HmiRuntime.Trace("VB-Script: Write file: " & strFilename & vbCrLf)
	
	For i=0 To 4
		Set objTag = HmiRuntime.Tags(arrTags(i))
		strLine = arrTags(i) & ";" & objTag.read
		objFile.WriteLine strLine
		
		'for control
		HmiRuntime.Trace(strLine & vbCrLf)
	Next
	objFile.Close

Erreur un niveau de la flèche. Quelqu'un a une idée?

[bbil]

Bonsoir

Pour HmiRuntime.Tags le paramètre attendu ne semble pas être un nom de fichier mais plutôt le nom du Tag :

Code :

 HMIRuntime.Tags("Tagname")

[wabo67]

Salut bbli,

J'ai essayé de mettre le nom du fichier, le nom du tag, mais toujours la meme erreur.

Cordialement,

[ThierryAIM]

Je ne sais pas s'il y a une grosse différence entre WinCC (que je n'ai pas) et WinCC Flexible
Mais sous WinCC Flex, ce code fonctionne (le chemin du fichier est dans un champ texte) :

Code VB :

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
Dim tagFilename
	Dim strFilename, strLine
	Dim arrTags(4), i
	Dim fso, objFile, objTag
 
	arrTags(0) = "TagA"
	arrTags(1) = "TagB"
	arrTags(2) = "TagC"
	arrTags(3) = "TagD"
	arrTags(4) = "TagE"
 
	Set tagFilename = HmiRuntime.Screens(1).ScreenItems("texte_1")
	strFilename = tagFilename.Text
 
	'for control
	HmiRuntime.Trace("VB-Script: Write file: " & strFilename & vbCrLf)
 
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set objFile = fso.CreateTextFile(strFilename,True)
 
	For i=0 To 4
		Set objTag = HmiRuntime.SmartTags(arrTags(i))
		strLine = arrTags(i) & ":" & objTag.Value
		objFile.WriteLine strLine
		Set objTag = Nothing
		'for control
		HmiRuntime.Trace(strLine & vbCrLf)
	Next
	objFile.Close
        Set tagFilename = Nothing
        Set objFile = Nothing