Von erstem Zeichen bis zu einem bestimmten lesen
lima-city → Forum → Programmiersprachen → Basic
abc
befehlen
beitrag
damal
dank
dankeschn
eigene funktion
ergebnis
folgende frage
funktion
grenzen
letzte
po
vielen dank
zeile
-
Hallo,
ich habe folgende Frage:
Ich habe eine TextBox (txtName) und will dass mein Progg vom ersten bis zu dem Zeichen > liest.
So schaut das aus: 34780>"BlahBlah...
Und Ich will dass das Ergebnis so erscheint:
34780 (evt. noch >)
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Da du im letzten Beitrag auch VB 6 verwendet hast, hab ich den Code für VB 6 angepasst. (In VB 6 gibt es keine eigene Funktion dafür, in VB.Net schon: String.IndexOf)
Code für VB 6:
Private Sub ButtonSuche_Click()
Dim Text As String
Text = Me.Text1.Text
Dim Teil As String
Teil = ""
Dim Grenze As String
Grenze = ">"
Dim i As Integer
i = 0
Do Until Mid(Text, i + 1, Len(Grenze)) = Grenze Or i = Len(Text)
i = i + 1
Teil = Teil & Mid(Text, i, 1)
Loop
MsgBox Teil
End Sub -
Vielen Dank,
werd deinen Namen vielleicht in der Dank Sagung meines Programmes reinschreiben! -
Vielen Dank,
werd deinen Namen vielleicht in der Dank Sagung meines Programmes reinschreiben!
Oh dankeschön..
Kann ich das Programm dann auch mal sehen, wenns fertig ist? -
Gerne ;)
(dauert aber noch) -
juwi schrieb:
In VB.NET ist alles etwas umständlicher, weil man fast so viel schreiben muss, wie damals unter DOS:
...
TextTeil = Microsoft.VisualBasic.Left(txtName.text, pos - 1)
...
Wenn man in VB .Net die gleichen Befehle wie in VB 6 verwendet, wird es wirklich viel. Aber es heißt ja nicht umsonst VB .Net, wenn es keine neuen Funktionen geben würde:
Der vollständige Code für VB .Net is nur 1 Zeile lang:
Dim Text As String = "ABC>123"
Dim TeilText As String = Text.Substring(0, Text.IndexOf(">"))
MsgBox(TeilText) -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
