Thema "Re: Speicherpfad auslesen & mit benutzerdefinierten Namen speichern." in Inventor - Deutsches Forum

Speicherpfad auslesen & mit benutzerdefinierten Namen speichern.

leoow96 — Sat, 16 Jul 2022 14:24:52 GMT

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

Re: Speicherpfad auslesen & mit benutzerdefinierten Namen speichern.

bradeneuropeArthur — Sat, 16 Jul 2022 19:59:58 GMT

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?

Re: Speicherpfad auslesen & mit benutzerdefinierten Namen speichern.

leoow96 — Thu, 21 Jul 2022 04:42:37 GMT

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.

Betreff: Speicherpfad auslesen & mit benutzerdefinierten Namen speichern.

Peter.C.Schulz — Wed, 20 Jul 2022 19:16:30 GMT

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

Betreff: Speicherpfad auslesen & mit benutzerdefinierten Namen speichern.

leoow96 — Thu, 21 Jul 2022 04:40:30 GMT

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