---

Hallo zusammen.
Ich würde gerne die Position einer 3 stelligen Nummer in einem String finden.
Beispiel.
String = "abcdefg000hij1k0y.tes"
finden will ich die Position der 3 Nullen. Können auch andere Zahlen sein aber die Nullen sind für mich eigentlich das Problem weil sonnst könnte ich einfach immer 3 Ziffern zu einer Int konvertieren und wider in einen String und wenn dann die Länge 3 ist passts. Mit Nullen klappt das aber natürlich nicht :s
Hat jemand einen input wie ich da vorgehen könnte?

ps. am Ende will ich so was: "abcdefg000" erreichen

Gruss Steff

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

---

Das hier sollte helfen:

vl-string-search (AutoLISP)



Searches for the specified pattern in a string

(vl-string-search pattern string [start-pos])
Arguments
pattern
A string containing the pattern to be searched for.
string
The string to be searched for pattern.
start-pos
An integer identifying the starting position of the search; 0 if omitted.
Return Values
An integer representing the position in the string where the specified pattern was found; otherwise nil if the pattern is not found; the first character of the string is position 0.
Examples
_$ (vl-string-search "foo" "pfooyey on you")
1
_$ (vl-string-search "who" "pfooyey on you")
nil
_$ (vl-string-search "foo" "fooey-more-fooey" 1)
11

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

ne das hilft nicht 
muss das glaube ich besser umschreiben.
der string kann auch so aussehen
"abcdefg010hij1k0y.tes"
oder
"ccdadefg001hij1k0y.tes"

was ich finden will ist die 3 stellige nummer im string.
010 oder 001 oder 520 oder was weiss ich.

mit vl-string-search suche ich ja einen exakten string im string.

gruss

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

---

Etwas Schellgestrickes (ohne Fehlerprüfung und Komfort):

(defun probe (str /)
  (if (wcmatch str "*###*")
    (progn
      (setq i (strlen str))
      (while (and (> i 1) (wcmatch (substr str 1 i) "*###*"))
(setq i (1- i))
      )
      (substr str 1 (1+ i))
    )
  )
)

HTH
Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Ich muß noch mal rückfragen, was Du willst:
Aussage 1: "am Ende will ich so was: "abcdefg000" erreichen"
Aussage 2: "was ich finden will ist die 3 stellige nummer im string.
(Wobei die Aufgabe 2 immer noch schwer interpretierbar ist: willst Du die Position eines "3-Ziffern-Blockes" oder dessen Inhalt oder was?)

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 30. Jan. 2015 editiert.]

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

---

ich will die position dann kann ich ja auch den inhalt auslesen oder den string verkürtzen.

aber mit (wcmatch string pattern) hast du mir wirklich geholfen.
sowas habe ich gesucht und den kannte ich nicht und den rest sollte ich hinkriegen.

1000 dank

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

---

Na dann eben noch mit vl-string-translate um eine Zeichenkette zu schaffen die immer nach "000" durchsucht werden kann.

Code:

---

(setq text "abcdefg010hij1k0y.tes")
(setq find "000")
(substr text 1 (+ (strlen find) (vl-string-search find (vl-string-translate "123456789" "000000000" text))))

---

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Zitat:

---

Original erstellt von Steff179:

1000 dank

---

Zwei Handvoll Us tun's auch  

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 30. Jan. 2015 editiert.]

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

---

Also ich wäre es so angegangen! 

Code:

---

(setq TEXTVORGABE "abcdefg000hij1k0y.tes")
(setq TXTLISTE (vl-string->list TEXTVORGABE))
(while TXTLISTE
(if (not
      (and (<= 48(setq ZAHL1 (car TXTLISTE))57)
    (<= 48(setq ZAHL2 (nth 1 TXTLISTE))57)
    (<= 48(setq ZAHL3 (nth 2 TXTLISTE))57)
    (setq Ergebniss (vl-list->string (list ZAHL1 ZAHL2 ZAHL3)))
    (not (setq TXTLISTE nil))
      )
    )
  (setq TXTLISTE (cdr TXTLISTE))
)
)

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1

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

---

@Jürgen

sind schon unterwegs 

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

---

Hallo Steff,
auch wenn schon alles gelöst wurde, ich würde das folgendermaßen machen:

Code:

---

(defun c:test ( / CHARS STRING)
  (setq string "abcdefg000hij1k0y.tes"
        chars "")
  (car
    (vl-remove-if '(lambda(X)
                    (/= (strlen X)3))
      (mapcar'(lambda(char)
                (if (member char
                      (vl-string->list "1234567890"))
                  (setq chars(strcat chars
                              (vl-list->string (list char))))
                  (setq chars "")))
            (vl-string->list string))))
  )

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Bäume stutzen Youtube

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

---

Zitat:

---

Original erstellt von joern bosse:

... ich würde das folgendermaßen machen:
[code]
...

---

Nu, wenn Se's jetzt so sachn 
Das sieht schon sehr nach Axels dreifach eingesprungenem Rittberger (sprich - der hohen Kunst des LISPelns) aus. 

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Hallo Jürgen,
danke für die Blumen, aber auch wenn's vielleicht ein bißchen komplex aussieht, es ist eigentlich nur eine MAPCAR-Schleife mit ein bißchen Schnick-Schnack drum herum.
Der Vorteil bei der Rückgabe ist übrigens, daß eine Liste zurückgegeben wird mit allen 3-stelligen Nummern, die im String enthalten sind. Ich nehme in diesem Fall mit CAR aber nur die zuerst gefundene.
Beispiel:
(setq string "abcdefg000hij1k0123y.te456s")
=> ("000" "012" "456") - wenn das CAR weggelassen wird

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Bäume stutzen Youtube

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