Quantcast
Channel: SPS-Forum - Automatisierung und Elektrotechnik
Viewing all articles
Browse latest Browse all 46421

WinCC Flex Wincc flexible - Script - Probleme mit Trennzeichen

$
0
0
Hallo Zusammen,

ich habe mal wieder ein Problemchen.
In meinem Script zum Erstellen einer CSV Datei steht immer am Anfang ein Trennzeichen.
Daruch fangen die Daten erst in der zweiten Spalte an, wenn ich die Datei testweise in Excel öffne :confused:?


Teil des Script:

Zitat:

'Werte in die Datei schreiben'
headerspalte(0)="Datum"
headerspalte(1)="Uhrzeit"
headerspalte(2)="Zeichnungsnummer"
headerspalte(3)="DMC_Vorn"
headerspalte(4)="DMC_Hinten"
headerspalte(5)="F_MIN1"
headerspalte(6)="F_MAX1"
headerspalte(7)="F_MIN2"
headerspalte(8)="F_MAX2"
headerspalte(9)="F_AB"
headerspalte(10)="F_ABFALL"
headerspalte(11)="F_MAX"
headerspalte(12)="F_ENDE"
headerspalte(13)="S_ENDE"
headerspalte(14)="F_DP"
headerspalte(15)="S_DB"
headerspalte(16)="ERGEBNIS"
headerspalte(17)="LFD_NR"
headerspalte(18)="NACHARBEIT"
inhaltspalte(0)=SmartTags("Storage\Storage.Datum")
inhaltspalte(1)=SmartTags("Storage\Storage.Uhrzeit")
inhaltspalte(2)=SmartTags("Storage\Storage.Zeichnungsnummer")
inhaltspalte(3)=SmartTags("RS232_Read_VW.String_DMC_Speicher")
inhaltspalte(4)=SmartTags("RS232_Read_HW.String_DMC_Speicher")
inhaltspalte(5)=SmartTags("Storage\Storage.F_MIN1")
inhaltspalte(6)=SmartTags("Storage\Storage.F_MAX1")
inhaltspalte(7)=SmartTags("Storage\Storage.F_MIN2")
inhaltspalte(8)=SmartTags("Storage\Storage.F_MAX2")
inhaltspalte(9)=SmartTags("Storage\Storage.F_AB")
inhaltspalte(10)=SmartTags("Storage\Storage.F_ABFAL")
inhaltspalte(11)=SmartTags("Storage\Storage.F_MAX")
inhaltspalte(12)=SmartTags("Storage\Storage.F_ENDE")
inhaltspalte(13)=SmartTags("Storage\Storage.S_ENDE")
inhaltspalte(14)=SmartTags("Storage\Storage.F_DP")
inhaltspalte(15)=SmartTags("Storage\Storage.S_DP")
inhaltspalte(16)=SmartTags("Storage\Storage.ERGEBNIS")
inhaltspalte(17)=SmartTags("Storage\Storage.LFD_NR")
inhaltspalte(18)=SmartTags("Storage\Storage.NACHARBEIT")
'Header beschreiben
For Each i In headerspalte
Header=Header & ";" & i
Next
'Inhalt beschreiben
For Each i In inhaltspalte
Inhalt = Inhalt & ";" & i
Next
'Zieldatei erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(path)
file.WriteLine Header
Inhalt CSV:

Zitat:

;Datum;Uhrzeit;Zeichnungsnummer;DMC_Vorn;DMC_Hinten;F_MIN1;F_MAX1;F_MIN2;F_MAX2; F_AB;F_ABFALL;F_MAX;F_ENDE;S_ENDE;F_DP;S_DB;ERGEBNIS;LFD_NR;NACHARBEIT;;
;28.11.2016;17:50:30;8010-200000-108-00;1611280613502068;1611260843808011;3189;7359;7456;7962;8011;1028;12016;11455;3 0.51;0;0.00;IO;519-;;;
Danke für eure Hilfe

Viele Grüße Sven

Viewing all articles
Browse latest Browse all 46421


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>