検索キーワードをパネルに入れるためのマクロ作った。
Thursday, 16. October 2008, 06:41:38
Operaの検索キーワード、便利だけど検索エンジンの登録が増えてくるとキーワードを忘れがちです。
ということで、search.iniからパネルに入れられるhtmlファイルを作成するマクロを作りました。
ただ、問題がひとつ。
Excelでは文字コードの変換が出来ないため、UTF8で保存されているsearch.iniを直接読み込むと文字化けしてしまいます。
そのため、Windowsのメモ帳で一度Unicodeで保存してから処理しています。
処理中にアプリケーションをいじると、処理が止まってしまうのでお気をつけて。。
何かいい案あったら教えて下さい、エロい人達。。
※Windows限定です（多分）
ダウンロード：search_ini_for_panel.xls
うにょうにょと作ったので、どっか間違いがあるかも。。
気づいたら連絡下さい。
なお、ご利用は計画的に、自己責任で♪いいこのお約束だぞ☆
ということで、search.iniからパネルに入れられるhtmlファイルを作成するマクロを作りました。
ただ、問題がひとつ。
Excelでは文字コードの変換が出来ないため、UTF8で保存されているsearch.iniを直接読み込むと文字化けしてしまいます。
そのため、Windowsのメモ帳で一度Unicodeで保存してから処理しています。
処理中にアプリケーションをいじると、処理が止まってしまうのでお気をつけて。。
何かいい案あったら教えて下さい、エロい人達。。
※Windows限定です（多分）
ダウンロード：search_ini_for_panel.xls
- Excelファイルを落とす。
- Sheet1に、search.iniのパスと、Operaのインストールパスを記入し、「実行」ボタンを押す。
- メモ帳が開いたりするけど、何も触らず待つ。
- 規定のブラウザで処理したページが開くので、ブックマークに登録し、パネルに表示する。
うにょうにょと作ったので、どっか間違いがあるかも。。
気づいたら連絡下さい。
なお、ご利用は計画的に、自己責任で♪いいこのお約束だぞ☆
WIDGETIZE
Snow of March # 29. September 2009, 02:12
Excel VBAでも、ADODBオブジェクトの力を借りると文字コード指定つきでファイルが読み書きできます。
Public Sub test()
Dim text As String
text = ReadFile("C:\speeddial.ini", "UTF-8")
MsgBox text
WriteFile "C:\speeddial2.ini", text, "UTF-8"
End Sub
Public Function ReadFile(path As String, charset As String)
Dim o As Object
Set o = CreateObject("ADODB.Stream")
With o
.Type = 2
.charset = charset
.Open
.LoadFromFile path
ReadFile = .ReadText
.Close
End With
Set o = Nothing
End Function
Public Sub WriteFile(path As String, text As String, charset As String)
Dim o As Object
Set o = CreateObject("ADODB.Stream")
With o
.Type = 2
.charset = charset
.Open
.WriteText text
.SaveToFile path, 2
.Close
End With
Set o = Nothing
End Sub