ÈçºÎͨ¹ý VB »ñµÃ google ·ÒëµÄ½á¹û£¿
´ÓÍøÉÏÕÒÁËÒ»¸ö°æ±¾£¬Ô´´úÂëÈçÏ£º
VB code:
Option Explicit
'Global DefLang As String
Const WebURL As String = "http://translate.google.com/translate_t"
Const SearchString As String = "result_box dir="
Const EndString As String = "</"
Public Function Translation(InputText As String, LangPair As String) As String
Dim TMPString As String
Dim StartPos As Long
Dim DebString As String
Dim InitString As String
If IsConnected = False Then
MsgBox "You don't have Internet connection!", vbInformation, "Translation"
Translation = ""
Exit Function
End If
'InputText
TMPString = GetHTMLfromURL(WebURL & "?langpair=" & LangPair & "&text=" & InputText)
InitString = SearchString & Chr(34) & "ltr" & Chr(34) & ">"
StartPos = InStr(1, TMPString, InitString, vbTextCompare)
If StartPos = 0 Then
Translation = ""
Exit Function
End If
DebString = Right(TMPString, Len(TMPString) - (StartPos + Len(InitString) - 1))
StartPos = InStr(1, DebString, EndString, vbTextCompare)
Translation = ReplaceHTMLString(Left(DebString, StartPos - 1))
End Function
Public Function ReplaceHT
Ïà¹ØÎÊ´ð£º
Òª²É¼¯µÄÒ³Ãæ£ºhttp://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1
ÎÒÏë°ÑËÑË÷³öÀ´µÄQQ¶¼²É¼¯³öÀ´£¬¸ÃÔõô×ö¡£¿´ÁËÏ´úÂëºÃÏñ²»ÊÇÆÕͨµÄÄÇÖÖ£¬ÍøÖ·Àï°Ñ1¸Ä³É2ûÓà ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Çë¿´¿´ÒÔϵ¼³öÎı¾ÎļþµÄÄ£¿éº¯Êý£¬ÎÒÓ¦¸ÃÔõôÔÚ°´Å¥µã»÷ʼþÖÐʵÏÖµ÷Óá£
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String) ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......