Vb.net将字符串中的所有字母更改为不同的字母

Question

我创建了一些需要用户输入（这是一个字符串）并将每个字母更改为字母表中13个字母形式的代码。但我已经明白了文字的长度。但是我不知道如何在每次将一个字母改成字母表中的第13个字母时将变量加1。

Dim looped As Integer 
Dim length As Integer 
Dim text As String 
Dim newtext As String 


Sub Main() 

    Console.WriteLine("Enter some text") 
    text = Console.ReadLine 

    looped = 0 
    text = LCase(text) 
    length = Len(text) 

    For counter = 1 To 25 Step 1 

     text = text.Replace("a", "n") 
     text = text.Replace("b", "o") 
     text = text.Replace("c", "p") 
     text = text.Replace("d", "q") 
     text = text.Replace("e", "r") 
     text = text.Replace("f", "s") 
     text = text.Replace("g", "t") 
     text = text.Replace("h", "u") 
     text = text.Replace("i", "v") 
     text = text.Replace("j", "w") 
     text = text.Replace("k", "x") 
     text = text.Replace("l", "y") 
     text = text.Replace("m", "z") 
     text = text.Replace("n", "a") 
     text = text.Replace("o", "b") 
     text = text.Replace("p", "c") 
     text = text.Replace("q", "d") 
     text = text.Replace("r", "e") 
     text = text.Replace("s", "f") 
     text = text.Replace("t", "g") 
     text = text.Replace("u", "h") 
     text = text.Replace("v", "i") 
     text = text.Replace("w", "j") 
     text = text.Replace("x", "k") 
     text = text.Replace("y", "l") 
     text = text.Replace("z", "m") 

    Next 

    Console.WriteLine(text) 
    Console.ReadLine() 

End Sub 

Answer 1

看起来像一个简单的“加密”的方法。如果你只想要小写a-z。 通过加1，我猜你的意思是增加到下一个字符，如果你想这样做，我会使用某种字符代码。 我会做这样（快速模拟了）：

Dim LetterArray As String = "abcdefghijklmnopqrstuvwxyz" 'ANYTHING you want 
    Dim NewLetterArray As String = "" 
    Dim LetterStep As Integer = 13 'Can be from 0 to 13 in your scenario. 
    For Each CurrentLetter As Char In LetterArray 
     If (Asc(CurrentLetter) + LetterStep) > Asc("z") Then 
      NewLetterArray = NewLetterArray & Chr(Asc(CurrentLetter) + LetterStep - (LetterStep * 2)) 
     Else 
      NewLetterArray = NewLetterArray & Chr(Asc(CurrentLetter) + LetterStep) 
     End If 
    Next 
    Console.WriteLine(NewLetterArray) 

Answer 2

如果你指的是你初始化为0的变量looped，那么你应该增加它在每次迭代：

Dim looped As Integer 
Dim length As Integer 
Dim text As String 
Dim newtext As String 

Sub Main() 
    Console.WriteLine("Enter some text") 
    text = Console.ReadLine 

    looped = 0 
    text = LCase(text) 
    length = Len(text) 

    For counter = 1 To 25 Step 1 
     text = text.Replace("a", "n") 
     text = text.Replace("b", "o") 
     text = text.Replace("c", "p") 
     text = text.Replace("d", "q") 
     text = text.Replace("e", "r") 
     text = text.Replace("f", "s") 
     text = text.Replace("g", "t") 
     text = text.Replace("h", "u") 
     text = text.Replace("i", "v") 
     text = text.Replace("j", "w") 
     text = text.Replace("k", "x") 
     text = text.Replace("l", "y") 
     text = text.Replace("m", "z") 
     text = text.Replace("n", "a") 
     text = text.Replace("o", "b") 
     text = text.Replace("p", "c") 
     text = text.Replace("q", "d") 
     text = text.Replace("r", "e") 
     text = text.Replace("s", "f") 
     text = text.Replace("t", "g") 
     text = text.Replace("u", "h") 
     text = text.Replace("v", "i") 
     text = text.Replace("w", "j") 
     text = text.Replace("x", "k") 
     text = text.Replace("y", "l") 
     text = text.Replace("z", "m") 

     ' Increment "looped" here: 
     looped = looped + 1 

    Next 

    Console.WriteLine(text) 
    Console.ReadLine() 

End Sub 

Answer 3

该解决方案支持大写字母，也标点符号

Private Function rot13(input As String) As String 
    Dim sb As New System.Text.StringBuilder() 
    For Each c In input 
     Dim a = Asc(c) 
     Select Case a 
      Case 97 To 122 
       ' lower case letters a to z 
       ' a - 84 = a - 97 + 13 
       sb.Append(Chr(((a - 84) Mod 26) + 97)) 
      Case 65 To 90 
       ' upper case letters A to Z 
       ' a - 52 = a - 65 + 13 
       sb.Append(Chr(((a - 52) Mod 26) + 65)) 
      Case Else 
       ' all other characters, i.e. punctuation 
       sb.Append(c) 
     End Select 
    Next c 
    Return sb.ToString() 
End Function 

用法：

Sub Main() 
    Dim input = "The Quick Brown Fox Jumps Over The Lazy Dog!" 
    Console.WriteLine("original:") 
    Console.WriteLine(input) 

    input = rot13(input) 
    Console.WriteLine("rot13(original):") 
    Console.WriteLine(input) 

    input = rot13(input) 
    Console.WriteLine("rot13(rot13(original)):") 
    Console.WriteLine(input) 

    Console.ReadLine() 
End Sub 

输出：

原创：
快速的棕色狐狸跳过懒狗！
rot13（original）：
Gur Dhvpx Oebja Sbk Whzcf Bire Gur Ynml Qbt！
rot13（rot13（original））：
快速布朗狐狸跳过懒狗！