小弟最近接觸一個程式Samurize,裡面有些內容需要vb相關的知識
所以來請教個位大大,請大大幫忙解惑
我想重某某網頁擷取其部分內容,並輸出其結果
但是發現疑問.. 關於 " 的問題
如果我要擷取的資料,中間有"字元.我該怎麼辦?
------下面是我所寫的..無法運作...-----


Const HTTP_HOME = "http://mmc.cwb.gov.tw/alldataxr.asp?stidname=Linshanbi#alldataxr.asp"

Private Function fnGetText(sData)
Set objRS = CreateObject("ADODB.Recordset")
    objRS.Fields.Append "txt", 200, 500000, &H80
    objRS.Open
    objRS.AddNew
    objRS.Fields("txt").AppendChunk sData
    fnGetText = objRS("txt").Value
    objRS.Close
End Function

Private Function fnGetHeader(sStartStr, sEndStr, sInStr)
sTmpStr = InStr(sInStr, sStartStr) + Len(sStartStr)
    sTmpStr2 = InStr(sTmpStr, sInStr, sEndStr)
    If sTmpStr2 > 0 Then
        fnGetHeader = Mid(sInStr, sTmpStr, sTmpStr2 - sTmpStr )
    Else
        fnGetHeader = ""
    End If
End Function
Function fnGetQuote
Dim Http
    Set Http = CreateObject("Msxml2.ServerXMLHTTP")
    Http.Open "GET",HTTP_HOME,False
    Http.Send
    sInStr = Http.responseBody
    Htmldata = fnGetText(sInStr)
    Headline1 = fnGetHeader("<td class="word">氣溫","</td>",HtmlData)
    fnGetQuote = Headline1
End Function

創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • 心冷熱情熄
  • Headline1 = fnGetHeader("<td class="word">氣溫","</td>",HtmlData)
    改成
    Headline1 = fnGetHeader("<td class=""word"">氣溫","</td>",HtmlData)
    VB線上說明有說到 "" 會當成 "
    也可以這樣改
    Headline1 = fnGetHeader("<td class=" & Chr(?) & "word" & Chr(?) & ">氣溫","</td>",HtmlData)
    自己查一下 " 的 ASCII 後,取代 ?