---

Leute helft mir!

Ich suche etwas, dass bestimmt sehr einfach ist. Ich hab das bestimmt schon mal irgendwo gesehen, aber ich find es nicht mehr. Ich bin mir auch sicher, dass es hier schon einen Thread dazu gibt, aber ich find nix!!!

Ich möchte aus einem String einen Teil bis zu einem bestimmten Zeichen.

Beispiel:

String = Teilenameodersonstwas.1

Was ich will ist die .1!!!

Anmerkungen hierzu: Weder die Anzahl der Zeichen vor noch nach dem Punkt sind fix.
Die Anzahl der Punkte ist ebenfalls nicht fix. Lediglich, dass ich dass Zeug hinter dem letzten Punkt brauche.

Ja es is die Instanzen Nummer. Wenn man die direkt abfragen kann ist das auch ok. Allerdings will ich die nicht neu Setzen. Ich brauch diese Nummer.

Ich bin mir sicher, dass ihr mir helfen könnt!!! 

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

Christoph

*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!

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

---

habe grade kein Catia vor mir, unter Excel würde ich den String umdrehen

Code:

---

Sub turn()
txt = "hugo.1"
txt_ret = ""
newtxt = ""
For x = Len(txt) To 1 Step -1
    txt_ret = zk_ret & Mid(txt, x, 1)
    newtxt = txt_ret & newtxt
        If txt_ret = "." Then GoTo msg
Next x
msg:
MsgBox (txt & ">" & txt_ret)
End Sub

---

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

---

Hallo Christoph,
oder mit Split

Sub StringIt()
Dim TXT    As String
Dim sSplit

TXT = "Part.1"
sSplit = Split(TXT, ".")
MsgBox sSplit(UBound(sSplit)), vbOKOnly, "InstanceNumber:"

End Sub

mfG
Mario

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

---

@Thomas: Danke, ich hab's nicht ausprobiert sieht aber gut aus.

@Mario: Danke sieht sehr gut aus weil ich mit dem Split auch schon gearbeitet hab. Hab's dann aber net geblickt das letzte Array Feld auszulesen obwohl ich doch den Ubound selber schon zu genüge eingesetzt hab. Bin heute nicht in Programmierverfassung 

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

Christoph

*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!

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

---

aber Vorsicht, wenn kein Punkt vorhanden ist entsteht ein Fehler.

Evtl. noch ne If-Abfrage mit Instr() oder ein On error resume next einfügen.

mfG
Mario

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

---

Hohoho!

Das hät ich gnadenlos vergessen. Man muss ja wirklich mit allem rechnen. Damit kann man sich dann schwer nachvollziehbaren Ärger ersparen.

Dankeschön recht herzlich!

Nachtrag:

Meine Lösung besteht darin nach dem Split abzufragen ob UBound größer ist wie 0. Wenn es Größer ist wird die Zahl hinter dem Punkt benutzt und wenn nicht wird das gleiche eben ohne Zahl ausgeführt. Somit kann kein Fehler an dieser Stelle entstehen, wenn man On Error Resume Next richtig einsetzt!!!

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

Christoph

*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!

[Diese Nachricht wurde von MakroNovize am 08. Sep. 2010 editiert.]

[Diese Nachricht wurde von MakroNovize am 08. Sep. 2010 editiert.]

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

---

Hallo Christoph,

es gibt doch ein befehl der den String von hinten durchsucht.

InStrRev

hier ein Beispiel.

Public Sub CATMain()
Dim x As String
Dim i As Integer
x = "Teilenameodersonstwas.1"
i = InStrRev(x, ".")
If i Then MsgBox Right(x, Len(x) - i + 1)
End Sub

------------------
Gruss Markus

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