Macro/投稿/59 の変更点

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F59


Top > Macro > 投稿 > 59
  • 追加された行はこの色です。
  • 削除された行はこの色です。
  • Macro/投稿/59 へ行く。

* Perlリファレンス [#s99ad333]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2005-06-26 (日) 02:19:56

** メッセージ [#mce7a7eb]
#code(vbscript){{
'otw_perl_ref.vbs --------------------------------
'Perlリファレンス
sWord = Editor.ExpandParameter("$C")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true

naviURL = "http://www2u.biglobe.ne.jp/~MAS/cgi-bin/perl_ref.cgi" _
    & "?query=" & 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
}}

----

#comment

    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS