|
インフォシーク国語辞典検索
- ページ: Macro/投稿
- 作者: maru
- カテゴリー: vbs
- 投稿日: 2005-06-26 (日) 01:00:58
メッセージ
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| | sWord = Editor.ExpandParameter("$C")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true
naviURL = "http://jiten.www.infoseek.co.jp/Kokugo" _
& "?sm=1&pg=result_k.html&col=KO&sv=DC" _
& "&qt=" & URLEncode(sWord)
objIE.Navigate( naviURL )
Private Function URLEncode(sWord)
For iCnt = 1 To Len(sWord)
sHex = sHex & Hex(Asc(Mid(sWord, iCnt)))
Next
For iCnt = 1To Len(sHex) Step 2
sUrl = sUrl & "%" & Mid(sHex, iCnt, 2)
Next
URLEncode = sUrl
End Function
|
|
|