---

Hallo,

ich möchte aus einem langen Dateinamen (z.B. 1234567890.DWG) einen kurzen Dateinamen (mit Zeichen ~) ermitteln. Gibt es hierfür eine Möglichkeit?

Danke im Voraus und viele Grüße
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

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

---

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

---

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

---

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

---

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

---

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