WinCC Flex Wincc flexible - Script - Probleme mit Trennzeichen

[Bonsai32]

Zuviel Werbung?
-> Hier kostenlos registrieren

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 ?


Teil des Script:

'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:

;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;30.51;0;0.00;IO;519-;;;

Danke für eure Hilfe

Viele Grüße Sven

 

[Zombie]

Das liegt daran dass die Variable Header wenn i = 0 ist noch leer ist. Du musst also eine von i abhängige If Abfrage machen, die wenn i=0 ist was anderes macht.

For Each i In headerspalte
[COLOR=#ff0000]If i = 0 then
Header= i
Else[/COLOR]
  Header=Header & ";" & i
[COLOR=#ff0000]Endif[/COLOR]
 Next