---

was ist hier falsch?
--------------------

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI()

Dim TEXT As String = "10, 20, 30, 40, 50"
System.Windows.Forms.MessageBox.Show("Die Zahl 20 befindet sich an Position: {0}", _
TEXT.IndexOf("20"))

End Sub
End Module

------------------
gruss urs 

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

---

Hallo Urs,

so geht's:

Dim msg As String
msg = "Die Zahl 20 befindet sich an Position:" + TEXT.IndexOf("20").ToString()
System.Windows.Forms.MessageBox.Show(msg)

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

---

hallo stefan

vielen dank, fast ist alles ok:

ist da "string" der richtige typ, ich denke die positionsangabe stimmt
nicht überein...

------------------
gruss urs 

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

---

OK. Nächster Versuch:

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI()

Dim TEXT As String = "10, 20, 30, 40, 50"
Dim zahlen() As String

        zahlen = Split(TEXT, ",")

        Dim z As Integer = 0
        Dim msg As String
        For Each Str As String In zahlen
            z = z + 1
            If Str.IndexOf("20") <> -1 Then
                msg = "Die Zahl 20 befindet sich an Position:" + z.ToString()
                System.Windows.Forms.MessageBox.Show(msg)
            End If
        Next
End Sub
End Module

Gruß
Stefan

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

---

danke, jetzt funkts!

------------------
gruss urs 

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