マクロ公開データ (2000.10～2008.01)

[1050] Q-encode された US-ASCII をデコードするマクロ - こういちろう <koichiro@ss.iij4u.or.jp> 01/07/31 16:18
└[1051] (1050の改良版) Q-encoded US-ASCII のデコード - こういちろう <koichiro@ss.iij4u.or.jp> 01/07/31 19:35

 
 Subject: [1050] Q-encode された US-ASCII をデコードするマクロ
    Date: Tue, 31 Jul 2001 16:18:41 +0900
    From: こういちろう <koichiro_＠_ss.iij4u.or.jp>

// ヘッダに、Q-encode された US-ASCII 文字列
// (「=?us-ascii?q?」で始まるもの) が含まれていた場合に
// それをデコードするためのマクロです。
// EdMax 本体で対応されるまでの対応策として作成しました。

// 【使用法】
// あらかじめ、該当のヘッダを含むメッセージを表示しておいた状態で
// 本マクロを実行します。

// 【制限事項】
// 本マクロがデコードできるのは、実行1回につき1行だけです。
// 複数行にわたって Q-encode された US-ASCII 文字列がある場合は
// すべてデコードされるまで本マクロを繰り返し実行させてください。

// Start of EdMax Macro

ToggleMailEditMode( ) ;
ToggleEnableHeaderEdit( ) ;
SetFocusToView( ) ;
KeyDown( VK_HOME , 2 ) ;
FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , TRUE , "=?us-ascii?q" ) ;
KeyDown( VK_HOME , 0 ) ;
SetAnchor( ) ;
KeyDown( VK_END , 0 ) ;
SetAnchor( ) ;
SelectAnchorArea( ) ;
CopyString( ) ;
NewMessageSx( ) ;
SelectAllString( ) ;
PasteString( ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , " =?us-ascii?q?" , " " ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "?= " , "" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "?=" , "" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "_" , " " ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5F" , "_" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=21" , "!" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=23" , "#" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=24" , "$" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=28" , "(" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=29" , ")" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2E" , "." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2A" , "*" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2B" , "+" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2C" , "," ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2E" , "." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2F" , "/" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3A" , ":" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3B" , ";" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3C" , "<" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3E" , ">" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=40" , "_＠_" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5B" , "[" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5D" , "]" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=60" , "`" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5C" , "\\" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3F" , "?" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3D" , "=" ) ;
SelectAllString( ) ;
CopyString( ) ;
CloseFileNoConfirmation( ) ;
ActivateMailerPart( ) ;
SetFocusToView( ) ;
SelectAnchorArea( ) ;
PasteString( ) ;
KeyDown( VK_HOME , 0 ) ;
SetAnchor( ) ;
KeyDown( VK_END , 0 ) ;
SetAnchor( ) ;
ToggleEnableHeaderEdit( ) ;
ToggleMailEditMode( ) ;

// End of EdMax Macro
 
 Subject: [1051] (1050の改良版) Q-encoded US-ASCII のデコード
    Date: Tue, 31 Jul 2001 19:35:36 +0900
    From: こういちろう <koichiro_＠_ss.iij4u.or.jp>

ヘッダに Q-encode された US-ASCII 文字列
(「=?us-ascii?q?」で始まるもの) が含まれているメッセージについて
そのメッセージがあるフォルダを開いて本マクロを実行すると
Q-encode の部分がデコードされます。
デコードする範囲はカスタマイズ可能です。

EdMax 本体で対応されるまでの対応策として作成しました。
# No.1050 として投稿したものは環境依存性が高かったので
# 削除のうえ書き直しました。

【制限事項】
* 本マクロがデコードできるのは、実行1回につき1行だけです。
  複数行にわたって Q-encode された US-ASCII 文字列がある場合は
  すべてデコードされるまで本マクロを繰り返し実行させてください。
* 本マクロを実行するとクエリー結果ウィンドウが開いたまま終了します。
  (クエリー結果ウィンドウを閉じる動作がマクロ化できないため)
* 本マクロを実行するとクリップボードの中身が消えます。

=  =  =  =  =  =  =  =  =  この次の行から  =  =  =  =  =  =  =  =  =

// Start of EdMax Macro

SaveCurrentAutoFormSwitch( ) ;
SaveMailEditHeaderEditMode( ) ;
SaveCurrentQueryCondition( ) ;
// ここまでおまじない

DoQuery( FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , 0 , 2 , "=?us-ascii?q?" , "2001/07/31" , "2001/07/31" , FALSE , FALSE , FALSE , FALSE , FALSE , 1 ) ;
// この「DoQuery」について "=?us-ascii?q?" の2つ前の値を書き換えると
// デコードする範囲が設定できる。
// 0 (初期値) = 現在のフォルダ
// 1 = 現在+下位のフォルダ
// 2 = 現在のアカウント
// 3 = すべてのアカウント

OffAutoForm( ) ;
OnHeaderEdit( ) ;
SetFocusToView( ) ;
KeyDown( VK_HOME , 2 ) ;
FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , TRUE , "=?us-ascii?q" ) ;
KeyDown( VK_HOME , 0 ) ;
SetAnchor( ) ;
KeyDown( VK_END , 0 ) ;
SetAnchor( ) ;
SelectAnchorArea( ) ;
CopyString( ) ;
NewMessageSx( ) ;
SetFocusToEditor( ) ;
SelectAllString( ) ;
PasteString( ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , " =?us-ascii?q?" , " " ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "?= " , "" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "?=" , "" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "_" , " " ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5F" , "_" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=21" , "!" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=23" , "#" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=24" , "$" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=28" , "(" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=29" , ")" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2E" , "." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2A" , "*" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2B" , "+" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2C" , "," ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2E" , "." ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=2F" , "/" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3A" , ":" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3B" , ";" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3C" , "<" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3E" , ">" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=40" , "_＠_" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5B" , "[" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5D" , "]" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=60" , "`" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=5C" , "\\" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3F" , "?" ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , "=3D" , "=" ) ;
SelectAllString( ) ;
CopyString( ) ;
CloseFileNoConfirmation( ) ;
ActivateMailerPart( ) ;
SetFocusToView( ) ;
SelectAnchorArea( ) ;
PasteString( ) ;
ClearClipboard( ) ;

// 以下おまじない
KeyDown( VK_HOME , 0 ) ;
SetAnchor( ) ;
KeyDown( VK_END , 0 ) ;
SetAnchor( ) ;
ToggleEnableHeaderEdit( ) ;
ToggleMailEditMode( ) ;
RestoreMailEditHeaderEditMode( ) ;
RestoreAutoFormSwitch( ) ;
RestoreCurrentQueryCondition( ) ;

// End of EdMax Macro
マクロ 公開データ (2000.10～2008.01)

マクロ公開データ (2000.10～2008.01)
