Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

VB script

Created by: AutoGen_915785 at: 7/21/2016 1:26 PM (7 Replies)

Rating (0)

Thanks 0

8 Entries

7/21/2016 1:26 PM	Rate (0)
AutoGen_915785 Posts: 12 Rating: (0)	Hello All, I am writing a script for writing data on text file using MP377, 12" Touch Panel. I compiled and downloaded the script without nay error. Now, when I am running the script there is no text file created on the system. I do not have a SD Multimedia card on the HMI so I using the CF card for storage. I also try to save the file on an external USB but nothing works. Can anyone please help me and tell, what is wrong with the below script. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim fo,FS, Path, Dataformat, file Dim delimiter Dim mode Dim gap Const NEU = 0 Dim csv Dim Applicaiton ,WriteMethod 'Appeniding is used mode = 8 delimiter=" ;" gap = vbTab csv = 1 '****************************************** 'Code starts here '*************************************** 'Path = " \Storage Card CF \TESTFILE.TXT" 'Path = " \flash \TESTFILE.TXT" Path = "\STORAGE CARD USB\ CARTDIAL-curve " file = " \STORAGE CARD USB\ CARTDIAL-curve\TESTFILE.TXT" On Error Resume Next 'CREATE A FILE SYSTEM OBJECT Set FS = CreateObject("filectl.filesystem") 'Create a file object Set fo = CreateObject("FileCtl.File") 'Check if there is any error If Err.Number <>0 Then ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description Err.Clear Exit Sub End If 'Check for the Director If (FS.Dir(Path)<>"") Then FS.MKDIR(Path) if fo.LOF = Neu then 'Open or Create a File fo.Open file, 8 'Wrting the Header fo.LINEPRINT ( "Date" & gap & delimiter & "Part Id:" & gap & delimiter & "PeakForce" & gap & delimiter & "PeakForce Position" & gap & delimiter &_ "FinalForce " & gap & delimiter & "TransitionForce" & gap & delimiter & "S6.TransitionForceServoPostion"_ & gap & delimiter &"SmallDiaStartForce" & gap & delimiter& "SmallDiaStartPosition"& gap & delimiter &_ "SmallDiaEndPointForce"& gap & delimiter & "SmallDiaEndPointPositon" ) 'write actual Data fo.LINEPRINT( Now & gap & delimiter & SmartTags( "S6 CurrentETR.Data.PartID") & gap & delimiter & SmartTags( "S6.PeakForce") & gap & delimiter & SmartTags( "S6.PeakForcePostion" )& gap & delimiter &_ SmartTags("S6.FinalForce ") & gap & delimiter & SmartTags("S6.TransitionForce ") & gap & delimiter &SmartTags( "S6.TransitionForceServoPostion")_ & gap & delimiter & SmartTags("S6.smallDiaStartForce ") & gap & delimiter& "S6.smallDiaStartPosition"& gap & delimiter &_ "S6.SmallDIaENdForce"& gap & delimiter & "s6.SmallDIaENdForceServoPosition" ) If Err.Number <>0 Then ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description Err.Clear Exit Sub End If 'Close the file fo.close Else If Err.Number <>0 Then ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description Err.Clear Exit Sub End If 'Open or Create a File fo.Open file, 8 'Write Data into the File fo.LINEPRINT( Now & gap & delimiter & SmartTags( "S6 CurrentETR.Data.PartID") & gap & delimiter & SmartTags( "S6.PeakForce") & gap & delimiter & SmartTags( "S6.PeakForcePostion" )& gap & delimiter &_ SmartTags("S6.FinalForce ") & gap & delimiter & SmartTags("S6.TransitionForce ") & gap & delimiter &SmartTags( "S6.TransitionForceServoPostion")_ & gap & delimiter & SmartTags("S6.smallDiaStartForce ") & gap & delimiter& "S6.smallDiaStartPosition"& gap & delimiter &_ "S6.SmallDIaENdForce"& gap & delimiter & "s6.SmallDIaENdForceServoPosition" ) 'Close the File fo.close End If ' ''Release the fileobject Set fo = Nothing SmartTags ("CreateCurveAnalysisDataRev01")= False ShowSystemAlarm "File Saved in the Location" & Path thanks for the help aj
AutoGen_915785 Posts: 12 Rating: (0)
Suggestion To thank Quote Answer

7/21/2016 2:07 PM	Rate (0)
rdoliveira Gold Member Joined: 4/26/2012 Last visit: 9/13/2025 Posts: 1645 Rating: (190)	do a simple test to see what works. Dim objCO Set objCO = CreateObject("FileCtl.File") 'Open file - 8 == Open a file and write to the end of the file. objCO.open "\Storage Card USB\TESTFILE.TXT" , 8 objCO.LinePrint("Date Time " & Date & ", " & Time) It will testing in parts your code. good luck
	Last edited by: rdoliveira at: 7/21/2016 2:08:58 PM "Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

7/21/2016 5:40 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 9/12/2025 Posts: 3241 Rating: (526)	Hi, there might be a problem with this line: 'Check for the Director If (FS.Dir(Path)<>"") Then FS.MKDIR(Path) I guess it should create the path if fs.dir(path) = "". By the way, why don't you use the error handler creating an system alarm further times to check where it doesn't work? Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer

7/21/2016 6:13 PM	Rate (0)
SMIT SHAH Silver Member Joined: 7/24/2014 Last visit: 8/1/2025 Posts: 393 Rating: (66)	Dear Autogen, I think this system do not work with HMI system it works only on HMI => RT Advance
	Thanks and Regards Smit Shah If Helpful please hit thanks and rate it
Suggestion To thank Quote Answer

7/21/2016 7:21 PM	Rate (0)
AutoGen_915785 Posts: 12 Rating: (0)	Hello Frink, Thanks for the reply. I have already tried that. But nothing. I even place the directory there and the saved a file to do the operation but nothing. regards Ajay
AutoGen_915785 Posts: 12 Rating: (0)
Suggestion To thank Quote Answer

7/21/2016 9:02 PM	Rate (0)
rdoliveira Gold Member Joined: 4/26/2012 Last visit: 9/13/2025 Posts: 1645 Rating: (190)	work work Sub VBFunction_2() 'Tip: ' 1. Use the <CTRL+SPACE> or <CTRL+I> shortcut to open a list of all objects and functions ' 2. Write the code using the HMI Runtime object. ' Example: HmiRuntime.Screens("Screen_1"). ' 3. Use the <CTRL+J> shortcut to create an object reference. 'Write the code as of this position: ShowSystemAlarm "Iniciou r" ShowSystemAlarm "Iniciou teste" Dim fo, FS, Path, Dataformat, file Dim delimiter Dim mode Dim gap Dim csv Dim Applicaiton ,WriteMethod 'Appeniding is used ShowSystemAlarm "Iniciou0" Const NEU = 0 mode = 8 delimiter=" ;" gap = vbTab csv = 1 '****************************************** 'Code starts here '************************************* 'Path = " \Storage Card CF \TESTFILE.TXT" 'Path = " \flash \TESTFILE.TXT" Path = "\STORAGE CARD USB\" file = "\STORAGE CARD USB\TESTFILE.TXT" ShowSystemAlarm "Iniciou1" On Error Resume Next 'CREATE A FILE SYSTEM OBJECT Set FS = CreateObject("filectl.filesystem") ShowSystemAlarm "Iniciou2" 'Check if there is any error If Err.Number <>0 Then ShowSystemAlarm "filectl.filesystem"& CStr(Err.Number) & "" & Err.Description ShowSystemAlarm "Iniciou3 erro" Err.Clear Exit Sub End If 'Create a file object ShowSystemAlarm "Iniciou4" Set fo = CreateObject("FileCtl.File") 'Check if there is any error If Err.Number <>0 Then ShowSystemAlarm "FileCtl.File"& CStr(Err.Number) & "" & Err.Description Err.Clear Exit Sub End If 'Check for the Director If (FS.Dir(Path)<>"") Then FS.MKDIR(Path) If fo.LOF = NEU Then 'Open or Create a File fo.Open file, 8 'Wrting the Header fo.LINEPRINT ( "Date" & gap & delimiter & "Part Id:" & gap & delimiter & "PeakForce" & gap & delimiter & "PeakForce Position" & gap & delimiter &_ "FinalForce " & gap & delimiter & "TransitionForce" & gap & delimiter & "S6.TransitionForceServoPostion"_ & gap & delimiter &"SmallDiaStartForce" & gap & delimiter& "SmallDiaStartPosition"& gap & delimiter &_ "SmallDiaEndPointForce"& gap & delimiter & "SmallDiaEndPointPositon" ) 'write actual Data fo.LINEPRINT( Now & gap & delimiter & "SmartTags( S6 CurrentETR.Data.PartID)" & gap & delimiter & "SmartTags( S6.PeakForce)" & gap & delimiter & "SmartTags( S6.PeakForcePostion )"& gap & delimiter &_ "SmartTags(S6.FinalForce )" & gap & delimiter & "SmartTags(S6.TransitionForce )" & gap & delimiter & "SmartTags(S6.TransitionForceServoPostion)"_ & gap & delimiter & "SmartTags(S6.smallDiaStartForce )" & gap & delimiter& "S6.smallDiaStartPosition"& gap & delimiter &_ "S6.SmallDIaENdForce"& gap & delimiter & "s6.SmallDIaENdForceServoPosition" ) If Err.Number <>0 Then ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description 'Err.Clear 'Exit Sub End If 'Close the file fo.close Else If Err.Number <>0 Then ShowSystemAlarm "Error depois da escrita"& CStr(Err.Number) & "" & Err.Description Err.Clear Exit Sub End If 'Open or Create a File fo.Open file, 8 'Write Data into the File fo.LINEPRINT( Now & gap & delimiter & "SmartTags( S6 CurrentETR.Data.PartID)" & gap & delimiter & "SmartTags( S6.PeakForce)" & gap & delimiter & "SmartTags( S6.PeakForcePostion )"& gap & delimiter &_ "SmartTags(S6.FinalForce )" & gap & delimiter & "SmartTags(S6.TransitionForce )" & gap & delimiter & "SmartTags(S6.TransitionForceServoPostion)"_ & gap & delimiter & "SmartTags(S6.smallDiaStartForce )" & gap & delimiter& "S6.smallDiaStartPosition"& gap & delimiter &_ "S6.SmallDIaENdForce"& gap & delimiter & "s6.SmallDIaENdForceServoPosition" ) 'Close the File fo.close End If ' ''Release the fileobject Set fo = Nothing 'SmartTags ("CreateCurveAnalysisDataRev01")= False ShowSystemAlarm "File Saved in the Location" & Path End Sub I commented the "tags" for I do not need to create. It worked. Attention to this: // ******************************************** ******** Path = "\ STORAGE CARD USB \" file = "\ STORAGE CARD USB \ TESTFILE.TXT" //************declaration*************************** **** Dim fo, FS, Path, dataFormat, file Dim delimiter Dim mode Dim gap Dim csv Dim applicaiton, WriteMethod // ************ Startup *************************** ****** NEU const = 0 mode = 8 delimiter = "" gap = vbTab csv = 1 good luck attached the generated file Attachment TESTFILE.TXT (263 Downloads)
	Last edited by: rdoliveira at: 7/21/2016 9:04:48 PM Last edited by: rdoliveira at: 7/21/2016 9:05:17 PM Last edited by: rdoliveira at: 7/21/2016 9:06:26 PM "Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

7/22/2016 3:26 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 9/12/2025 Posts: 3241 Rating: (526)	Hello Ajay, when calling the line if fo.LOF = Neu then fo is not assigned to an object and this may cause a problem. Best regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer

7/22/2016 10:33 PM	Rate (0)
rdoliveira Gold Member Joined: 4/26/2012 Last visit: 9/13/2025 Posts: 1645 Rating: (190)	Prof. Frink Hello Ajay, when calling the line if fo.LOF = Neu then fo is not assigned to an object and this may cause a problem. Best regards, Frink yes, he put it in the script. Set fo = CreateObject("FileCtl.File") better look at the code.
	Last edited by: rdoliveira at: 7/22/2016 10:37:33 PM "Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on