vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Probleme mit der Replace - Funktion: 
Autor: Markus
Datum: 15.07.02 16:28
Hi Devnull, hi Leute,

Vielen Dank für deinen Tipp Devnull!!!
Ich habe das Problem mitlerweile etwas anders gelöst und zwar so:

Aber jetzt habe ich ein anderes Problem (siehe weiter unten) 

Private Sub txtA_Change()
 
LokS = txtA.Text
 
'Großbuchstaben
LokS = Replace(LokS, "A", "E")
LokS = Replace(LokS, "B", "P")
LokS = Replace(LokS, "C", "S")
LokS = Replace(LokS, "D", "T")
LokS = Replace(LokS, "E", "I")
LokS = Replace(LokS, "F", "W")
LokS = Replace(LokS, "G", "K")
LokS = Replace(LokS, "H", "N")
LokS = Replace(LokS, "I", "U")
LokS = Replace(LokS, "J", "V")
LokS = Replace(LokS, "K", "G")
LokS = Replace(LokS, "L", "C")
LokS = Replace(LokS, "M", "L")
LokS = Replace(LokS, "N", "R")
LokS = Replace(LokS, "O", "Y")
LokS = Replace(LokS, "P", "B")
LokS = Replace(LokS, "Q", "X")
LokS = Replace(LokS, "R", "H")
LokS = Replace(LokS, "S", "M")
LokS = Replace(LokS, "T", "D")
LokS = Replace(LokS, "U", "O")
LokS = Replace(LokS, "V", "F")
LokS = Replace(LokS, "W", "Z")
LokS = Replace(LokS, "X", "Q")
LokS = Replace(LokS, "Y", "A")
LokS = Replace(LokS, "Z", "J")
 
'Kleinbuchstaben
LokS = Replace(LokS, "a", "e")
LokS = Replace(LokS, "b", "p")
LokS = Replace(LokS, "c", "s")
LokS = Replace(LokS, "d", "t")
LokS = Replace(LokS, "e", "i")
LokS = Replace(LokS, "f", "w")
LokS = Replace(LokS, "g", "k")
LokS = Replace(LokS, "h", "n")
LokS = Replace(LokS, "i", "u")
LokS = Replace(LokS, "j", "v")
LokS = Replace(LokS, "k", "g")
LokS = Replace(LokS, "l", "c")
LokS = Replace(LokS, "m", "l")
LokS = Replace(LokS, "n", "r")
LokS = Replace(LokS, "o", "y")
LokS = Replace(LokS, "p", "b")
LokS = Replace(LokS, "q", "x")
LokS = Replace(LokS, "r", "h")
LokS = Replace(LokS, "s", "m")
LokS = Replace(LokS, "t", "d")
LokS = Replace(LokS, "u", "o")
LokS = Replace(LokS, "v", "f")
LokS = Replace(LokS, "w", "z")
LokS = Replace(LokS, "x", "q")
LokS = Replace(LokS, "y", "a")
LokS = Replace(LokS, "z", "j")
 
 
txtD.Text = LokS
End Sub
Das Problem. z.B. "H":

H --> N // N --> R // und leider: // R --> H

Somit läuft die ganze Übersetzung leider falsch und zwar überall:
F --> W und W --> Z somit wird F eigentlich zu Z und das sollte nicht der Fall sein. Wie kann ich das Problem beheben? Jetzt weiß ich nämlich echt nicht mehr weiter...
Vielen Dank im vorraus
Cu
Markus
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Probleme mit der Replace - Funktion:48Markus15.07.02 16:01
Re: Probleme mit der Replace - Funktion:33devnull15.07.02 16:12
Re: Probleme mit der Replace - Funktion:31Markus15.07.02 16:28
Re: Probleme mit der Replace - Funktion:93devnull15.07.02 16:56
Re: Probleme mit der Replace - Funktion:38Markus16.07.02 07:36

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel