Visual Basic Textbox

10/15/2010 16:43 eragon276#1
Hallo ich bins ma wieder ich wollte mal zu Visual Basic 2010 nachfragen wie ich der code lautet wenn man zum beispiel einen Script "sagen" will das wenn in der Textbox die 2 Stellen ausgelesen wird

also ein Beispiel

in einer Textbox steht : Hallo
nun soll das programm die 2 stelle prüfen und da die stelle ein A ist dafür mir den text ausgibt "Die 2 Stelle ist ein a/A" und dan halt für jede stelle
der sinn dahinter ist eine Registry beispiel

H = O4K
A = F94
L = FME
O = 92J
und jetzt sollte dan der text also code rauskommen für "Hallo" = O4KF94FMEFME92J und das halt nicht nur für hallo sondern jeden text den ich da eingebe

Hoffe hab es gut genug erklärt

freu mich auf eure antworte

eragon276
10/15/2010 19:32 Elektrochemie#2
[Only registered and activated users can see links. Click Here To Register...]

Mit copy und paste lernt man nicht Programmieren. Also viel Spaß.

Left in eine Schleife packen die so oft durchläuft wie der String lang ist. (D.h. "hallo" -> 5x Stichwort: len)

Ferddich.

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
10/16/2010 01:26 Lazeboy#3
du musst halt wie oben schon gesagt ne schleife bauen die solange läuft wie die länge des strings und hallt einen der left mid right dinger da benutzen und den left parameter der die stelle angbibt immer um eins erhöhen, XD ich kann leider nur vb6 deswegen.

z.b

Code:
Dim text As String, Ergebnis As String, cmp As String, Stelle As String

text = Text1.text
Stelle = 1
Ergebnis = ""

While Stelle - 1 < Len(text)
cmp = Strings.Mid(text, Stelle, 1)

If cmp = "h" Or cmp = "H" Then
Ergebnis = Ergebnis + "O4K"
End If



Stelle = Stelle + 1
Wend

Text1.text = Ergebnis

Hier Wird jetzt jede Stelle in dem String nach H oder h überprüft falls es stimmmt wird auf der aus gabe dein berühmtes O4K addiert wenn du jetzt noch mehr buchstaben hinzufügst addierst einfach auf ergebnis die strings und hasst dann deine ausgabe ^^



wird ja wohl kein ding sein ads für die anderen Buchstaben auch zu machen ich weiß man könnte den Code noch schöner gestalten, aber für ne copy paste reichts.


Quote:
Mit copy und paste lernt man nicht Programmieren. Also viel Spaß.
ich unterstütze hiermit zwar den typischen c&p fall aber das soll mir doch egal sein xD.
Denn jeder muss selbst wissen wir er mit lösungen umgeht ob er sie ienfach nutzt nicht versteht und beim nächsten mal wieder fragt und dann warscheinlich keine antwort bekommt oder ob er sich damit auseinander setzt ^^
10/16/2010 03:25 eragon276#4
hey danke habe schon 3 stunden jetzt probiert nix gefunden also es zwar gefunden doch hat er nur die 1 stelle benutzt und copy und past benutz ich nicht ich versuch so die einzelnen schritte zu lernen danke
10/16/2010 10:36 Jeoni#5
Geht es nicht auch so:
Code:
Private Sub TextChanging()
   Replace(TextBox1.Text, "H", "O4K", -1, -1, CompareMethod.Binary)
   Replace(TextBox1.Text, "h", "O4K", -1, -1, CompareMethod.Binary)
   'mit den anderen Buchtsaben fortführen
End Sub
Hatte zwar noch nie durch ganze Zeichenketten ersetzt, aber probieren kann man es ja mal.