出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2604] Re:UTF（？）をSJISに変換する。
投稿者：adeosさん 2002/09/03 9:17:55
私がやりたかったのは、Googleなどの検索エンジンで検索したときの検索語を、URLから取得することでした。

色々と探した結果、
http://www.kawabata.com/com/kawabataCom_Url.asp
を参考にして検索語を取得することができるようになりました。

ソースは以下の通りです。

--------
'SWord : エンコードされた検索語(%A4%A2みたいな）
'lngCode : エンコード方式（0:自動,5:UTF-8(Google)）
'エンコード方式はBASP21のKConvに倣って
Function WordDecord (SWord, lngCode)
　HexWord = ""
　Position = 1
　strUrlAny = SWord
　WordSize = Len(SWord)
　Set bobj = Server.CreateObject ("basp21")
　Do While Position <= WordSize
　　Chara = Mid(SWord, Position, 1)
　　If Chara = "+" Then
　　　strHex = Hex(AscB(" "))
　　　Position = Position + 1
　　ElseIf Chara <> "%" Then
　　　strHex = Hex(AscB(Chara))
　　　Position = Position + 1
　　Else
　　　strHex = Mid(strUrlAny, Position + 1, 2)
　　　Position = Position + 3
　　End If
　　HexWord = HexWord & strHex
　Loop
　If HexWord <> "" Then
　　byteAny = bobj.ByteArray(HexWord, 1)
　　WordDecord = bobj.KConv(byteAny, 4, lngCode)
　End If
　Set bobj = Nothing
End Function
-------

以上です。
ありがとうございました。
UTF（？）をSJISに変換する。 　 adeosさん [2002/08/30 15:48:36] [2588]
　 Re:UTF（？）をSJISに変換する。 　 北岳さん [2002/08/30 17:51:35] [2590]
　 　 Re:UTF（？）をSJISに変換する。 　 adeosさん [2002/08/30 18:45:53] [2591]
　 　 　 Re:UTF（？）をSJISに変換する。 　 北岳さん [2002/08/30 19:04:45] [2593]
　 　 　 　 Re:UTF（？）をSJISに変換する。 　 adeosさん [2002/09/03 9:17:55] [2604]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ