Replace funktioniert, aber merkwürdig

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Unwesen.

    Replace funktioniert, aber merkwürdig

    Hallo,
    ich habe ein Problem mit der Replace-Funktion. Ich habe z.B. die Buchstaben A bis E, nun will ich diese ersetzt haben. Zum Beispiel A = 1, B = 2, C = 3, D = 4. Wenn ich nun als Input "A" eingebe bekomme ich als Output irgendwie "1AAA", wodran liegt das? Was hab ich falsch gemacht, hier ist der Code:

    VB.NET-Quellcode

    1. Dim repstring As String
    2. Dim readstring As String
    4. readstring = TextBox1.Text
    6. repstring = readstring.Replace("A", "1") _
    7. + readstring.Replace("B", "2") _
    8. + readstring.Replace("C", "3") _
    9. + readstring.Replace("D", "4") _
    10. + readstring.Replace("E", "5") _


    Ich habe es auch schon so versucht indem ich die + mit & ersetzt hatte aber es kam immer das selbe raus:
    1AAAA


    Wodran liegt das? Ich hab hier nicht nur die 5, es sind über 30 ?(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dussl“ ()

    readstring.replace gibt dir den gesamten String zurück. Diesen fügst du hier fünfmal hintereinander an.
    Entweder:

    VB.NET-Quellcode

    1. repstring=readstring.replace("A", "1")
    2. repstring=repstring.replace("B", "2")
    3. repstring=repstring.replace("C", "3")
    4. repstring=readstring.replace("D", "4")
    5. ...usw


    oder:

    VB.NET-Quellcode

    1. Repstring=Readstring.Replace("A", "1").Replace("B", "2").Replace("C", "3") ...


    In deinem Fall solltest du es mit einer Schleife versuchen. "A" ist gleich chr(65), damit lässt sich in einer Schleife arbeiten.

    Nach 3 Edits gehts immer noch nicht, hab alles ausprobiert was ihr vorgeschlagen habt. Hier ist der echte Code, vielleicht hab ich da einen Fehler reingehauen.

    VB.NET-Quellcode

    1. Dim readstring As String = ""
    2. Dim repstring As String = ""
    4. readstring = Form1.freebox.Text
    6. repstring = readstring.Replace("A", "0a1")
    7. repstring = readstring.Replace("B", "0a2")
    8. repstring = readstring.Replace("C", "0a3")
    9. repstring = readstring.Replace("D", "0a4")
    10. repstring = readstring.Replace("E", "0a5")
    11. repstring = readstring.Replace("F", "0a6")
    12. repstring = readstring.Replace("G", "0a7")
    13. repstring = readstring.Replace("H", "0a8")
    14. repstring = readstring.Replace("I", "0a9")
    15. repstring = readstring.Replace("J", "0b1")
    16. repstring = readstring.Replace("K", "0b2")
    17. repstring = readstring.Replace("L", "0b3")
    18. repstring = readstring.Replace("M", "0b4")
    19. repstring = readstring.Replace("N", "0b5")
    20. repstring = readstring.Replace("O", "0b6")
    21. repstring = readstring.Replace("P", "0b7")
    22. repstring = readstring.Replace("Q", "0b8")
    23. repstring = readstring.Replace("R", "0b9")
    24. repstring = readstring.Replace("S", "0c1")
    25. repstring = readstring.Replace("T", "0c2")
    26. repstring = readstring.Replace("U", "0c3")
    27. repstring = readstring.Replace("V", "0c4")
    28. repstring = readstring.Replace("W", "0c5")
    29. repstring = readstring.Replace("X", "0c6")
    30. repstring = readstring.Replace("Y", "0c7")
    31. repstring = readstring.Replace("Z", "0c8")
    32. repstring = readstring.Replace("a", "0d1")
    33. repstring = readstring.Replace("b", "0d2")
    34. repstring = readstring.Replace("c", "0d3")
    35. repstring = readstring.Replace("d", "0d4")
    36. repstring = readstring.Replace("e", "0d5")
    37. repstring = readstring.Replace("f", "0d6")
    38. repstring = readstring.Replace("g", "0d7")
    39. repstring = readstring.Replace("h", "0d8")
    40. repstring = readstring.Replace("i", "0d9")
    41. repstring = readstring.Replace("j", "0e1")
    42. repstring = readstring.Replace("k", "0e2")
    43. repstring = readstring.Replace("l", "0e3")
    44. repstring = readstring.Replace("m", "0e4")
    45. repstring = readstring.Replace("n", "0e5")
    46. repstring = readstring.Replace("o", "0e6")
    47. repstring = readstring.Replace("p", "0e7")
    48. repstring = readstring.Replace("q", "0e8")
    49. repstring = readstring.Replace("r", "0e9")
    50. repstring = readstring.Replace("s", "0f1")
    51. repstring = readstring.Replace("t", "0f2")
    52. repstring = readstring.Replace("u", "0f3")
    53. repstring = readstring.Replace("v", "0f4")
    54. repstring = readstring.Replace("w", "0f5")
    55. repstring = readstring.Replace("x", "0f6")
    56. repstring = readstring.Replace("y", "0f7")
    57. repstring = readstring.Replace("z", "0f8")
    58. repstring = readstring.Replace("1", "ZaA")
    59. repstring = readstring.Replace("2", "ZaB")
    60. repstring = readstring.Replace("3", "ZaC")
    61. repstring = readstring.Replace("4", "ZaD")
    62. repstring = readstring.Replace("5", "ZaE")
    63. repstring = readstring.Replace("6", "ZaF")
    64. repstring = readstring.Replace("7", "ZaG")
    65. repstring = readstring.Replace("8", "ZaH")
    66. repstring = readstring.Replace("9", "ZaI")
    67. repstring = readstring.Replace("0", "ZaJ")
    69. Form1.cryptbox.Text = repstring
    70. repstring = ""
    71. readstring = ""

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „dussl“ ()

    Nimm nur einen String:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim readstring As String = ""
    3. readstring = Form1.freebox.Text
    5. readstring = readstring.Replace("A", "0a1")
    6. readstring = readstring.Replace("B", "0a2")
    7. readstring = readstring.Replace("C", "0a3")
    8. readstring = readstring.Replace("D", "0a4")
    9. readstring = readstring.Replace("E", "0a5")
    10. readstring = readstring.Replace("F", "0a6")
    11. readstring = readstring.Replace("G", "0a7")
    12. readstring = readstring.Replace("H", "0a8")
    13. readstring = readstring.Replace("I", "0a9")
    14. readstring = readstring.Replace("J", "0b1")
    15. readstring = readstring.Replace("K", "0b2")
    16. readstring = readstring.Replace("L", "0b3")
    17. readstring = readstring.Replace("M", "0b4")
    18. readstring = readstring.Replace("N", "0b5")
    19. readstring = readstring.Replace("O", "0b6")
    20. readstring = readstring.Replace("P", "0b7")
    21. readstring = readstring.Replace("Q", "0b8")
    22. readstring = readstring.Replace("R", "0b9")
    23. readstring = readstring.Replace("S", "0c1")
    24. readstring = readstring.Replace("T", "0c2")
    25. readstring = readstring.Replace("U", "0c3")
    26. readstring = readstring.Replace("V", "0c4")
    27. readstring = readstring.Replace("W", "0c5")
    28. readstring = readstring.Replace("X", "0c6")
    29. readstring = readstring.Replace("Y", "0c7")
    30. readstring = readstring.Replace("Z", "0c8")
    31. readstring = readstring.Replace("a", "0d1")
    32. readstring = readstring.Replace("b", "0d2")
    33. readstring = readstring.Replace("c", "0d3")
    34. readstring = readstring.Replace("d", "0d4")
    35. readstring = readstring.Replace("e", "0d5")
    36. readstring = readstring.Replace("f", "0d6")
    37. readstring = readstring.Replace("g", "0d7")
    38. readstring = readstring.Replace("h", "0d8")
    39. readstring = readstring.Replace("i", "0d9")
    40. readstring = readstring.Replace("j", "0e1")
    41. readstring = readstring.Replace("k", "0e2")
    42. readstring = readstring.Replace("l", "0e3")
    43. readstring = readstring.Replace("m", "0e4")
    44. readstring = readstring.Replace("n", "0e5")
    45. readstring = readstring.Replace("o", "0e6")
    46. readstring = readstring.Replace("p", "0e7")
    47. readstring = readstring.Replace("q", "0e8")
    48. readstring = readstring.Replace("r", "0e9")
    49. readstring = readstring.Replace("s", "0f1")
    50. readstring = readstring.Replace("t", "0f2")
    51. readstring = readstring.Replace("u", "0f3")
    52. readstring = readstring.Replace("v", "0f4")
    53. readstring = readstring.Replace("w", "0f5")
    54. readstring = readstring.Replace("x", "0f6")
    55. readstring = readstring.Replace("y", "0f7")
    56. readstring = readstring.Replace("z", "0f8")
    57. readstring = readstring.Replace("1", "ZaA")
    58. readstring = readstring.Replace("2", "ZaB")
    59. readstring = readstring.Replace("3", "ZaC")
    60. readstring = readstring.Replace("4", "ZaD")
    61. readstring = readstring.Replace("5", "ZaE")
    62. readstring = readstring.Replace("6", "ZaF")
    63. readstring = readstring.Replace("7", "ZaG")
    64. readstring = readstring.Replace("8", "ZaH")
    65. readstring = readstring.Replace("9", "ZaI")
    66. readstring = readstring.Replace("0", "ZaJ")
    68. Form1.cryptbox.Text = readstring
    69. readstring = ""
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    dussl schrieb:


    Nach 3 Edits gehts immer noch nicht, hab alles ausprobiert was ihr vorgeschlagen habt. Hier ist der echte Code, vielleicht hab ich da einen Fehler reingehauen.


    Hmja, das wäre möglich..

    VB.NET-Quellcode

    1. ...
    2. repstring = readstring.Replace("A", "0a1")'ersetzt alle A und schreibt in REPstring
    3. repstring = readstring.Replace("B", "0a2")'ersetzt alle B und schreibt in REPstring
    4. ...



    Was ist mit dem zweiten Vorschlag von der_Kurt ? Das sieht doch ganz brauchbar aus?

    der_Kurt schrieb:


    Repstring=Readstring.Replace("A", "1").Replace("B", "2").Replace("C", "3") ...



    // Edit 1
    Abgesehen davon hab ich aber leichte Zweifel, ob das so klappt.

    Du ersetzt A gegen 0a1. Irgendwann 0 gegen Zaj, a gegen 0d1, 1 gegen ZaA und so weiter.. (Denk mal drüber nach... Bereits ersetzte Zeichen werden mit dieser Methode bei der nächsten Anweisung erneut geprüft und gegen neue Zeichen ersetzt)

    Ich glaube ja schon, dass das ganze dann schön verschlüsselt ist, allerdings wird es das dann wohl auch bleiben, sofern ich net was übersehen habe.


    //Edit 2
    Meine Lösung sähe etwa so aus:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Original As String
    3. Dim Encrypted As String
    4. Dim CurrentChar As Char
    5. Dim CryptedPart As String
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Original = TextBox1.Text
    10. Encrypted = ""
    11. For i As Integer = 0 To Original.Length - 1
    12. CurrentChar = Original.Substring(i, 1)
    13. Select Case CurrentChar
    14. Case "A"
    15. CryptedPart = "0a1"
    16. Case "B"
    17. CryptedPart = "0a2"
    18. Case "C"
    19. CryptedPart = "0a3"
    20. Case "D"
    21. CryptedPart = "0a4"
    22. End Select
    24. Encrypted = Encrypted & CryptedPart
    26. Next
    27. TextBox2.Text = Encrypted
    29. End Sub
    31. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    32. 'Rufe Form2 aus (Entschlüsseln)
    33. Form2.ShowDialog()
    35. End Sub
    36. End Class


    Und der Decrypter folgt hier:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim Original2 As String
    4. Dim Encrypted2 As String
    5. Dim CurrentChar2 As String
    6. Dim CryptedPart2 As String
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Original2 = TextBox1.Text
    11. Encrypted2 = ""
    12. For i As Integer = 0 To Original2.Length - 1 Step 3
    13. CurrentChar2 = Original2.Substring(i, 3)
    14. Select Case CurrentChar2
    15. Case "0a1"
    16. CryptedPart2 = "A"
    17. Case "0a2"
    18. CryptedPart2 = "B"
    19. Case "0a3"
    20. CryptedPart2 = "C"
    21. Case "0a4"
    22. CryptedPart2 = "D"
    23. End Select
    25. Encrypted2 = Encrypted2 & CryptedPart2
    27. Next
    28. TextBox2.Text = Encrypted2
    30. End Sub
    32. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    33. TextBox1.Text = Form1.TextBox2.Text
    35. End Sub
    36. End Class


    Sry für die vielen Edits^^ Aber is ja ATM keiner im Thread ausser mir

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Unwesen“ ()

Facebook
Telefonspende