Es bilden sich immer wenn ich auf Speichern drücke und neu Lade irgendwelche Sonderzeichen (’ÂÂÂÂ)

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von nafets.

    Es bilden sich immer wenn ich auf Speichern drücke und neu Lade irgendwelche Sonderzeichen (’ÂÂÂÂ)

    Ich bin noch ein totaler anfänger was visual basic angeht und habe ein Vokabeltrainer programmiert. So alles schön ung gut aber ich habe heute mal ein paar Vokabeln reingeschrieben abgespeichert und das Programm geschlossen. Als ich nun das Programm geöffnet habe und auf den Lade button gedrückt habe sind in der Tabelle irgendwelche Sonderzeichen entstanden. Immer wenn ich Speicher und wieder Lade werden es immer mehr dieser Zeichen. Könnt ihr mir bitte helfen es hat ja schon ma lalles funktioniert.


    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Function ListViewSave(ByRef LstVw As ListView, ByVal Path As String)
    3. Dim ListViewContent As String = ""
    4. For I As Integer = 0 To LstVw.Items.Count - 1
    5. ListViewContent += LstVw.Items.Item(I).Text & "##"
    6. For Int As Integer = 0 To LstVw.Items.Item(I).SubItems().Count - 1
    7. ListViewContent += LstVw.Items.Item(I).SubItems(Int).Text & "##"
    8. Next
    9. ListViewContent += vbNewLine
    10. Next
    11. If System.IO.File.Exists(Path) Then
    12. System.IO.File.Delete(Path)
    13. End If
    14. System.IO.File.AppendAllText(Path, ListViewContent)
    15. End Function
    17. Public Function ListViewLoad(ByRef LstVw As ListView, ByVal Path As String)
    18. Dim sLine As String
    19. Dim sItem() As String
    20. Dim ItemX As ListViewItem
    21. Dim IntCols As Integer
    22. IntCols = LstVw.Columns.Count
    23. FileOpen(1, Path, OpenMode.Input)
    24. With LstVw.Items
    25. While Not EOF(1)
    26. sLine = LineInput(1)
    27. sItem = Split(sLine, "##")
    28. ItemX = .Add(sItem(0), sItem(1))
    29. For I = 2 To IntCols
    30. ItemX.SubItems.Add(sItem(I))
    31. Next I
    32. End While
    33. End With
    34. FileClose(1)
    35. End Function
    37. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    38. With ListView1.Items.Add(InputBox("Wort eingeben"))
    39. .SubItems.Add(InputBox("Lösung"))
    40. End With
    41. End Sub
    43. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    44. For Each item As ListViewItem In ListView1.SelectedItems
    45. item.Remove()
    46. Next
    47. End Sub
    49. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    51. For Each item As ListViewItem In ListView1.Items
    52. Dim loesung As String = InputBox(item.Text)
    53. If loesung = item.SubItems(1).Text Then
    54. MsgBox("Richtig", MsgBoxStyle.Information)
    55. Else
    56. MsgBox("Falsch", MsgBoxStyle.Critical)
    58. End If
    60. Next
    61. End Sub
    63. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    65. ListViewSave(ListView1, "H:\voc1.txt")
    67. End Sub
    69. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    70. ListViewLoad(ListView1, "H:\voc1.txt")
    72. End Sub
    74. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    75. Me.Close()
    76. End Sub
    77. End Class


    *Topic verschoben, das ist eindeutig VB.NET und kein Excel-VBA!*
    Bilder

    • Screenshot_1.png

      19,66 kB, 573×463, 324 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Visual Studio - Empfohlene Einstellungen
    vb-paradise.de/allgemeines/tip…euen-vb-net-alternativen/
    Wenn Du diese beiden Posts mal überfliegst und Deinen Code dementsprechend überarbeitest, und ich Dir noch sage, dass Du ein passendes Encoding verwenden solltest (ich empfehle UTF8), dann solltest Du das selber lösen können.

    Wenn Du nicht selbst drauf kommst (bitte trotzdem einfach mal probieren), dann kannst Du gerne nochmal nachfragen.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Um gegenüber Nikos Post noch etwas konkreter zu werden: Nimm anstatt den alten Methoden lieber einen StreamReader. Dieser lässt sich ziemlich ähnlich wie die alten Methoden verwenden, ist jedoch in der Lage, mit den meisten Umständen (wie dem richtigen Encoden, was hier das Problem zu sein scheint), umzugehen. Eine Einführung zum StreamReader findest du hier: dotnetperls.com/streamreader-vbnet (Beispiel 2 entspricht ungefähr dem, was du aktuell machst).

    PS: Für die Zukunft: Fehler am Encoding wie hier kannst du oft daran erkennen, dass Umlaute oder Sonderzeichen (äöüß...) falsch dargestellt werden. So sind bei dir nur Worte mit diesen Zeichen betroffen (Öffentlichkeit, täglich, ...)