Speicherpfad auslesen & mit benutzerdefinierten Namen speichern.

[leoow96]

Hallo zuzsammen 🙂

Ich will Revisionsdaten von Zeichnungen in eine .csv speichern. Die .csv soll dort gespeichert werden wo die Zeichnung gespeichert wurden ist.

Problem bei der ganzen Sache ist, dass ich den benutzerdefinierten Namen nicht hin bekomme.

Mit dem Befehl "

ThisDoc.PathAndFileName(False)

 kriege ich es hin dort zu speichern wo die Zeichnung auch gespeichert ist, jedoch nicht mit benutzerdefinierten Namen (wie im fileheader)

Hier mal mein Code

' Aktuellen Speicherort des Dokuments erfassen
Dim ExportPath As String = ThisDoc.Path

' Überprüfung, ob die Datei gespeichert wurde
If String.IsNullOrEmpty(ExportPath) Then
    MsgBox("Die Zeichnung wurde bisher noch nicht gespeichert, bitte speichern Sie die Zeichnung vorher ab!",64, "REVISIONSTABELLE ERSTELLEN (DWV)")
Return
End If

If REV_TABELLE_OEFFNEN = True Then

fileheader = iProperties.Value("Custom", "abZEICHNUNGSNUMMER") & "_" & iProperties.Value("Custom", "abBEZEICHNUNG") & "_REV-" & iProperties.Value("Custom", "abREVISIONS_INDEX") & " (Revisionsdaten)"
description = "In dieser Revisionsdatei werden die Revisionen ausfuehrlich beschrieben und mit Daten aus der Zeichnung gefuellt." 'use this variable in the body of the html
trenner = "|     "

If REVISIONS_INDEX = "01" Then
	
	Dim oFile As System.IO.File
	Dim oWrite As System.IO.StreamWriter
    csv_filename = ThisDoc.PathAndFileName(False) & ".csv"
	
	
	oWrite = oFile.CreateText(csv_filename)

Vielen Dank im vorraus 🙂

PS: Ich bin kein Programmierprofi, sondern wurschtel mir die Codes etwas zusammen.

Grüße

Leo

[bradeneuropeArthur]

 Hallo,

Was meinen Sie mit benutzerdefinierte Namen. Sie möchten eine csv machen mit die gleiche Namen wie die Zeichnung nur statt .dwg .csv richtig?

[leoow96]

Hallo 🙂

vielen Dank schonmal für die Antwort 🙂 Genau. Ich will die erstellte .csv-Datei genauso benennen wie im fileheader. Des Weiteren soll die .csv genau in dem selben Ordner gespeichert werden wie die Zeichnung.

Ziel ist es mit einem Klick eine Revisionsdatei zu erstellen, die am Ende dann im gleichen Ordner wie die Zeichnung ist.

[Peter.C.Schulz]

Hallo @leoow96,

mit deiner Zeile

csv_filename = ThisDoc.PathAndFileName(False) & ".csv"

erreichst du genau das, was Du beschrieben hast. Den Pfad und Dateinamen ohne Dateiendung plus deiner Erweiterung .csv. Vorausgesetzt diese Regel läuft in der Zeichnung.

Kommt das bei dir nicht heraus?

Grüße, Peter

[leoow96]

fileheader = iProperties.Value("Custom", "abZEICHNUNGSNUMMER") & "_" & iProperties.Value("Custom", "abBEZEICHNUNG") & "_REV-" & iProperties.Value("Custom", "abREVISIONS_INDEX") & " (Revisionsdaten)"

hallo ☺️

Im Istzustand wird die .csv nach dem Namen der .idw benannt. Das will ich aber nicht. Ich will die Benennung praktisch wie im Header meiner .csv. (Fileheader)

wenn ich jedoch einfach pathandfilename mit dem fileheader ersetze und den Pfad angebe. Dann bekomme ich einen Fehler.

Ziel ist es die .csv wie im fileheader zu speichern und unter dem gleichen Pfad wie die .idw zu speichern.

Grüße 

Leo