---

Hallo,

ich habe einen String
z.B. "OKR:123.45  m HN"
nun möchte ich zur Zahl eine Konstante addieren
muß also den String in 3 Teile zerlegen
1.Teil nicht nummerischer Teil vor der Zahl "OKR:"
2.Teil nummerischer Teil "123.45"
3.Teil wieder nicht nummerischer Teil nach der Zahl "  m HN"

also 3 Variablen mit Inhalt der 3 Teile

habt Ihr da eine Lösung?

Servus Mario

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

---

Hallo Mario,

sind sie xxx.xx immer gleich?
Von Lisp ische 'aben keine Ahnüng ,
abere mit vba und regülar expressüones könnte es so gehen:

Sub test()
Const x% = 100
Dim s$, re As New RegExp
s = "OKR:123.45  m HN"
re.Global = True
re.Pattern = ".*?(\d\d\d\.\d\d).*"
Debug.Print CDbl(re.Replace(s, "$1")) + x
End Sub

;;-))) lg Nancy 

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

---

Hallo Mario,

Folgende Subfunktion kannst du bei dir einbauen:

Code:

---

(vl-load-com)
;|Zerlegt eine Zeichenkette des Formates
@##.##@ in die 3 Teile und gibt diese als Liste von Zeichenketten zurück
'("PREFIX" "ZAHL" "SUFFIX")
Das Dezimaltrennzeichen ist mit . festgelegt
Aufruf:
(ZkZahlZk "OKR:123.45  m HN")
Ergebnis:
("OKR:" "123.45" "  m HN")
|;
(defun ZkZahlZk (STRING / ZahlSTR PrefixSTR SuffixSTR)
  ;Zahlenstring ermitteln
  (setq ZahlSTR (apply 'strcat
      (mapcar 'chr
      (vl-remove-if-not
'(lambda (Z)
    (member Z
    (VL-STRING->LIST "0123456789.")
    )
    )
(VL-STRING->LIST STRING)
)
      )
      )
)
  ;Zeichenkette vor Zahl ermitteln
  (setq PrefixSTR
(substr STRING
1
(- (strlen STRING)
    (length (member
      (car (VL-STRING->LIST ZahlSTR))
      (VL-STRING->LIST STRING)
      )
    )
    )
)
)
  ;Zeichenkette nach Zahl ermitteln
  (setq SuffixSTR
(substr STRING
(+ (strlen ZahlSTR)
    (strlen PrefixSTR)
    1
    )
)
)
  (list PrefixSTR ZahlSTR SuffixSTR)
  )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

@Holger

na das ist ja wunderbar, ich danke Dir für deine schnelle Hilfe

@Nancy

auch Dir vielen Dank, die Lösung von Holger ist mir zwar lieber, werde deine Version aber mal testen,
man kann ja nur schlauer werden

Servus,
Mario

[Diese Nachricht wurde von m-troeger am 20. Mai. 2005 editiert.]

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

---

Hallo,

Wenn ein numerischer Teil aus einer beliebigen Zeichenkette
z.B.
"beliebiger Text mit . und , sowie einer Zahl 123.45 ist gegeben"
heraus gefiltert werden soll,
dann schaut unbedingt mal hier rein
http://ww3.cad.de/foren/ubb/Forum145/HTML/001211.shtml

Und viele weitere Möglichkeiten etwas zu suchen und zu ersetzen!

------------------
Servus,
Mario 

www.the-skier.de

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