SiePortal

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

SiePortalDeutsch

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

Export tags to file txt

Created by: NIUPIICOHECHA10 at: 1/9/2025 3:27 AM (2 Replies)

Rating (0)

Thanks 0

3 Entries

1/9/2025 3:27 AM	Rate (0)
NIUPIICOHECHA10 Joined: 5/15/2023 Last visit: 8/7/2025 Posts: 23 Rating: (0)	Dear colleagues I am making a code in WinCC V8.0 and in Vb-Script to export values to a TXT or CSV file Insert code. -------------------------- Dim file_path, fso, fso2 Dim date, i, time, var1, var2, var3, var4, var5, var6, var7 'Set date = HMIRuntime.Tags("DATE") 'Set i = HMIRuntime.Tags("MOTOR_VALUE") 'Set time = HMIRuntime.Tags("TIME") 'Set var1 = HMIRuntime.Tags("MOTOR1.MOTOR_ID") 'Set var2 = HMIRuntime.Tags("MOTOR1.MOTORDESCRIPTION") 'Set var3 = HMIRuntime.Tags("MOTOR"&CSTR(i.Value)&".MANUNDESCRIPTION") 'Set var4 = HMIRuntime.Tags("MOTOR"&CSTR(i.Value)&".WORKTIME") 'Set var5 = HMIRuntime.Tags("MOTOR"&CSTR(i.Value)&".REARMTIME") 'Set var6 = HMIRuntime.Tags("MOTOR"&CSTR(i.Value)&".ALARMTIME") 'Set var7 = HMIRuntime.Tags("MOTOR"&CSTR(i.Value)&".RECORDMANUN") Set fso = CreateObject("Scripting.FileSystemObject") file_path = "D:\REPORTS\ENGINE1\MAINTENANCE.csv" Set fso2 = fso.OpenTextFile(file_path, 2, True) 'data_set = fso2.WriteLine ((Now) & ";" & (HMIRuntime.Tags("MOTOR1.MOTOR_ID").Read)) fso2.Close 'storagre free Set fso2 = Nothing Set fso = Nothing --------------------------- When doing the action from the button I only get the "NOW" data but the value of the variable does not write it (I tried .READ, .VALUE and .WRITE). I don't know what I could be doing wrong. I appreciate the help
	Last edited by: NIUPIICOHECHA10 at: 01/09/2025 03:28:06 Last edited by: Moderator_Lan at: 01/09/2025 08:32:30 Text formatting optimized
Suggestion To thank Quote Answer

1/9/2025 11:24 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 9/2/2025 Posts: 16290 Rating: (1930)	Hello NIUPIICOHECHA10 Its hard to read your VB Code could you please format it so we can read it as you can see it in your editor? Also have a look at the help system how to read tags: https://support.industry.siemens.com/cs/ww/en/view/109792585/45951188235 Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

1/9/2025 12:18 PM	Rate (0)
HarrY ji Platinum Expert Joined: 2/21/2014 Last visit: 9/2/2025 Posts: 672 Rating: (356)	Hi Try this way by reading the tag first and then using the value Set objTag = HMIRuntime.Tags(".MonTiDynamic") objTag.Read() fso2.WriteLine ((Now) & ";" & (objTag.Value)) fso2.Close
	You can always use "Rate" and "To Thank" button to appreciate my efforts in helping you :)
Suggestion To thank Quote Answer

Share this page:

Share this page on...

SiePortal

Export tags to file txt

Created by: NIUPIICOHECHA10 at: 1/9/2025 3:27 AM (2 Replies)

Rating (0) Thanks 0

3 Entries

NIUPIICOHECHA10

Last edited by: NIUPIICOHECHA10 at: 01/09/2025 03:28:06

Last edited by: Moderator_Lan at: 01/09/2025 08:32:30

Murof

HarrY ji

3 Entries

Follow us on

Rating (0)

Thanks 0