---

Hallo,

ich habe einige tausend Zahlen die 8 -stellig sind. Diese sollen nun 4-stellig werden. Und zwar sollen die ersten 4 Stellen wegfallen, z.B. soll aus 85218173 jetzt 8173 werden. Die Zahlen sind alle ohne Komma.
Hat jemand eine Idee, wie ich das schnell hinbekomme?
Danke für Hilfe!!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

.. als Text in der Zeichnung? ... als Exel-Tabelle ?
Bitte werde mal genauer! Sonst kann die antwort auch bloß heißen : Bei oft wiederkehrenden rechentechnischen Aufgaben lohnt es sich über ein Programm nachzudenken..
Gruß Thomas

------------------
Thomas

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

---

wenns GK Koordinaten sind, ein tip -> lasse wie se sind

cw

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

---

Sorry, natürlich in ACAD!
Es sind auch keine Koordinaten!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

geht mit einem kleinem lisp

das sucht alle texte in der zeichnung , und schneidet sie auf die letzten 4 stellen ab

(defun c:SplitText  (/)

  (setq ss (ssget "X" (list (cons 0 "TEXT"))) i 0)
  (repeat (sslength ss)
    (setq ename (ssname ss i)
  i (1+ i)
  edate (entget ename)
  text  (cdr (assoc 1 edate))
    )
    (entmod (subst (cons 1 (padl text 4 " ")) (assoc 1 edate) edate))
  )
)

;------------------------------------------------------------------------------
;    Auffüllen einer Zeichenkette mit Füllstring (links)                     
;      z.B.  "  a"  <--  (padl "a" 4 " ")                                   
;                                                                             
;    Ist die Zeichenkette s größer als die Länge l angibt, wird nicht       
;    aufgefüllt, sonder links abgeschnitten.                                 
;      z.B.  "efgh"  <--  (padr "abcdefgh" 4 " ")                             
;------------------------------------------------------------------------------
;    ->> s      String (z.B. "a")                                             
;    ->> l      Länge  (z.B. 4)                                               
;    ->> z      Füllstring (z.B. " ")                                         
;------------------------------------------------------------------------------
(defun Padl (s l z / )
  (if (not s) (setq s ""))
    (while (< (strlen s) l)
          (setq s (strcat z s))
    )
    (substr s (- (1+ (strlen s)) l))
)

------------------

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

---

hi fuchsi!

kleine zusatzfrage:
wie kann ich auf den auswahlsatz mit foreach zugreifen?

ciao georg

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

---

gar nicht
foreach funktioniert nur mit listen und nicht mit einem auswahlsatz
du musst tatsächlich eine repeat schleife drüber proggen

(setq i 0) ' zähler
(repeat (sslength ss) ' schleife mit so vielen durchläufen wie ss-inhalt

(setq ename (ssname ss i))  ' iŽten elemntname holen
(setq i (1+ i)) ' zähler erhöhen
)

------------------

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

---

danke!

dachte ich hätte bei mapcar irgendwo gelesen dass es mit foreach auch funzt.

ciao georg.

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

---

mit VBA würde ich es mit verschleiftem filein left( string, x) bzw right( string, x)  einfach realisieren. Leider ist die Art der Listenspeicherung (Exel, reines-txt, xml, dwg/dxf (dtext,mtext) ...mir unbekannt daher ist eine schnelle/bessere Lösung kaum machbar.

------------------
(entmake (entget (entlast))) | Die Pro-Version auf Anfrage erhältlich.

          "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File

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

---

Hallo,

vielen Dank Fuchsi, dass war es!!

Hat super geklappt! Units sind unterwegs.

Leider erst jetzt, hatte ein paar Tage Urlaub!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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