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

VBS saves servel tags value to a CSV file by "Time" name

Created by: Angus at: 12/14/2008 5:02 PM (5 Replies)

Rating (1)

Thanks 0

6 Entries

12/14/2008 5:02 PM	Rate (0)
Angus Bronze Member Joined: 9/6/2007 Last visit: 12/29/2025 Posts: 81 Rating: (1)	Dear all: I want to save servel tags value to a CSV file. But, the name of this csv filemust be"Time" when I execute this script. I just know how to save a Csv file following. But how to change the name to Time ? Because I want to save a different name csv file when erery time I execute the samescript. Dim L1,L2,L3 L1=HmiRuntime.SmartTags("A") L2=HmiRuntime.SmartTags("B") L3=HmiRuntime.SmartTags("C") Dim fso, path path = "\flash\AA.csv" Set fso = CreateObject("FileCtl.File") fso.Open path ,2 fso.WriteFields(L1) fso.WriteFields(L2) fso.WriteFields(L3) fso.Close Tks. Angus.

Suggestion To thank Quote Answer

12/15/2008 10:14 AM	Rate (1)
The Body Posts: 836 Rating: (71)	Hi Angus, just use the "Now" function, e. g.: path = "\flash\" & now & ".csv" If you use only date or time, or parts of it,you can use the function "DatePart" in addition. path = "\flash\" & FormatDateTime(DatePart("h", now) & ":" & DatePart("n", now) & ":" & DatePart("s", now)) & ".csv" Or even mask the right part, to get the time: path = "\flash\" & Right(Now, 8) & ".csv"
The Body Posts: 836 Rating: (71)
Suggestion To thank Quote Answer

12/17/2008 10:38 AM	Rate (0)
Angus Bronze Member Joined: 9/6/2007 Last visit: 12/29/2025 Posts: 81 Rating: (1)	Hi... The Body: Thanks a lot. Ican do this inMP277(wince5.0). But I have another question. I want save the csv files to a PC by ethernet. The "Time" name have : symbol and it doesn't permit in Windows xp system. Do u have any suggestion about this problem ? Angus.

Suggestion To thank Quote Answer

12/17/2008 1:34 PM	Rate (0)
ZAK Gold Member Joined: 5/8/2006 Last visit: 10/23/2025 Posts: 1085 Rating: (78)	Hi, Windows 2k/XP/Vista has another file system. So, you have to use thescript code which is in the following FAQ: http://support.automation.siemens.com/WW/view/en/26106418 Alternative you can save the csv file on the MP277 and then you can copythe file to the PC. Maybe this FAQ will help you: http://support.automation.siemens.com/WW/view/en/13336639 Bye

Suggestion To thank Quote Answer

12/17/2008 4:06 PM	Rate (0)
Angus Bronze Member Joined: 9/6/2007 Last visit: 12/29/2025 Posts: 81 Rating: (1)	Hi...zak: I know your meaning. But I want to expalin my question again. My purpose: I want to save csv files from MP277 to a PC every 10min. So, my csv file's name will be named "Time".csv. ex 10:22:55.csv My vbs is following: im L1,L2,L3 L1=HmiRuntime.SmartTags("A") L2=HmiRuntime.SmartTags("B") L3=HmiRuntime.SmartTags("C") Dim fso, path path = "\flash\" & Right(Now, 8) & ".csv" Set fso = CreateObject("FileCtl.File") fso.Open path ,2 fso.WriteFields(L1) fso.WriteFields(L2) fso.WriteFields(L3) fso.Close Based on this code,and I can save csv files in MP277. ex: 10:22:01.csv 10:32:01.csv 10:42:01.csv But I want savecsv files to a pc from MP277by ethernet. The file name in windows xp can't permit have ":" symbol. How can I doif I still want to named by"Time" ? Angus.

Suggestion To thank Quote Answer

12/18/2008 10:13 AM	Rate (0)
ZAK Gold Member Joined: 5/8/2006 Last visit: 10/23/2025 Posts: 1085 Rating: (78)	Hi, why do you not use this methods? path = "\flash\" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & ".csv" Bye

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on