Russische Zeichen und Umlaute Anzeigen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Kevin B..

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. '----------------------
    3. Dim Staete() As Byte = wc.UploadValues(URL, "POST", nv)
    4. Dim Staetestring As String = System.Text.Encoding.Default.GetString(Staete)
    5. Dim Städte_s As String
    6. Dim Städte_a As Array
    7. Städte_s = Staetestring
    8. '-------------------------
    9. Dim m As Match
    10. m = Regex.Match(Städte_s, "&#([0-9]{2,5});", RegexOptions.IgnoreCase Or RegexOptions.Singleline _
    11. Or RegexOptions.Multiline)
    12. While m.Success
    13. Städte_s = Städte_s.Replace(m.Value, ChrW(m.Groups(1).Value))
    14. m = m.NextMatch()
    15. End While
    16. '-------------------------
    17. Städte_a = Split(Städte_s, ";")
    18. For Städte_i = 0 To UBound(Städte_a) - 1
    19. Von_i.Items.Add(Städte_a(Städte_i))
    20. Nach_i.Items.Add(Städte_a(Städte_i))
    21. Next Städte_i