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

Problem with writing data on USB/SD card KP700 Comfort

Created by: ghhh at: 9/7/2020 2:09 PM (8 Replies)

Rating (0)

Thanks 2

9 Entries

9/7/2020 2:09 PM	Rate (0)
ghhh Posts: 9 Rating: (0)	Hi, Im finding solution for fixing problem with writing data to .csv on USB or SD card with TP700 comfort panel. I prepare script which was testing by simulation. It is working and writing data on hard drive to PC . When I modify script for TP700 and after download the problem start. Via breakpoint i see that script is correctly working in TP700 but nothing is writing on USB or SD cards.All what i try is -> 1. Use USB and SD, format with FAT32 on 2GB allocation unit size 2. PC path was defined like : Cesta ="C:\archiv\" - it was writting USB path was defined like : Cesta ="\Storage Card USB\" - not writting SD path was defined like : Cesta ="\Storage Card SD\" - not writting 3. Try to historical logging and it was writting data to USB/SD I prepare some examples of define path Cesta = "\Storage Card USB" NazovSuboru = "GDI_" & SmartTags("DMC") & ".csv" If SmartTags("#OP302_HMI.Production.Reset_Req_Production") Then NazovSuboru = "GDI_" & SmartTags("DMC") & ".csv" End If Cesta = "\Storage Card USB\" NazovSuboru = "GDI_" & SmartTags("DMC") & ".csv" If SmartTags("#OP302_HMI.Production.Reset_Req_Production") Then NazovSuboru = "GDI_" & SmartTags("DMC") & ".csv" End If Can you help me?
ghhh Posts: 9 Rating: (0)
Suggestion To thank Quote Answer

9/8/2020 12:49 PM	Rate (0)
ghhh Posts: 9 Rating: (0)	Im finding solution for fixing problem with writing data to .csv on USB or SD card with kp700 comfort panel. I prepare script which was testing by simulation. It is working and writing data on hard drive to PC . When I modify script for KP700 and after download the problem start. Via breakpoint i see that script is correctly working in KP700 but nothing is writing on USB or SD cards.All what i try is -> 1. Use USB and SD, format with FAT32 on 2GB allocation unit size 2. PC path was defined like : Cesta ="C:\archiv\" - it was writting USB path was defined like : Cesta ="\Storage Card USB\" - not writting SD path was defined like : Cesta ="\Storage Card SD\" - not writting please help me!!!!
ghhh Posts: 9 Rating: (0)
Suggestion To thank Quote Answer

9/8/2020 1:09 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 11/18/2024 Posts: 3120 Rating: (516)	Hello ghhh, are you using Set file = CreateObject("FileCtl.File") or Set file = CreateObject("Scripting.FileSystemObject") for file access? The first one is for WinCE which is the panel OS. The second will be executed on your computer with Windows OS. When you post your script we can give support. 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
This contribution was helpful to 1 thankful Users K_Ohjus

9/8/2020 1:21 PM	Rate (0)
ghhh Posts: 9 Rating: (0)	sim, windows CE um conforto KP700 Quero gravar dados no "Cartão de armazenamento USB" siga o anexo meu script, Dim FolderPath, ObjectPath, Filename, File, FileExist, Columns, Row FolderPath = "\Storage Card USB\" Filename = "test.csv" Set ObjectPath = CreateObject("Scripting.FilesystemObject") 'Check if folder exists If Not ObjectPath.FolderExists(FolderPath) Then ObjectPath.CreateFolder FolderPath End If ' Check if file exists Set File = CreateObject("Scripting.FilesystemObject") FileExist = File.FileExists(FolderPath & "\" & Filename) If FileExist = False Then File.CreateTextFile(FolderPath & "\" & Filename) Set Columns = File.OpenTextFile(FolderPath & "\" & Filename, 8) Columns.WriteLine("Causa da Parada Maquina ; Dia da Semana ; Data e Hora Primeiro Alarme ; Data e Hora Indicação Causa ; Data e Hora Retorno Produção ; Hora P1 ; Minutos P1 ; Segundos P1 ; Hora P2 ; Minutos P2 ; Segundos P2") Columns.Close Set File = Nothing End If 'Write data to file Set File = CreateObject("Scripting.FilesystemObject") Set Row = File.OpenTextFile(FolderPath & "\" & Filename, 8) Row.WriteLine(SmartTags("DTLog_String_Lista_Causa_Parada_Maquina") & ";" & SmartTags("DTLog_String_Lista_DiaSemana") & ";" & SmartTags("DTLog_Data_Tempo_01") & ";" & SmartTags("DTLog_Data_Tempo_02") & ";" & SmartTags("DTLog_Data_Tempo_03") & ";" & SmartTags("TH_HORAS_00") & ";" & SmartTags("TH_MINUTOS_00") & ";" & SmartTags("TH_SEGUNDOS_00") & ";" & SmartTags("TH_HORAS_01") & ";" & SmartTags("TH_MINUTOS_01") & ";" & SmartTags("TH_SEGUNDOS_01") & ";") Row.Close End Sub
ghhh Posts: 9 Rating: (0)
Suggestion To thank Quote Answer

9/8/2020 1:40 PM	Rate (0)
K_Ohjus Gold Expert Joined: 3/5/2017 Last visit: 11/8/2024 Posts: 778 Rating: (129)	Like Frink wrote you need to use vbs for WinCe. VbsWinCe You are using VBS for normal Windows, so it will not work on Comfort panel.
	Last edited by: Jen_Moderator at: 09/08/2020 14:27:48 Optimized link. - Trying is the first step towards failure. - Singing while you work is not happiness, it's mental illness. - Kaikki on paskaa, paitsi kusi.
Suggestion To thank Quote Answer

9/8/2020 2:02 PM	Rate (0)
ghhh Posts: 9 Rating: (0)	Prof. Frink Hello ghhh, are you using Set file = CreateObject("FileCtl.File") or Set file = CreateObject("Scripting.FileSystemObject") for file access? The first one is for WinCE which is the panel OS. The second will be executed on your computer with Windows OS. When you post your script we can give support. Regards, Frink sim, windows CE um conforto KP700 Quero gravar dados no "Cartão de armazenamento USB" siga o anexo meu script, Dim FolderPath, ObjectPath, Filename, File, FileExist, Columns, Row FolderPath = "\ USB do cartão de armazenamento \" Nome do arquivo = "test.csv" Definir ObjectPath = CreateObject ("Scripting.FilesystemObject") 'Verifique se a pasta existe If Not ObjectPath.FolderExists (FolderPath) Then ObjectPath.CreateFolder FolderPath Fim se 'Verifique se o arquivo existe Set File = CreateObject ("Scripting.FilesystemObject") FileExist = File.FileExists (FolderPath & "\" & Filename) If FileExist = False Then File.CreateTextFile (FolderPath & "\" & Filename) Set Columns = File.OpenTextFile (FolderPath & "\" & Filename, 8) Columns.WriteLine ("Causa da Parada Maquina; Dia da Semana; Data e Hora Primeiro Alarme; Data e Hora Indicação Causa; Data e Hora Retorno Produção; Hora P1; Minutos P1; Segundos P1; Hora P2; Minutos P2; Segundos" ) Columns.Close Definir Arquivo = Nada Fim se 'Gravar dados no arquivo Set File = CreateObject ("Scripting.FilesystemObject") Definir Row = File.OpenTextFile (FolderPath & "\" & Filename, 8) Row.WriteLine (SmartTags ("DTLog_String_Lista_Causa_Parada_Maquina") & ";" & SmartTags ("DTLog_String_Lista_DiaSemana") & ";" & SmartTags ("DTLog_Data_Tempo_01") & ";" & SmartTags ("DTLog_02") & ";" & SmartTags ("DTLog_02") & "; "DTLog_Data_Tempo_03") & ";" & SmartTags ("TH_HORAS_00") & ";" & SmartTags ("TH_MINUTOS_00") & ";" & SmartTags ("TH_SEGUNDOS_00") & ";" & SmartTags ("TH_HORAS_01") & " ; "& SmartTags (" TH_MINUTOS_01 ") &"; "& SmartTags (" TH_SEGUNDOS_01 ") &"; ") Row.Close End Sub
ghhh Posts: 9 Rating: (0)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users AutoGen_3985470

9/8/2020 2:02 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 11/18/2024 Posts: 3120 Rating: (516)	Hello ghhh, have a look in the following FAQ: With SIMATIC WinCC (TIA Portal) on a panel, how do you access process data in a file via a script? 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

9/8/2020 2:19 PM	Rate (0)
ghhh Posts: 9 Rating: (0)	thanks friend for your attention, i will test
ghhh Posts: 9 Rating: (0)
Suggestion To thank Quote Answer

9/8/2020 2:21 PM	Rate (0)
ghhh Posts: 9 Rating: (0)	K_Ohjus Like Frink wrote you need to use vbs for WinCe. VbsWinCe You are using VBS for normal Windows, so it will not work on Comfort panel. I was looking for something very specific about VB script wincc panel Ce, thank you very much !!!
ghhh Posts: 9 Rating: (0)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on