| | |
 | 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 (934 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 |
| | Projektmanager Bau und Technik (m/w/d) | | Die Klinikum Leverkusen Service GmbH versorgt als 100-prozentige Tochter der Klinikum Leverkusen gGmbH die Unternehmen im Konzern Klinikum sowie die Partner im Gesundheitspark mit allen Dienstleistungen außerhalb der Medizin und Pflege. Als kompetenter Anbieter mit 600 Mitarbeitern stellt sie darüber hinaus die bauliche Infrastruktur für die Weiterentwicklung des Gesundheitsparks sicher.... | | Anzeige ansehen | Feste Anstellung |
|
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
| 
