HTML Webrequest Response nur als Fragezeichen dargestellt

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von enIking1998.

    HTML Webrequest Response nur als Fragezeichen dargestellt

    EDIT://
    Folgendes habe ich jetzt nun schon ausprobiert :
    Encoding.UTF8
    HTMLDecode
    ContentType ändern

    - alles ohne erfolg


    EDIT:// 24.05.2013
    Hab die Seite hinzugefügt und meinen ganzen Source.
    ------------------------------------
    Hey wieder ein kleines Problem oder villeicht auch ein größeres von mit :
    Ich hole mir per HttpWebrequest einen Quellcode von einer Website(KLICK) den Zerlege ich dann mit RegEx um die Titel und Links des Forums(vom Link) zu bekommen, in meinem "Response"-String sind jetzt aber alle Sonderzeichen und Umlaute als Ein Fragezeichen-Symbol dargestellt:
    EDIT:// Der heruntergeladene Source ist bereits falsch kodiert ich habe mir den Text mal speichern lassen und hatte dann schon direkt diese komischen Zeichen
    [Es geht hauptsächlich um die Funktion RefreshNews]
    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports System.Net
    3. Imports System.Text
    4. Imports System
    5. Imports System.Web
    6. Imports System.IO
    9. Public Class Form1
    10. Dim Threads(0 To 100) As String
    11. Dim Index As Integer = 0
    12. Private Sub GhostTheme1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostTheme1.Click
    14. End Sub
    16. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    17. For Each c As Control In GhostTabControl1.Controls
    18. MsgBox(c.Name)
    19. Next
    20. End Sub
    22. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    23. TabPage1.Controls.Clear()
    24. End Sub
    28. Sub RefreshNews(ByVal Target As String)
    30. Dim Request As HttpWebRequest = CType(WebRequest.Create(Target), HttpWebRequest)
    31. Request.Method = "POST"
    32. Request.ContentType = "text/html; charset=ISO-8859-1"
    33. Dim Post As String = ""
    34. Encoding.GetEncoding("ISO-8859-1")
    35. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    36. Request.ContentLength = byteArray.Length
    37. Dim DataStream As Stream = Request.GetRequestStream()
    38. DataStream.Write(byteArray, 0, byteArray.Length)
    39. DataStream.Close()
    41. Dim Response As HttpWebResponse = Request.GetResponse()
    42. DataStream = Response.GetResponseStream()
    43. Dim reader As New StreamReader(DataStream)
    44. Dim ServerResponse As String = reader.ReadToEnd()
    45. reader.Close()
    46. DataStream.Close()
    47. Response.Close()
    48. Dim NewsHTML As String = ServerResponse
    49. Dim start As String = "<!-- show threads -->"
    50. Dim start_int As Integer = NewsHTML.IndexOf("<!-- show threads -->")
    51. Dim end_int As Integer = NewsHTML.IndexOf("<!-- end show threads -->")
    52. Dim Threads As String = NewsHTML.Substring(start_int + start.Length, end_int - start_int)
    53. Threads = Threads.Replace(Environment.NewLine, "")
    55. Dim r As New Regex("<tr>(.*?)</tr>")
    56. Dim div_ex As New Regex("<div>(.*?)</div>")
    57. Dim ac_ex As New Regex("</span>(.*?)</div>")
    58. Dim url_ex_ref As New Regex("</span>(.*?)>(.*?)</a>")
    59. Dim url_ac As New Regex("<a href(.*?)id")
    60. Dim name_ex As New Regex(""">(.*?)</a>")
    61. Dim matches As MatchCollection = r.Matches(Threads)
    62. For Each m As Match In matches
    63. Dim ma As MatchCollection = div_ex.Matches(m.ToString)
    64. For Each maa As Match In ma
    65. Dim ac_ma As MatchCollection = ac_ex.Matches(maa.ToString)
    66. For Each ac_ma_m As Match In ac_ma
    67. Dim url_ref_ma As MatchCollection = url_ex_ref.Matches(ac_ma_m.ToString)
    68. For Each url_ref_ma_m As Match In url_ref_ma
    70. Dim url_ac_ma As MatchCollection = url_ac.Matches(url_ref_ma_m.ToString)
    71. For Each url_ac_ma_m As Match In url_ac_ma
    73. Dim url_ac_ma_m_string As String = url_ac_ma_m.ToString.Replace("<a href=""", "")
    74. url_ac_ma_m_string = url_ac_ma_m_string.Replace(""" id", "")
    78. Dim name_ex_ma As MatchCollection = name_ex.Matches(url_ref_ma_m.ToString)
    79. For Each name_ex_ma_m As Match In name_ex_ma
    80. Dim name_ex_ma_m_string As String = name_ex_ma_m.ToString.Replace(""">", "")
    81. name_ex_ma_m_string = name_ex_ma_m_string.Replace("</a>", "")
    82. MsgBox(url_ac_ma_m_string & ":::" & name_ex_ma_m_string)
    83. AddThread(url_ac_ma_m_string, name_ex_ma_m_string)
    85. Next
    86. Next
    87. Next
    88. Next
    89. Next
    91. Next
    92. End Sub
    94. Sub AddThread(ByVal URL As String, ByVal text As String)
    95. Threads(Index) = URL & "::" & text
    96. Index = Index + 1
    97. End Sub
    98. Sub AddElements()
    99. Dim TotalLocation_X As Integer = 15
    100. Dim TotalLocation_Y As Integer = 10
    101. For i As Integer = 0 To Threads.Length - 1
    102. If Not Threads(i) = "" Then
    104. Dim r As New Regex("(.*?)::")
    106. Dim rm As MatchCollection = r.Matches(Threads(i))
    107. Dim rm1 As MatchCollection = r.Matches(Threads(i))
    108. For Each rm_m As Match In rm
    109. Dim label As New Label
    110. label.Name = "l_" & i
    111. label.ForeColor = Color.White
    112. label.Size = New Size(300, 50)
    113. label.BackColor = Color.Transparent
    114. label.AccessibleDescription = rm_m.ToString.Replace("::", "")
    115. For Each rm_m1 As Match In rm1
    116. label.Text = Threads(i).ToString.Replace(rm_m.ToString, "")
    117. Next
    118. Dim myFont = New Font("BankGothic Lt BT", 16, FontStyle.Regular)
    119. label.Font = myFont
    120. label.Location = New Point(TotalLocation_X, TotalLocation_Y)
    121. TotalLocation_Y = TotalLocation_Y + 20
    122. TabPage1.Controls.Add(label)
    124. Clipboard.SetText(label.Text)
    125. AddHandler label.Click, AddressOf LabelClicked
    126. Next
    127. Else
    128. Exit For
    129. End If
    130. Next
    131. End Sub
    133. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    135. End Sub
    137. Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
    139. End Sub
    141. Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    142. For i As Integer = 0 To Threads.Length - 1
    143. If Not Threads(i) = "" Then
    144. Threads(i) = ""
    145. Else
    146. Exit For
    147. End If
    148. Next
    149. Button1.Enabled = False
    150. Index = 0
    151. RefreshNews(TextBox1.Text)
    152. Button1.Enabled = True
    153. AddElements()
    154. End Sub
    156. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    158. End Sub
    160. Private Sub LabelClicked(ByVal sender As Object, ByVal e As EventArgs)
    161. Process.Start(CType(sender, Label).AccessibleDescription.ToString)
    162. End Sub
    164. End Class


    Screen :


    Ich habe bereits versucht das Encoding zu ändern leider ohne erfolg über Hilfe wäre ich sehr dankbar

    LG Graphic

    Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Graphicscore“ ()

    Versuche es mal mit Encoding.UTF8.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    programmer71 schrieb:

    @Graphicscore

    Da stimmt was mit deinem Encoding nicht! Ist das auf UTF-8?
    Denn du gibst hier ASCII an.

    VB.NET-Quellcode

    1. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)

    Es war auf UTF-8 und hat nicht funktioniert deswegen habe ich es auf ASCII gestellt dies scheint ja aber auch nicht zu funktionieren.