Ab Zeichen bis Ende löschen
lima-city → Forum → Programmiersprachen → Basic
anscheinend
basic
beschreibung
erste
formen
freund
gleiche spiel
load
methode
option
prozedur
right
sinnen
stattdessen
stellen
string
textfeld
trennzeichen
variable
zurck
-
Hi,
habe ein Problem:
Ich habe eine TextBox die heißt txtLink mit den Inhalt: Hallo &system=523545
Die Zahl hinter dem = ändert sich immer.
Nun möchte dich das es ab &system=... alles entfernt bis zum Ende des Textes,
dass dann nur noch Hallo dort steht!
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
1. Wo liegt das Problem?
2. Verwendest du VB oder VB .Net ? -
1.Ich weis nicht wie das geht^^
2.Visual Basic 6.0
Mit deiner Beschreibung kann man sehr wenig anfangen.
Wie wärs die Option 'Text' bei den Eigenschaften Anzupassen?
Oder In der Form Load Prozedur mit:
txtLink.text = "Hallo"
Sorry, aber mehr is aus deiner Beschreibung net herauszuholen ;)
LG, Felix -
du willst die ersten x zeichen rauskopieren, bis zum & und in ne andere variable schreiben?
Also als erstes mal: & als Trennzeichen is ganz schlecht... weil das auch verwendet wird um strings zusammenzufügen
Nimm stattdessen am besten "$"
jetzt suchst du das $ zeichen:
dim blubb as integer
dim blobb as string
blubb = instr(1, "$" txtlink.text) 'sucht "$" in deinem Textfeld ab der ersten stelle und gibt die stelle an blubb zurück
dann blobb = left(txtlink.text, blubb) gibt alles links von blubb aus dem textfeld zurück
Dann sollte blobb "Hallo" sein
Ich hoffe ich konnte dir helfen! -
Ne,
ich will vom Zeichen $ bis zum Ende das Lesen
angenommen:
txtLink.Text = "Lukas$234234"
Dann soll es das $234234 auslesen! -
dann isses das gleiche Spiel nur mit "right" anstatt left
dass mit instr bleibt aber!
Kann es sein, dass du nich weißt was du willst?
Vorher hastes noch andersrum gewollt!
Und n Freund von mir hat dir des anscheinend auch schon lang un breit erklärt!
Beitrag geaendert: 31.3.2007 17:28:48 von martix -
Also an alle Danke!
So muss es ausshauen:
Dim blubb As Integer
Dim blobb As String
blubb = InStr(1, txtLink.Text, "&system=")
blubb = Len(txtLink.Text) - blubb
blobb = Right(txtLink.Text, blubb)
MsgBox blobb
Und wegen Philipp, bei den seinen Methode ging nix! -
was für nen sinn hat dass denn?
warum ziehst du vom gesamten wieder die position ab?
nur um dann right zu machen?
Ach, ich gebs auf!
Sei froh un... naja
-
Ja, aber es geht^^
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
