完成了60%了，休息一下，贴3张图~~~~~~~~~~~~~~~~~~~~~~


我想知道 那个温度 怎的得到的？

怎么读取？

@771911064
Private Function Rss2()
On Error Resume Next
Dim tempStr As String
Dim np1() As String
Dim np2() As String
Dim np3() As String
Dim tempstr2, tempstr3, tempstr4, tempstr5 As String Dim request As WebRequest = WebRequest.Create(l_tlist_Rss(i3).tag)
request.Timeout = 5000
Dim response As WebResponse = request.GetResponse()
Dim stream As IO.Stream = response.GetResponseStream()
Dim sr As StreamReader = New StreamReader(stream, Encoding.GetEncoding("utf-8"))
tempStr = sr.ReadToEnd
request.Abort()
'------------分离编码类型-------------
np1 = Split(tempStr, "encoding=""")
Dim tempTTT As String = np1(1)
np1 = Split(tempTTT, """")
'------------如果编码不对则重新读取解码------------
If np1(0).ToLower() <> "utf-8" Then
Dim request2 As WebRequest = WebRequest.Create(l_tlist_Rss(i3).tag)
request2.Timeout = 5000
Dim response2 As WebResponse = request2.GetResponse()
Dim stream2 As IO.Stream = response2.GetResponseStream()
Dim sr2 As StreamReader = New StreamReader(stream2, Encoding.GetEncoding(np1(0)))
tempStr = sr2.ReadToEnd
request2.Abort()
End If np1 = Split(tempStr, "<item") For s = 1 To UBound(np1) - 1
'---标题----
np2 = Split(np1(s), "<title>")
np3 = Split(np2(1), "</title>")
tempstr2 = np3(0)
'---地址----
np2 = Split(np1(s), "<link>")
np3 = Split(np2(1), "</link>")
tempstr3 = np3(0)
'----详细-----
np2 = Split(np1(s), "<description>")
np3 = Split(np2(1), "</description>")
tempstr4 = np3(0) If tempstr5 = "" Then
tempstr5 = tempstr2 & "||" & tempstr3 & "||" & tempstr4
Else
tempstr5 = tempstr5 & "|s|" & tempstr2 & "||" & tempstr3 & "||" & tempstr4
End If
Next Rsstc = tempstr5 Me.Invoke(New VoidDelegate(AddressOf RSSadd))
End Function