Visual Basic Textbox

[eragon276]

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

[Elektrochemie]

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.

[Lazeboy]

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

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.

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 ^^

[eragon276]

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

[Jeoni]

Geht es nicht auch so:

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.