| | |
 | Additiv Herbsttagung | 22. Oktober 2026 | KSB SE & Co. KG, Pegnitz Termin: in 10 Wochen |
|
Autor
|
Thema: Frage zu Durchsuchen mit VB.Net (962 mal gelesen)
|
Sirus
Ehrenmitglied
CAD Applikationsentwickler
   Beiträge: 1579
Registriert: 03.06.2004
|
erstellt am: 08. Okt. 2007 16:13  <-- editieren / zitieren -->   Unities abgeben:          
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 |
stefan.f
Mitglied
Beiträge: 127
Registriert: 03.09.2002
|
erstellt am: 09. Okt. 2007 06:48 <-- editieren / zitieren --> Unities abgeben: Nur für Sirus 
|
Sirus
Ehrenmitglied
CAD Applikationsentwickler
Beiträge: 1579
Registriert: 03.06.2004 SolidWorks2024
|
erstellt am: 09. Okt. 2007 07:48 <-- editieren / zitieren --> Unities abgeben:
|
stefan.f
Mitglied
Beiträge: 127
Registriert: 03.09.2002
|
erstellt am: 09. Okt. 2007 11:11 <-- editieren / zitieren --> Unities abgeben: Nur für Sirus
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 |
| | Konstrukteur (m/w/d)* schiffbauliche Ausrüstung | Als Technologie-Berater arbeiten wir gemeinsam mit namenhaften Unternehmen in der Luft- und Raumfahrt, der Automobil- und Schiffbauindustrie, Energie- und IT-Branche, sowie im Anlagenbau. Mit rund 50 Jahren Unternehmensgeschichte legen wir als inhabergeführtes Unternehmen Wert auf flache Hierarchien und bearbeiten unsere Projekte mit viel Herz. Wir bieten dir die Möglichkeit an unseren Standorten in der gesamten DACH-Region zu arbeiten.... | | Anzeige ansehen | Supply-Chain-Management |
|
Sirus
Ehrenmitglied
CAD Applikationsentwickler
Beiträge: 1579
Registriert: 03.06.2004 SolidWorks2024
|
erstellt am: 09. Okt. 2007 11:16 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
