Dim st1翻譯社 st2 As String
Dim start1 As Short = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://www.google.com.tw/#q=visual+basic")
End Sub
(這個程式需要一個TextBox、WebBrowser)
ˋ
一般網頁內容都邑以HTML碼來出現,這可以藉由按下F12按鍵,找到該網頁的HTML碼。
這些Tagname必然是大寫,也是擷取或控制網頁的主要資料翻譯
這些標籤名稱可以利用程式找出來。
End Sub
這是google搜索visual basic 的頁面,按下F12後,可以看到它的HTML碼(功課系統分歧,出現的畫面會有差別)。
以VB來擷取網頁資料前,必須先領會網頁的HTML碼。
若是想把網頁的一些文字或圖片擷取下來,除在網頁上選取後複製下來,也可以哄騙VB來履行這個工作翻譯假如設計得當,可以節約很多繁複的進程,也更能靈活的運用資料。
執行結果以下
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
For Each a2 As HtmlElement In WebBrowser1.Document.All
st2 &= a2.TagName & vbNewLine
Next
TextBox1.Text = st2
這些密密層層的內容,天成翻譯公司們需要注意它的標籤(Tagname),也就是<h3、<div....這些內容。
以下內文出自: https://blog.xuite.net/k0033a/vb2008/200829950-%E4%BB%A5VB%E6%93%B7%E5%8F%96%E7%B6%B2%E9%A0%81%E8%B3有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931