none
VB2008 讀取數字 RRS feed

  • 問題

  • 原始碼:

    <p class="chart">今日: <em>5026</em><span class="pipe">|</span>昨日: 8781<span class="pipe">|</span>帖子: <em>11811844</em><span class="pipe">|</span>會員: <em>2433775</em><span class="pipe">|</span>歡迎新會員: <em><a href="http://catcatbox.com/home.php?mod=space&amp;username=itgz00130" target="_blank" class="xi2">itgz00130</a></em></p>

    我想問一問,讀取會員:2433775 <- 這一個數字

    應該怎樣?

     TextBox1.Text = WebBrowser1.Document.Body.All("span").InnerText

    ??

     

     

    2012年5月25日 上午 08:51

解答

  •  
           Dim getReader As New System.IO.StreamReader(Me.WebBrowser1.DocumentStream, System.Text.Encoding.UTF8)

    • 已標示為解答 手指 2012年5月25日 下午 01:42
    2012年5月25日 下午 01:09

所有回覆

  • 您好,

    使用Instr

    Dim TestPos As Integer
    ' A textual comparison starting at position 4. Returns 6.
    TestPos = InStr(1, 要被找的字串, "</span>會員: <em>", CompareMethod.Text)


    以上說明若有錯誤請指教,謝謝。
    亂馬客blog: http://www.dotblogs.com.tw/rainmaker/

    2012年5月25日 上午 09:00
  • 我的程式碼,要怎樣 測試?

    直接貼上,好像不行

    其實,我不太明白,可以 說一說嗎?

    2012年5月25日 上午 09:10
  • Visual Basic 2005 程式設計與案例剖析

    與其不停的問問題,人家回答你又聽不懂,你不如買本書看看這本書有一個擷取 股市資料的範例

    2012年5月25日 上午 11:35
  • 好的,還有一個問題

    Public Class Form2

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            txtUrl.Text = "http://tw.yahoo.com/"  ' 預設網址
        End Sub

        Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
            If txtUrl.Text <> String.Empty Then
                Me.WebBrowser1.Navigate(txtUrl.Text)  ' WebBrowser1 網頁載入
            End If
        End Sub

        Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            ' 使用 WebBrowser.DocumentStream 取得網頁內容
            ' 使用 StreamReader 讀入資料流,設定編碼為 Encoding.Default
            Dim getReader As New System.IO.StreamReader(Me.WebBrowser1.DocumentStream, System.Text.Encoding.Default)
            Dim gethtml = getReader.ReadToEnd()
            Me.txtHTML.Text = gethtml
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        End Sub
    End Class

    變了亂碼??

    2012年5月25日 下午 12:03
  •  
           Dim getReader As New System.IO.StreamReader(Me.WebBrowser1.DocumentStream, System.Text.Encoding.UTF8)

    • 已標示為解答 手指 2012年5月25日 下午 01:42
    2012年5月25日 下午 01:09
  • MSDN 論壇好好喔, 每次都有人讓你可以直接複製貼上, 所以你上癮了喔
    2012年5月25日 下午 01:57
  • 我是覺得如果問題是抓股票指數,那還好。

    抓會員編號,我會直接定位成惡意程式。

    身為開發者,對於惡意程式,不發言、不協助是基本道德。

    因為當水準到了那個時候,就算不會也知道該用甚麼關鍵字去找,也知道該怎樣發問才不會誤導小朋友,但是水準不到,還沒培養出開發者基本道德及法律素養之前,不知道是比較好的,也不會害人害己。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2012年5月25日 下午 02:14
  •         '123.txt為原始字串
            Dim s As String
            Dim k As Integer
            FileOpen(1, "c:\123.txt", OpenMode.Input)
            s = LineInput(1)
            k = InStr(s, "會員:")
            TextBox1.Text = Mid(s, k + 8, 7)
    • 已提議為解答 franken lu 2012年7月11日 上午 12:40
    2012年7月9日 上午 02:22