Frage zu einem VB Code!

Windwalker · 02.11.2007

Also ich möchte ein Programm schreiben, bei dem ich in eine "textbox" einen text schreiben oder kopieren kann und wenn ich auf nen "button" klicke jeder Buchstaben mit dem um 13Stellen im Alphabet weiteren Buchstaben ersetzt wirt.
Ich habs damit versucht:

If TextBox1.Text = "a" Then
TextBox1.Text = "n"
End If
If TextBox1.Text = "b" Then
TextBox1.Text = "o"
End If

usw...

Nun die eigentlichen Fragen:
1. Es wird zwar wenn ich ein einzehlens "a" eingebe und den button drück in ein "n" umgewandelt aber wenn ich "ab" eingebe passiert nix. Wie kann ich das so schreiben das auch ein Text umgewandelt wird?
2. Gibt es einen Befehl mit dem ich sagen kann "a" wird zu "n" und umgekehrt? Und/oder des groß und klein Buchstaben einfast?
(Das würde viel Schreibarbeit ersparren.)

cmddegi · 02.11.2007

Du brauchst eine Schleife, um alle Buchstaben abzuarbeiten. Außerdem geht das wesentlich einfacher, indem du mit den ASCII-Codes arbeitest.
Mal so aus dem Stegreif; kann sein, dass der ein oder andere Fehler drin ist.

Code:

Dim i As Integer, c As Integer, s As String

s = TextBox1.Text

For i = 1 To Len(s) ' alle Zeichen durchgehen
    c = Asc(Mid(s, i, 1)) ' ASCII-Code besorgen
    If c >= 65 And c <= 90 Then ' Großbuchstabe
        c = ((c - 65 + 13) Mod 26) + 65 ' neues Zeichen berechnen; ab dem 14. Buchstaben von vorne beginnen
    ElseIf c >= 97 And c <= 122 Then ' Kleinbuchstabe
        c = ((c - 97 + 13) Mod 26) + 97
    Else ' andernfalls irgenwas schlaues machen
        
    End If
    
    Mid(s, i, 1) = Chr(c) ' Zeichen ersetzen
Next i

TextBox1.Text = s

Windwalker · 02.11.2007

ok es geht thx

jetzt muss ichs nurnoch verstehen

cmddegi · 03.11.2007

Tu dir keinen Zwang an, zu fragen, wenn dir was unklar ist.

Websurfer · 03.11.2007

ROT13 halt

http://www.planet-source-code.com/v...setAllVariables=TRUE&lngWId=1&B1=Quick+Search

cmddegi · 03.11.2007

Ich hatte noch überlegt, ob ich nicht vorher kurz Google anwerfen sollte.

Frage zu einem VB Code!

Windwalker

cmddegi

Windwalker

cmddegi

Websurfer

cmddegi

Frage zu einem VB Code!

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums