Hallo Forum,
bitte um Hilfe bei der Erstellung eines Scriptes.
Es sollen Inhalte aus einem DB in eine .csv geschrieben werden.
Die Zusammensetzung der DB-Bezeichnung funktioniert, der Inhalt stimmt nicht.
![]()
bitte um Hilfe bei der Erstellung eines Scriptes.
Es sollen Inhalte aus einem DB in eine .csv geschrieben werden.
Die Zusammensetzung der DB-Bezeichnung funktioniert, der Inhalt stimmt nicht.
Code:
Dim fso, f, file, myfile, path, i, Index, Q
myfile = "Parameter2"
path = "C:\Checkdata\"
file = path & myfile & ".csv"
'Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
'Abfrage Ordner vorhanden, wenn nicht dann erzeugen
If Not fso.FolderExists("c:\Checkdata") Then
fso.CreateFolder("c:\Checkdata")
End If
If Not fso.FileExists (file) Then
Set f = fso.CreateTextFile(file, True)
'Werte in die Datei schreiben
f.WriteLine(" Dateiname : ; " & file & ";")
f.WriteLine(" Datum : ; " & Date & ";")
f.WriteLine(" Kommentar 1 : ; " &SmartTags("DB: TEXTLISTEN.Kommentar1") & ";")
f.WriteLine(" Kommentar 2 : ; " &SmartTags("DB: TEXTLISTEN.Kommentar2") & ";")
f.WriteLine(" ; " & ";")
'Index bilden
For i = 1 To 30 Step +1
Index = ("Value_Q" & i)
f.WriteLine (Index)
Q = "DB: PARA PRV KENNFELD.WERT_20L_DRUCK.Value_Q" & i
f.WriteLine (Q & ";")'Test
f.WriteLine (" Daten : ; " &SmartTags(Q) & ";")
Next
End If