| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX |
| | |
 | Anwender CAD mit Siemens NX-Basis , ein Kurs (bis zu 100% förderbar mit Bildungsgutschein)
|
|
Autor
|
Thema: Frage zu Durchsuchen mit VB.Net (931 mal gelesen)
|
Sirus
Ehrenmitglied
CAD Applikationsentwickler
   Beiträge: 1577
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: 126
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: 1577
Registriert: 03.06.2004 SolidWorks2024
|
erstellt am: 09. Okt. 2007 07:48 <-- editieren / zitieren --> Unities abgeben:
|
stefan.f
Mitglied
Beiträge: 126
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 |
| | Technischer Produktdesigner - befristet für 2 Jahre (m/w/d) | Die Liebherr-Hydraulikbagger GmbH in Kirchdorf an der Iller entwickelt und fertigt ein umfangreiches Sortiment hochwertiger Hydraulikbagger, knickgelenkter Muldenkipper sowie Materialumschlagmaschinen. Die leistungsfähigen Maschinen haben ihren festen Platz in unterschiedlichsten Anwendungsbereichen vieler Industriezweige und kommen weltweit zum Einsatz. Technischer Produktdesigner ... | | Anzeige ansehen | Maschinenbau |
|
Sirus
Ehrenmitglied
CAD Applikationsentwickler
Beiträge: 1577
Registriert: 03.06.2004 SolidWorks2024
|
erstellt am: 09. Okt. 2007 11:16 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
