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:
'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;3 0.51;0;0.00;IO;519-;;;
Danke für eure Hilfe
Viele Grüße Sven
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
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-;;;
Viele Grüße Sven