ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦a§}½Ķ¶×¤J»P¶×¥X

[µo°Ý] ¦a§}½Ķ¶×¤J»P¶×¥X

¦]¤u§@»Ý­n¡A­n§â¦a§}¤¤Â½­^¿é¤J½Ķºô§}http://cdict.net/ ©Î¤¤µØ¶l¬F (¦]»Ý¤U©Ô¬G©ñ±ó)
¸ê®Æ¬ù2000¦hµ§¡A¤wª¦¹L¤å¥ÎHYPERLINK("http://cdict.net/?q=" & G2,"address")ªº¤½¦¡¬Ù¤U³vµ§°Å¤U¶K¤Wªº®É¶¡¡A
¦ýÁÙ¬O½Ð±Ð¦U¦ìµ½¤ßªºVBA°ª¤â¡A¯à§_¥i¥HVBA±N¦a§}¶×¤J«á¡A±N¬d¸ßµ²ªG¶×¦^ExcelÄæ¦ì¡H
ÁÂÁÂ:)

¦]¤u§@»Ý­n¡A­n§â¦a§}¤¤Â½­^¿é¤J½Ķºô§}http://cdict.net/ ©Î¤¤µØ¶l¬F (¦]»Ý¤U©Ô¬G©ñ±ó)
¸ê®Æ¬ù2000¦hµ§¡A ...
paddyliu µoªí©ó 2012-11-5 15:05


¤£¦n·N«ä, ºC¤F

¥u­nhttp://cdict.net/ ¤£§ïª©, ¤]¥i¥H¥Îªº.
  1. Public Function getCdit(strIn As Variant) As Variant
  2.     Dim objXML
  3.     Dim strResult As String
  4.     Dim strResultFin As String
  5.     Dim lngPosStart As Long
  6.     Dim lngPosEnd As Long
  7.    
  8.     Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
  9.     objXML.Open "GET", "http://cdict.net/?q=" & strIn, False
  10.     Call objXML.send
  11.     strResult = objXML.responseText
  12.     strResultFin = ""
  13.     lngPosStart = InStr(1, strResult, "<div id='eng_addr'>", vbTextCompare)
  14.     If lngPosStart > 0 Then
  15.         lngPosEnd = InStr(lngPosStart, strResult, "</div>", vbTextCompare)
  16.         strResultFin = Mid(strResult, lngPosStart + Len("<div id='eng_addr'>"), lngPosEnd - lngPosStart - Len("<div id='eng_addr'>"))
  17.     End If
  18.     getCdit = strResultFin
  19.     Set objXML = Nothing
  20. End Function
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 2# kimbal

·PÁ±zªº´£¨Ñ¡A¥Ø«e¦Û¤v¥Î¤gªkÁå¿û¥u°µ¤F200¦hµ§:'(
¦ý§Ú·Q½Ð°Ý¦pªG¤¤¤å¦a§}¬O¦bEÄæ¡A»Ý¬d¸ß«áÂà¦^FÄæ¡A
»Ý§ó§ïµ{¦¡°Ïªº­þ¤@¨Ç°Ï¶ô¡H¦Ó¥B§Ú«ö°õ¦æÁä³£¤@ª½¶]¥¨¶°¥X¨Ó¡A¬OÁٻݳ]©w­þ¨Ç¶Ü¡H
½Ð«ü±Ð¡AÁÂÁ¡I

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD