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

Read the archive data ".csv file"

Created by: Mohamed_Mrizak at: 10/15/2016 9:12 AM (4 Replies)

Rating (2)

Thanks 2

5 Entries

10/15/2016 9:12 AM	Rate (0)
Mohamed_Mrizak Silver Member Joined: 5/22/2015 Last visit: 7/11/2025 Posts: 118 Rating: (2)	Hello, I want a solution to my problem of reading data from a .csv extension of the archive file on a panel "TP1900Comfort". Short, I worked with VBscript the code below: ///////////////////////// Sub Read_Data() 'Conseil : ' 1. Utilisez la combinaison de touches <CTRL+ESPACE> ou <CTRL+I> pour ouvrir une liste de l'ensemble des objets et fonctions ' 2. Ecrivez le code en utilisant l'objet HMI Runtime. ' Exemple : HmiRuntime.Screens("Screen_1"). ' 3. Utilisez la combinaison de touches <CTRL+J> pour créer une référence d'objet. 'Ecrivez le code à partir de cette position : 'Declaration of local tags - Deklaration der lokalen Variablen Dim fo Dim path Dim mode Dim delimiter Dim data Dim splitdata 'Initialization of Tags - Initialisierung von Variablen mode=1 '1 = Input 'Selection of the storage path - Auswahl des Speicherpfads 'path ="\Storage Card SD\datafile.csv" path ="\Storage Card SD\Archivetest0.csv" delimiter=";" 'Starting error routine - Starten der Fehlerroutine On Error Resume Next 'Create a file object - Datei Objekt erstellen Set fo= CreateObject("FileCtl.File") 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Open or creat a file - Öffnen bzw. Erstellen einer Datei fo.open path,mode 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Read data from file - Daten werden aus Datein gelesen While fo.EOF = False data=fo.LineInputString Wend 'Write data to HMI-Tags - Daten werden auf die HMI-Variablen geschrieben data=Replace(data,vbTab & vbTab,delimiter) splitdata=Split(data,delimiter) SmartTags("Date01")=splitdata(0) SmartTags("Aseptics1_1")= splitdata(1) SmartTags("Aseptics2_1")=splitdata(2) SmartTags("Aseptics3_1")=splitdata(3) SmartTags("Aseptics4_1")=splitdata(4) SmartTags("Aseptics5_1")=splitdata(5) SmartTags("Aseptics6_1")=splitdata(6) 'Close the file - Datei wird geschlossen fo.Close 'Release the Object - Objekt wird freigegeben Set fo = Nothing ShowSystemAlarm "Reading of data was successful!" End Sub ///////////////////////////////// But when I tried it on the HMI an error is generated: Error Code: "2147024864" Error message : "Process cannot access a file because it is being used by another process" Can anyone help me solve this problem, or give me another method to read the archive to comfort TP1900!

Suggestion To thank Quote Answer

10/17/2016 12:42 PM	Rate (0)
Mohamed_Mrizak Silver Member Joined: 5/22/2015 Last visit: 7/11/2025 Posts: 118 Rating: (2)	Hello, I want a solution to my problem of reading data from a .csv extension of the archive file on a panel "TP1900Comfort". Short, I worked with VBscript the code Attched. But when I tried it on the HMI an error is generated: Error Code: "2147024864" Error message : "Process cannot access a file because it is being used by another process" Can anyone help me solve this problem, or give me another method to read the archive to comfort TP1900! Attachment CodeVBscript_error.txt (368 Downloads)

Suggestion To thank Quote Answer

10/17/2016 3:45 PM	Rate (1)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 1/19/2026 Posts: 16644 Rating: (1944)	Hello Mohamed you have to close the logs first to get access to it. you cannot open a File thats in use. So please look at this FAQ here you can see how to close and stop the logs: https://support.industry.siemens.com/cs/ww/en/view/63042926 Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Mohamed_Mrizak

10/17/2016 4:34 PM	Rate (0)
Mohamed_Mrizak Silver Member Joined: 5/22/2015 Last visit: 7/11/2025 Posts: 118 Rating: (2)	You think I close the archive at the beginning of the script and I close to the end!

Suggestion To thank Quote Answer

10/17/2016 4:42 PM	Rate (1)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 1/19/2026 Posts: 16644 Rating: (1944)	Hello Mohamed ??? I don not understand your last post (and rating too!). Its a fact, you have to stop the logging of every Log and then you have to use the Systemfunction for closealllogs. Then the application will free the logfiles that you could get access from your Script. But you have to use wait functions or use the events of systemfunctions in order to prevent timing Problems. Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Mohamed_Mrizak

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on