| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Kurzer Dateiname mit Zeichen ~ (715 mal gelesen)
|
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 08. Dez. 2004 14:13 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 08. Dez. 2004 14:28 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
du meinst die 8-Zeichengeschichte !? Dann nimmst du die ersten 6 Zeichen, dann ein ~ und dann fängst du an zu zählen 1... Wenn ein Dateiname auf 6 Zeichen verkürzt gleich einem anderen ist, so bekommt er eben ~2 usw... so oder so ähnlich schwebt es dir doch vor oder !? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 08. Dez. 2004 14:31 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
Vielleicht kann man aus diesem VB Code mit etwas ActiveX in Lisp was anstellen? Code:
'************************************** 'Windows API/Global Declarations for :ShortName '************************************** Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Mit freundlichem Gruß Udo Hübner ------------------ Von zwei möglichen Ereignissen wird nur das nicht gewünschte tatsächlich eintreffen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 08. Dez. 2004 14:34 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
nur mit VBA .. Lisp kommt an die kernel-Funktionen leider nicht ran. Hatte hier mal ein ähnliches API-Problem ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." [Diese Nachricht wurde von CADmium am 08. Dez. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 08. Dez. 2004 15:00 <-- editieren / zitieren --> Unities abgeben:
Hallo, zunächst vielen Dank an alle für die Informationen. Da ich laut Thomas an die Kernel-Funktionen nicht ran komme, fällt ja leider die Möglichkeit GetShortPathName von Udo weg. Ich habe gehofft, dass es genau so eine Funktion in Lisp gibt. Dann muss ich mir wohl eine Lösung überlegen, bei der ich den Vorschlag von cadffm berücksichtigen werde. Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 08. Dez. 2004 21:24 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
Hi, nicht so schnell aufgeben! Das FileSystemObject bietet eine Eigenschaft "ShortName": Code:
(setq fso (vlax-create-object "Scripting.FileSystemObject")) (vlax-get-property (vlax-invoke-method fso 'GetFile "C:\\DeinlangerDateinamen.xxx") 'ShortName) (vlax-release-object fso)
Gruß CADchup
------------------ www.cadditions.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 09. Dez. 2004 09:12 <-- editieren / zitieren --> Unities abgeben:
Hallo CADchup, Zitat: Original erstellt von CADchup:
(setq fso (vlax-create-object "Scripting.FileSystemObject")) (vlax-get-property (vlax-invoke-method fso 'GetFile "C:\\DeinlangerDateinamen.xxx") 'ShortName) (vlax-release-object fso)
es wäre super, wenn es doch noch funktionieren würde. Leider bekomme ich bei (vlax-invoke-method fso 'GetFile "C:\\DeinlangerDateinamen.xxx") folgende Meldung: Fehler: Automatisierungsfehler. Keine Beschreibung verfügbar. Ich kann leider nicht erkennen, wo der Fehler liegt. Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 09. Dez. 2004 09:32 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
Hi, ich habe zwar das (vl-load-com) am Anfang vergessen, aber das sollte nicht das Problem sein. Hast Du denn im Pfadnamen zu Deiner Datei auch mit doppelten Backslashs gearbeitet? Ich bekomme Deine Fehlermeldung, wenn ich nur einen Backslash eintrage. Außerdem sollte die Datei natürlich vorhanden sein. Das könntest Du zum Beispiel mit (if (findfile ...) testen. Hilft's? Gruß CADchup
------------------ www.cadditions.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 09. Dez. 2004 10:08 <-- editieren / zitieren --> Unities abgeben:
Hallo CADchup, Zitat: Original erstellt von CADchup:
ich habe zwar das (vl-load-com) am Anfang vergessen, aber das sollte nicht das Problem sein. Hast Du denn im Pfadnamen zu Deiner Datei auch mit doppelten Backslashs gearbeitet? Ich bekomme Deine Fehlermeldung, wenn ich nur einen Backslash eintrage. Außerdem sollte die Datei natürlich vorhanden sein. Das könntest Du zum Beispiel mit (if (findfile ...) testen.
- (vl-load-com) hatte ich bereits hinzugefügt, der Fehler kommt trotzdem. - Ich habe zum Testen Deinen Dateinamen verwendet, darin war der doppelte Backslash vorhanden. - Die Datei ist NICHT vorhanden, da liegt das Problem (bereits mit einer vorhandenen Datei getestet). In meinem eigentlichen Fall ist es auch so, dass die Datei noch nicht vohanden ist. Ich muss mir deshalb überlegen, ob ich meinen bisherigen Ablauf ändern und dadurch Deinen Vorschlag doch noch nutzen kann. Danke für Deine Hilfe und viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Dez. 2004 10:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd10
auf XP liefert ein (vlax-dump-object (setq FSO(vlax-create-object "Scripting.FileSystemObject")) 'T) folgende Liste : ; IFileSystem3: FileSystemObject ; Eigenschaftswerte: ; Drives (RO) = #<VLA-OBJECT IDriveCollection 003f74a8> ; Unterstützte Methoden: ; BuildPath (2) ; CopyFile (3) ; CopyFolder (3) ; CreateFolder (1) ; CreateTextFile (3) ; DeleteFile (2) ; DeleteFolder (2) ; DriveExists (1) ; FileExists (1) ; FolderExists (1) ; GetAbsolutePathName (1) ; GetBaseName (1) ; GetDrive (1) ; GetDriveName (1) ; GetExtensionName (1) ; GetFile (1) ; GetFileName (1) ; GetFileVersion (1) ; GetFolder (1) ; GetParentFolderName (1) ; GetSpecialFolder (1) ; GetStandardStream (2) ; GetTempName () ; MoveFile (2) ; MoveFolder (2) ; OpenTextFile (4) die Methode GETFILE liefert - wenn die Datei existiert - ein VLA-Objekt zurück. welches z.b. folgende Eigenschaften und Methoden bereithält: IFile: File Interface ; Eigenschaftswerte: ; Attributes = 32 ; DateCreated (RO) = 38018.5 ; DateLastAccessed (RO) = 38330.4 ; DateLastModified (RO) = 38018.5 ; Drive (RO) = #<VLA-OBJECT IDrive 003f7528> ; Name = "2-01-Begriffe-und-Formeln.PDF" ; ParentFolder (RO) = #<VLA-OBJECT IFolder 003f7580> ; Path (RO) = "D:\\2-01-Begriffe-und-Formeln.PDF" ; ShortName (RO) = "2-01-B~1.PDF" ; ShortPath (RO) = "D:\\2-01-B~1.PDF" ; Size (RO) = 80796 ; Type (RO) = "Adobe Acrobat-Dokument" ; Unterstützte Methoden: ; Copy (2) ; Delete (1) ; Move (1) ; OpenAsTextStream (2) also @Heinz .. bei mir funzt es auch ( hab wohl gestern nur oberflächlich gesucht .. nur bis FSO nicht mehr bis GetFile ..)
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |