Codepage Probleme

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Codepage Probleme

    Moin Moin zusammen,

    ich stehe aktuell mal wieder vor dem Problem der deutschen Sprache ;)
    Aktuell bin ich etwas am verzweifeln, denn egal wie ich es mache, es ist immer das falsche Ergebnis.

    Hier mal meine Funktion:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function load_gdt() As String
    2. If File.Exists(Path.Combine(My.Settings.gdt_pfad, My.Settings.gdt_datei)) Then
    3. System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
    5. Dim objReader As New StreamReader(Path.Combine(My.Settings.gdt_pfad, My.Settings.gdt_datei), System.Text.UTF8Encoding.Default)
    6. 'Dim objReader As New StreamReader(Path.Combine(My.Settings.gdt_pfad, My.Settings.gdt_datei), Encoding.GetEncoding("CP852"))
    7. 'Dim objReader As New StreamReader(Path.Combine(My.Settings.gdt_pfad, My.Settings.gdt_datei), System.Text.Encoding.GetEncoding(1252))
    9. Dim sLine As String = ""
    10. Dim arrText As New ArrayList()
    11. Do
    12. sLine = objReader.ReadLine()
    13. If Not sLine Is Nothing Then
    14. arrText.Add(sLine)
    15. End If
    16. Loop Until sLine Is Nothing
    17. objReader.Close()
    19. For Each sLine In arrText
    20. Try
    21. 'PatID
    22. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3000") Then
    23. tb_patid.Text = sLine.Remove(0, 7)
    24. End If
    26. 'Vorname
    27. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3102") Then
    28. tb_vorname.Text = sLine.Remove(0, 7)
    29. End If
    30. 'Nachname
    31. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3101") Then
    32. tb_nachname.Text = sLine.Remove(0, 7)
    33. End If
    34. 'Geburtsdatum
    35. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3103") Then
    36. tb_gebdatum.Text = sLine.Remove(0, 7)
    37. End If
    38. 'PLZ / Ort
    39. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3106") Then
    40. Dim plz As String = sLine.Remove(0, 7)
    41. Dim ort As String = sLine.Remove(0, 13)
    42. plz = plz.Remove(5)
    43. tb_plz.Text = plz
    44. tb_ort.Text = ort
    45. End If
    46. 'strasse
    47. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3107") Then
    48. tb_strasse.Text = sLine.Remove(0, 7)
    49. End If
    51. 'Telefon
    52. Dim vorwahlen4() As String = {"0160", "0162", "0163", "0170", "0171", "0172", "0173", "0174", "0175", "0176", "0177", "0178", "0179"}
    53. Dim vorwahlen5() As String = {"01511", "01512", "01514", "01515", "01516", "01517", "01520", "01521", "01523", "01525", "01529", "01570", "01573", "01575", "01577", "01578", "01579", "01590"}
    54. Dim vorwahlen6() As String = {"015566", "015630", "015678", "015888"}
    56. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3150") Then
    58. If vorwahlen4.Any(Function(b) sLine.Remove(0, 7).StartsWith(b)) Then
    59. tb_mobil.Text = sLine.Remove(0, 7).Replace(" ", "").Replace("/", "").Replace("-", "")
    60. Else
    61. tb_telefon.Text = sLine.Remove(0, 7).Replace(" ", "").Replace("/", "").Replace("-", "")
    62. End If
    64. If vorwahlen5.Any(Function(b) sLine.Remove(0, 7).StartsWith(b)) Then
    65. tb_mobil.Text = sLine.Remove(0, 7).Replace(" ", "").Replace("/", "").Replace("-", "")
    66. Else
    67. tb_telefon.Text = sLine.Remove(0, 7).Replace(" ", "").Replace("/", "").Replace("-", "")
    68. End If
    70. If vorwahlen6.Any(Function(b) sLine.Remove(0, 7).StartsWith(b)) Then
    71. tb_mobil.Text = sLine.Remove(0, 7).Replace(" ", "").Replace("/", "").Replace("-", "")
    72. Else
    73. tb_telefon.Text = sLine.Remove(0, 7).Replace(" ", "").Replace("/", "").Replace("-", "")
    74. End If
    75. End If
    77. 'eMail
    78. If sLine.Remove(0, 3).Remove(4, sLine.Length - 7).Contains("3456") Then
    79. tb_email.Text = sLine.Remove(0, 7)
    80. End If
    82. Catch ex As Exception
    84. End Try
    85. Next
    87. If My.Settings.gdt_autodel = True Then
    88. Try
    89. File.Delete(Path.Combine(My.Settings.gdt_pfad, My.Settings.gdt_datei))
    90. Catch
    91. MsgBox("Kann die GDT-Datei nicht löschen!" & Path.Combine(My.Settings.gdt_pfad, My.Settings.gdt_datei))
    92. End Try
    93. End If
    94. Else
    95. lbl_gdt_not_found.Visible = True
    96. End If
    97. End Function


    Folgendes Szenario:
    Ich möchte 2 verschiedene Schnittstellen abfangen, grundsätzlich sollten beide die gleiche "Sprache" sprechen, tun sie leider nicht.

    Anbei mal 2 Screenshots mit der Encode Analyse


    Laut Notepad++ ist die Datei die funktioniert in UTF-8, die die nicht geht soll angeblich ANSI sein.
    Im normalen "Editor" sind beide Dateien ANSI und laut den Screenshots sind beide Dateien UTF-8

    Kann mir hier vielleicht jemand bei helfen?

    Grüße SaMsOn
    Nein! Doch! OHH!

    Und was kommt raus, wenn Du beide Dateien entsprechend lädst?

    VB.NET-Quellcode

    1. Dim Kompletttext1 = IO.File.ReadAllText(PfadZuEinerDatei, System.Text.Encoding.Default) '= ANSI
    2. Dim Kompletttext2 = IO.File.ReadAllText(PfadZuEinerDatei, System.Text.Encoding.UTF8) '= UTF8


    ##########

    Habe zwar von Codeproject das hier abgekupfert

    VB.NET-Quellcode

    1. Private Function GetEncodingOf(FilePath As String) As System.Text.Encoding
    2. Using StreamReader As New IO.StreamReader(FilePath)
    3. If StreamReader.Peek() = -1 Then Throw New ArgumentException($"Die Datei {FilePath} scheint leer zu sein, ein Encoding kann daher (so) nicht ermittelt werden.")
    4. StreamReader.Read()
    5. Return StreamReader.CurrentEncoding
    6. End Using
    7. End Function
    musste aber feststellen, dass ich mit der jetzigen Win10-Version weder mit notepad noch notepad++ ANSI-Dateien erstellen kann. Auf stackoverflow gibt es zwar einen Hinweis, die entsprechende Windows-Einstellung ist bei mir jedoch nicht aktiv. schon auch eine Datei mit passendem Inhalt erstellen muss, damit ich das als ANSI speichern kann :S
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    @VaporiZed
    Danke für den Tipp. Mein Problem ist, das ich nicht weiss welche Software, welches Dateiformat liefert.
    Kurzum. Die "export.gdt" wird von einem Arzt Informations System (AIS) ausgegeben.
    GDT sollte eigentlich ein Standard sein, ist es aber nicht.
    Ich hab 2 Verschiedene AIS auf meinem PC installiert, mit dem einen gehts, mit dem anderen nicht.
    Mein "Konnektor" soll jedoch "Multi-Kompatibel" sein...

    Und nun steh ich da... :D
    Nein! Doch! OHH!

    Ich hab jetzt keine gute Lösung parat, aber vielleicht reicht es schon, wenn Du prüfst, ob der Text eines von den Zeichen äöüÄÖÜß enthält. Dann wär das verwendete Import-Encoding vermutlich richtig.
    Oder Du kopierst Dir dieses Sonder<?> und schaust, ob das in den importierten Texten enthalten ist. Dann ist das Encoding definitiv falsch.
    Aber ich weiß nicht, ob alle <?> da identisch sind. Musst Du prüfen.
    Kannst Du Testdateien hochladen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    also kann man sagen, das Problem sind TextDateien, von denen das Encoding nicht bekannt ist?
    Da könnte man in zwei Schritten vorgehen:
    Vorzugsweise wertet man das BOM aus.
    Der von VPZ verlinkte CodeProject-Code tut das - VPZs Übertragung ist übrigens deutlich fehlerhaltiger als die CP-Vorlage.
    Wenn kein BOM vorhanden ist, liefert der CodeProject-Code Encoding.DEfault (=ANSI).
    Das ist meistens richtig, aber nicht immer.
    Ist kein BOM vorhanden muss man heuristisch vorgehen - also raten.

    Hier ein CP-Artikel, der scheinbar die "Encoding-Heuristik-Engine" des Internet-Explorers verwendet: codeproject.com/Articles/17201…-for-In-and-Outgoing-Text
    Ich hab auf CP auch mal einen Artikel gefunden, der eine Heuristik als Source veröfflicht.
    find ich grad nicht wieder, war auch sehr aufwändig.

Facebook
Telefonspende