Problem mit and

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Problem mit and

    Hallo ich schon wieder,
    ich wollte einen leichten codierer für meinen freund machen weil sein bruder imer gespeicherte nachrichten ließt machen ;)

    Nur hatte ich das Problem das wenn ich es so gemacht hab:

    VB.NET-Quellcode

    1. Dim umwandeln
    3. Sub
    4. umwandeln = RichTextBox1.Text
    5. If TextBox1.Text = "1" Then
    6. umwandeln = umwandeln.replace("a", "e")
    7. umwandeln = umwandeln.replace("e", "z")
    8. umwandeln = umwandeln.replace("z", "d")
    9. End Sub


    hier war das Problem das nun alle "a", "e" und "z" zu "d" wurden
    also hab ich versucht das Problem mit and zu lösen

    VB.NET-Quellcode

    1. Dim umwandeln
    3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    4. umwandeln = RichTextBox1.Text
    5. If TextBox1.Text = "1" Then
    6. umwandeln = umwandeln.Replace("a", "e") And umwandeln = umwandeln.Replace("b", "o") And umwandeln = umwandeln.Replace("c", "a") And umwandeln = umwandeln.Replace("d", "b") And umwandeln = umwandeln.Replace("e", "z") And umwandeln = umwandeln.Replace("f", "l") And umwandeln = umwandeln.Replace("g", "p") And umwandeln = umwandeln.Replace("h", "q") And umwandeln = umwandeln.Replace("i", "m") And umwandeln = umwandeln.Replace("j", "s") And umwandeln = umwandeln.Replace("k", "t") And umwandeln = umwandeln.Replace("l", "y") And umwandeln = umwandeln.Replace("m", "r") And umwandeln = umwandeln.Replace("n", "v") And umwandeln = umwandeln.Replace("o", "n") And umwandeln = umwandeln.Replace("p", "w") And umwandeln = umwandeln.Replace("q", "u") And umwandeln = umwandeln.Replace("r", "x") And umwandeln = umwandeln.Replace("s", "g") And umwandeln = umwandeln.Replace("t", "i") And umwandeln = umwandeln.Replace("u", "h") And umwandeln = umwandeln.Replace("v", "f") And umwandeln = umwandeln.Replace("w", "c") And umwandeln = umwandeln.Replace("x", "j") And umwandeln = umwandeln.Replace("y", "k") And umwandeln = umwandeln.Replace("z", "d")
    7. Button1.Enabled = True
    8. Label5.Visible = False
    9. Else
    10. Label5.Visible = True
    11. End If
    12. RichTextBox1.Text = umwandeln
    13. End Sub


    Jetzt bekomme ich immer die Fehler meldung:
    Ungültige Konvertierung von der Zeichenfolge in Typ Boolean.

    Vorher kam das nicht

    ich hab sehr wahrscheinlich nur ein Brett vorm Kopf aber den Fehler seh ich net...

    MfG Nixodas

    AND hat da nix zu suchen... Du musst lediglich die Reihenfolge beachten:

    Statt
    umwandeln = umwandeln.replace("a", "e")
    umwandeln = umwandeln.replace("e", "z")
    umwandeln = umwandeln.replace("z", "d")
    solltest du
    umwandeln = umwandeln.replace("z", "d")
    umwandeln = umwandeln.replace("e", "z")
    umwandeln = umwandeln.replace("a", "e")

    verwenden.

    Im 1. Teil überschneiden sich die Buchstaben. Beim 2. Teil eben nicht.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Nixodas schrieb:

    weil das is ja schon bissle aufwendig

    Armer Mensch. Du hast da voll mein Mitleid ...

    Die meisten "guten" Wege erfordern weniger Aufwand. NACHDEM man natürlich mit viel Schweiß und Mühe programmieren gelernt hat.

    Jedenfalls kannst du 2 oder mehr Anweisungen (!) nicht per "and" verknüpfen. Allerdings funzt der von Milaim gezeigte Weg natürlich so auch nicht.
    a = "abc"
    a = a.replace("a","c") -> cbc (Jetzt is schon Information verlorengegangen!)
    a = a.replace("c","d") -> dbd

    Moment: Das was ich gezeigt habe funktioniert schon. Okay, echt billig muss ich zugeben, aber ich wollte mich an seinem Code halten.

    Information geht auf jedenfall hier nicht verloren, wenn man keine Buchstaben überschneidet.

    Beispiel:

    VB.NET-Quellcode

    1. Dim umwandeln As String = "zeezeeaa"
    3. 'was auch immer er machen will
    4. umwandeln = umwandeln.replace("z", "d")
    5. umwandeln = umwandeln.replace("e", "z")
    6. umwandeln = umwandeln.Replace("a", "e")
    8. 'und wieder zurück
    9. umwandeln = umwandeln.Replace("e", "a")
    10. umwandeln = umwandeln.Replace("z", "e")
    11. umwandeln = umwandeln.Replace("d", "z")
    13. MessageBox.Show(umwandeln) 'ausgabe ist zeezeeaa
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    milaim schrieb:

    aber ich wollte mich an seinem Code halten.

    Sein Code (die megalange Zeile) versucht die Buchstaben von a-z auf die Buchstaben von a-z abzubilden. Dazu ersetzt er NACHEINANDER alle bucstaben im SELBEN String mit einem anderen. Und das geht weder bei dir, noch bei ihm. Bei dir geht es nur weil du eine TEILMENGE von a-z auf eine TEILMENGE von a-z abbildest und beide Teilmengen haben ein leere Schnittmenge. Das ist aber nicht das was er will.

    dieser Code zb geht:

    VB.NET-Quellcode

    1. Public Class BuchstabenTauscher
    3. Private Const Quelle As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    4. Private Const Ziel As String = "XWFOJITGKSRUMNELAPVYHCQBDZ"
    6. Public Shared Function Encode(ByVal s As String) As String
    8. Return Convert(s, Quelle, Ziel)
    10. End Function
    12. Public Shared Function Decode(ByVal s As String) As String
    14. Return Convert(s, Ziel, Quelle)
    16. End Function
    18. Private Shared Function Convert(ByVal s As String, ByVal q As String, ByVal z As String) As String
    20. Dim sb As New System.Text.StringBuilder
    21. Dim i As Integer
    23. For Each c As String In s
    24. If q.Contains(c) Then
    25. i = q.IndexOf(c)
    26. sb.Append(z(i))
    27. End If
    28. Next
    30. Return sb.ToString
    32. End Function
    34. End Class

Facebook
Telefonspende