Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Pfadausschnitte

Mitglied: Spidi-25

Spidi-25 (Level 1) - Jetzt verbinden

27.04.2010 um 23:31 Uhr, 2895 Aufrufe, 3 Kommentare

Hallo alle zusammen

Ich hätte eine frage.

Sagen jemandem diese Zeichen was:



(setq DWG_ (getvar "dwgname")) ;; returns "filename-rev01.dwg"
(setq DWG_ (substr dwg_ 1 (- (strlen dwg_) 11))) ;;returns "filename"



Diese Zeichen kommen aus unserem Zeichnungsprogramm, damit kann ich aus dem Dateinamen von rechts 11 Zeichen entfernen.


und mit diesen Zeichen:

(setq DWG (getvar "dwgprefix")) ;; returns "filename-rev01.dwg"
(setq DWG (substr dwg 18 (- (strlen dwg) 23))) ;;returns "filename"


kann ich von dem Dateipfad 18 Zeichen von Links und 23 von rechts entfernen.

hier meine Frage

Kann man das ganze so Umstrukturieren damit folgendes gemacht wird, und so sieht der kompletter Dateipfad

V:\Allgemei\9000_Kunde\9000_900_Randform_Biegen
V:\Allgemei\9000_Kunde08\9500_300_Test

momentan wird mit den unteren Zeichen folgendes ausgegeben: z.B. Kunde\9000_900_Randform_Biegen

sollte aber so aussehen:

erster Code: Kunde

zweiter Code: Randform_Biegen

habe noch rum experimentiertnur zum test geändert statt die variable (getvar "dwgprefix") folgendes eingesetzt "V:\Allgemei\9000_Kunde\9000_900_Randform_Biegen" hatte auch funktioniert.

(setq name "V:\Allgemei\9000_Kunde\9000_900_Randform_Biegen")
(setq name (substr name 16 (- (strlen name) 17)))



es wurde folgendes ausgeschpukt: Kunde9000_900_Randform_Bieg
allerdings ohne \ bei variable (getvar "dwgprefix") mit \


Ich bedanke mich im Voraus

Grüße Spidi-25
Mitglied: LotPings
27.04.2010 um 23:53 Uhr
Hallo Spidi-25,

deine Chancen auf sinnvolle Antworten steigen:
  • wenn du Ross und Reiter nennst, sprich dein "Zeichnungsprogramm" und ggfs verwendete Scriptsprache.
  • deine Code-Schnipsel übersichtlicher präsentierst, dafür gibt es die code-tags in der Formatierungshilfe

Gruß
LotPings
Bitte warten ..
Mitglied: Spidi-25
28.04.2010 um 07:10 Uhr
Hallo LotPings

Das handelt sich um Autocad die Scriptsprache kenne ich leider selbst nicht wirklich

im Prinzip brauche ich 2 Scripts

die mir folgendes herausholen aus: V:\Allgemei\9000_Kunde\9000_900_Randform_Biegen raus ziehen

1.Kunde
2.Randform_Biegen

habe die Scripts noch abgekürzt und zwar so:

01.
(setq test (substr "V:\Allgemei\9000_Kunde\9000_900_Randform_Biegen" 5 (- (strlen "V:\Allgemei\9000_Kunde\9000_900_Randform_Biegen") 6)))
bzw. mit Variable so:

01.
(setq test (substr  (getvar "dwgprefix") 5 (- (strlen  (getvar "dwgprefix")) 6)))
es wurde dann folgendes herausgespukt:

01.
lgemei9000_Kunde9000_900_Randform_Bieg
ich glaube das setq test ist nur dafür da damit es im Autocad gefunden wird.

Grüße Spidi-25
Bitte warten ..
Mitglied: Spidi-25
29.04.2010 um 15:59 Uhr
Hier die Antwort
01.
(defun RESTPATH (PATH / LST RESULT)
02.
  (if (=(type PATH)'STR)
03.
    (progn           
04.
      (while (or(vl-string-search "\\" path)
05.
                (vl-string-search "/" path)
06.
            ) 
07.
        (setq path (vl-string-subst "\" \"" "\\" path))
08.
        (setq path (vl-string-subst "\" \"" "/" path))
09.
      )     
10.
      (if(and(setq LST (read (strcat "(\"" path "\")")))
11.
            (setq RESULT (cadddr LST))
12.
            (setq RESULT (substr RESULT 10))
13.
        )
14.
        RESULT   
15.
      )
16.
    )
17.
  ) 
18.
)
Aufruf
(RESTPATH "V:\\Allgemei\\9000_Kunde\\9000_900_Randform_Biegen\\")

Güße
Spidi-25

[Edit Biber] Code-Tags gibts heute auch mal für AutoCad... Thx @Spidi-25 für das Posten der Lösung! [/Edit]
Bitte warten ..
Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 2 TagenWindows 7

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 4 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 5 TagenMicrosoft Office7 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 7 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Utilities
Teamviewer 9.x "out of date" ??
gelöst Frage von keine-ahnungUtilities12 Kommentare

Moin at all, mein topaktueller teamviewer (alles 9.x - releases) verweigert seit heute die Arbeit und bemeckert: "the remote ...

Windows Installation
Windows10 Home Neuinstallation - Raketentechnik
Frage von spacyfreakWindows Installation12 Kommentare

"Kannst du den Rechner von der Tante von WindowsXP auf Windows10 Home upgraden" haben sie gefragt? "Sicher, was kann ...

Windows 10
Windows 10 verwendet FritzBox per IPv6 als DNS-Server an Stelle des per DHCP vergebenen DNS-Servers
Frage von Datax87Windows 1010 Kommentare

Hallo, ich habe ein kleines Problem mit der Namensauflösung (DNS) unter Windows 10. Mir ist heute aufgefallen, dass ich ...

Peripheriegeräte
Empfehlung für Home-USV (ca. 450VA 270W) Irgendwelche Osterpreisaktionen bekannt?
Frage von Server-NutzerPeripheriegeräte9 Kommentare

Hallo und schöne Ostern. Meine private Heim-USV Yunto Q450 (ca. 450VA 270W) hat sich nach vielen Jahren ohne Probleme ...