PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Ausgangs Text = C:\bernddos\VB\Ablage Manager\Ablage Manager\bin\Debug
Dim Alter_Text AsString= Label1.Text
Dim Neuer_Text AsString= Label2.Text
Dim Parts() AsString=Split(Alter_Text, "\")
Label2.Text =""
For g =0To2
Label2.Text &= Parts(g) & "\"
Next
' Ergebnis Text = C:\bernddos\VB\
Löse es mit RegEx (sauperste Lösung)
Oder mit IndexOf() und nutze den Offset Parameter.
VB.NET-Quellcode
Dim ofs AsInteger=0
DimstrAsString="bla/test/foo/bar/32/42"
For i AsInteger=0To2
ofs =str.IndexOf("/", ofs+1)
Next
Dim nstr AsString=str.Substring(0, ofs)
Das müsste eigentlich funktionieren, mal schnell ausm Kopf getippt.
Danke Dodo und Bernd, ich hatte es schon mit einer Schleife geschafft, der Offset Parameter sieht trotzdem interresant aus, ich werde es in Zukunft so benutzen.
Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!
@bla:
1. Split() is ne VB6 Methode und sollte vermieden werden
2. habe ich es zumindest so verstanden dass nicht 3 / hintereinander sind sondern die ersten 3 / so gemeint war wie in meinem Beispiel Code angegeben
foo/bar/test/blubb/irgendwas
das dann "blubb/irgendwas" wegfällt.
1. irgendwo gibt es einen Unterschied zwischen Split und string.split.
Da string.split bei einem Projekt nicht wie Split gearbeitet hab, nutze ich immer Split.
2. Aaaah, ja das muss man erstmal verstehen
Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!