VB.NET-Quellcode
- Imports System.Text.RegularExpressions
- '----------------------
- Dim Staete() As Byte = wc.UploadValues(URL, "POST", nv)
- Dim Staetestring As String = System.Text.Encoding.Default.GetString(Staete)
- Dim Städte_s As String
- Dim Städte_a As Array
- Städte_s = Staetestring
- '-------------------------
- Dim m As Match
- m = Regex.Match(Städte_s, "&#([0-9]{2,5});", RegexOptions.IgnoreCase Or RegexOptions.Singleline _
- Or RegexOptions.Multiline)
- While m.Success
- Städte_s = Städte_s.Replace(m.Value, ChrW(m.Groups(1).Value))
- m = m.NextMatch()
- End While
- '-------------------------
- Städte_a = Split(Städte_s, ";")
- For Städte_i = 0 To UBound(Städte_a) - 1
- Von_i.Items.Add(Städte_a(Städte_i))
- Nach_i.Items.Add(Städte_a(Städte_i))
- Next Städte_i