-> Hier kostenlos registrieren
Hallo Zusammen,
habe ein kleines Skipt um meine Werte aus ProTool in eine csv-Datei zuschreiben. Leider werden die Kommaten nicht in die Datei geschrieben.
Habe als Trennzeichen Simikolon verwendet.
Hat einer eine Idee was ich falsch mache oder andern muß.
Gruß Hugo-Soft
Und hier mein Script.
Dim fso, f, ts, DataSet, Header, FName
FName = "C:\daten\PT_Daten\Archiv_" + CStr(DatePart("m",Date)) + ".csv
Header = "Speicherzeit;Var1;Var2;Var3" & Chr(10)
DataSet = CStr(Now) + ";" + CStr(VAR1) + ";" + CStr(VAR2) + ";" + CStr(VAR3)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(FName) Then
fso.CreateTextFile FName
Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream(8, -2)
ts.WriteLine(Header)
ts.Close
End If
Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream(8, -2)
ts.WriteLine(DataSet)
habe ein kleines Skipt um meine Werte aus ProTool in eine csv-Datei zuschreiben. Leider werden die Kommaten nicht in die Datei geschrieben.
Habe als Trennzeichen Simikolon verwendet.
Hat einer eine Idee was ich falsch mache oder andern muß.
Gruß Hugo-Soft
Und hier mein Script.
Dim fso, f, ts, DataSet, Header, FName
FName = "C:\daten\PT_Daten\Archiv_" + CStr(DatePart("m",Date)) + ".csv
Header = "Speicherzeit;Var1;Var2;Var3" & Chr(10)
DataSet = CStr(Now) + ";" + CStr(VAR1) + ";" + CStr(VAR2) + ";" + CStr(VAR3)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(FName) Then
fso.CreateTextFile FName
Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream(8, -2)
ts.WriteLine(Header)
ts.Close
End If
Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream(8, -2)
ts.WriteLine(DataSet)