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

[µo°Ý] ¦Û­q¨ç¼Æ¦^¶Ç­ì©l½X¦r¦ê,¤£ª¾¿ù»~¦b­þ(¦³µ{¦¡½X)

[µo°Ý] ¦Û­q¨ç¼Æ¦^¶Ç­ì©l½X¦r¦ê,¤£ª¾¿ù»~¦b­þ(¦³µ{¦¡½X)

½Ð±Ð¦U¦ì¤j¤j,¦Û¤v±qºô¯¸§ä¨ì½d¨Ò,­×§ï¤F¤@­Ó¦Û­q¨ç¼Æ,¬Ý°_¨Ó¬O¦³¹B§@,¦ý¦ü¥G¦r¦êªº³¡¥÷¦³»~,½Ð°ª¤â«ü±Ð¿ù»~¦b­þ?3Q

Option Explicit
Function pno(Word As String) As String
    Dim Url As String, Ar
    Url = "http://yp.kocpc.com.tw/search/" & Word
    If Word = "" Then pno = "??": Exit Function
    With CreateObject("Microsoft.XMLHTTP")
        .Open "get", Url, False
       .send
        Ar = Split(Split((.responseText), "¹q¸Ü:"), "'(")
        pno = Ar(UBound(Ar))
   End With
End Function

105-05-08.zip (8.43 KB)

¦]¬°­ì©lÀɮרS¦³¤@µ§¬d±o¨ì¹q¸Ü,©Ò¤w­«·s¤W¶Çªþ¥ó,²Ä¤@µ§¤½¥q¬O¦³¹q¸Üªº.

105-05-08 v2.0.zip (8.52 KB)

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD