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

[1068] 文字列一括変換マクロでご指導のお願い - Keiji <> 02/11/16 09:54
└[1071] re1:文字列一括変換マクロでご指導のお願い - 武藤 潤 <jmuto@venus.dti.ne.jp> 02/11/16 23:40
   └[1072] Re: 文字列一括変換マクロでご指導のお願い - Keiji <> 02/11/17 09:49

 
 Subject: [1068] 文字列一括変換マクロでご指導のお願い
    Date: Sat, 16 Nov 2002 09:54:44 +0900
    From: Keiji <>

初めて"こういちろうさん"に教わり下記マクロを作成しましたが、エラーがでて上手く動きません。
不具合箇所修正のご指導宜しくお願い致します。

//文字列一括変換マクロ
// Start of EdMax Macro
 SetFocusToEditor( ) ;
 KeyDown( VK_HOME , 2 ) ;
// 丸数字置換
 ConvFreely( FALSE , TRUE , 1 , "①" , 1 , "(1)" , 1 , "②" , 1 , "(2)" , 1 , "③" , 1 , "(3)" , 1 , "④" , 1 , "(4)" , 1 , "⑤" , 1 , "(5)" , 1 , "⑥" , 1 , "(6)" , 1 , "⑦" , 1 , "(7)" , 1 , "⑧" , 1 , "(8)" , 1 , "⑨" , 1 , "(9)" , 1 , "⑩" , 1 , "(10)"  , 1 , "⑪" , 1 , "(11)" , 1 , "⑫" , 1 , "(12)" , 1 , "⑬" , 1 , "(13)" , 1 , "⑭" , 1 , "(14)" , 1 , "⑮" , 1 , "(15)" , 1 , "⑯" , 1 , "(16)" , 1 , "⑰" , 1 , "(17)" , 1 , "⑱" , 1 , "(18)" , 1 , "⑲" , 1 , "(19)" , 1 , "⑳" , 1 , "(20)" ) ;
// 記号半角変換
 ConvFreely( FALSE , TRUE , 1 , "，" , 1 , "," , 1 , "．" , 1 , "." , 1 , "：" , 1 , ":" , 1 , "；" , 1 , ";" , 1 , "？" , 1 , "?" , 1 , "！" , 1 , "!" , 1 , "＿" , 1 , "_" , 1 , "／" , 1 , "/" , 1 , "｜" , 1 , "|" , 1 , "（" , 1 , "(" , 1 , "）" , 1 , ")" , 1 , "［" , 1 , "[" , 1 , "］" , 1 , "]" , 1 , "｛" , 1 , "{" , 1 , "｝" , 1 , "}" , 1 , "＋" , 1 , "+" , 1 , "＝" , 1 , "=" , 1 , "＜" , 1 , "<" , 1 , "＞" , 1 , ">" , 1 , "￥" , 1 , "\" , 1 , "＄" , 1 , "$" , 1 , "％" , 1 , "%" , 1 , "＃" , 1 , "#" , 1 , "＆" , 1 , "&" , 1 , "＊" , 1 , "*" , 1 , "＠" , 1 , "_＠_" ) ;

// ローマ数字変換
 ConvFreely( FALSE , TRUE , 1 , "Ⅰ" , 1 , "I" , 1 , "Ⅱ" , 1 , "II" , 1 , "Ⅲ" , 1 , "III" , 1 , "Ⅳ" , 1 , "IV" , 1 , "Ⅴ" , 1 , "V" , 1 , "Ⅵ" , 1 , "VI" , 1 , "Ⅶ" , 1 , "VII" , 1 , "Ⅷ" , 1 , "VIII" , 1 , "Ⅸ" , 1 , "IX" , 1 , "Ⅹ" , 1 , "X" ) ;
//機種依存文字変換
ConvFreely( FALSE , TRUE , 1 , ㍉" , 1 , "ミリ" , 1 , "㌔" , 1 , "キロ" , 1 , "㌢" , 1 , "センチ" , 1 , "㍍" , 1 , "メートル" , 1 , "㌘" , 1 , "グラム" , 1 , "㌧" , 1 , "トン" , 1 , "㌃" , 1 , "アール" , 1 , "㌶" , 1 , "ヘクタール" , 1 , "㍑" , 1 , "リットル" , 1 , "㍗" , 1 , "ワット" , 1 , "㌍" , 1 , "カロリー" , 1 , "㌦" , 1 , "ドル" , 1 , "㌣" , 1 , "セント" , 1 , "㌫" , 1 , "パーセント" , 1 , "㍊" , 1 , "ミリバール" , 1 , "㌻" , 1 , "ページ" , 1 , "㎜" , 1 , "mm" , 1 , "㎝" , 1 , "cm" , 1 , "㎞" , 1 , "km" , 1 , "㎎" , 1 , "mg" , 1 , "㎏" , 1 , "kg" , 1 , "㏄" , 1 , "cc" , 1 , "№" , 1 , "No." , 1 , "㏍" , 1 , "K.K." , 1 , "℡" , 1 , "TEL" , 1 , "㊤" , 1 , "(上)" , 1 , "㊥" , 1 , "(中)" , 1 , "㊦" , 1 , "(下)" , 1 , "㊧" , 1 , "(左)" , 1 , "㊨" , 1 , "(右)" , 1 , "㈱" , 1 , "(株)" , 1 , "㈲" , 1 , "(有)" , 1 , "㈹" , 1 , "(代)" , 1 , "㍾" , 1 , "明治" , 1 , "㍽" , 1 , "大正" , 1 , "㍼" , 1 , "昭和" , 1 , "㍻" , 1 , "平成" ) ;
//以下の記号は全角へ
 ConvFreely( FALSE , TRUE , 1 , "｢" , 1 , "「" , 1 , "｣" , 1 , "」" , 1 , "･" , 1 , "・" , 1 , "｡" , 1 , "。" ) ;
// End of EdMax Macro

 
 Subject: [1071] re1:文字列一括変換マクロでご指導のお願い
    Date: Sat, 16 Nov 2002 23:40:02 +0900
    From: 武藤 潤 <jmuto_＠_venus.dti.ne.jp>

> 初めて"こういちろうさん"に教わり下記マクロを作成しましたが、エラーがでて上手く動きません。
> 不具合箇所修正のご指導宜しくお願い致します。

自由変換コマンドは10組ずつ指定する必要があります。(多すぎても少なすぎてもいけません)
マクロを手書きで作ってうまくいかなかった時は、実際に操作記録をやって保存してみて参考にするといいと思います。

以下に動作するように変更してみたものを記載します。


// Start of EdMax Macro
SetFocusToEditor( ) ;
KeyDown( VK_HOME , 2 ) ;
// 丸数字置換
ConvFreely( FALSE , FALSE , 1 , "①" , 1 , "(1)" , 1 , "②" , 1 , "(2)" , 1 , "③" , 1 , "(3)" , 1 , "④" , 1 , "(4)" , 1 , "⑤" , 1 , "(5)" , 1 , "⑥" , 1 , "(6)" , 1 , "⑦" , 1 , "(7)" , 1 , "⑧" , 1 , "(8)" , 1 , "⑨" , 1 , "(9)" , 1 , "⑩" , 1 , "(10)" ) ;
ConvFreely( FALSE , FALSE , 1 , "⑪" , 1 , "(11)" , 1 , "⑫" , 1 , "(12)" , 1 , "⑬" , 1 , "(13)" , 1 , "⑭" , 1 , "(14)" , 1 , "⑮" , 1 , "(15)" , 1 , "⑯" , 1 , "(16)" , 1 , "⑰" , 1 , "(17)" , 1 , "⑱" , 1 , "(18)" , 1 , "⑲" , 1 , "(19)" , 1 , "⑳" , 1 , "(20)" ) ;
// 記号半角変換
ConvFreely( FALSE , FALSE , 1 , "，" , 1 , "," , 1 , "．" , 1 , "." , 1 , "：" , 1 , ":" , 1 , "；" , 1 , ";" , 1 , "？" , 1 , "?" , 1 , "！" , 1 , "!" , 1 , "＿" , 1 , "_" , 1 , "／" , 1 , "/" , 1 , "｜" , 1 , "|" , 0 , "" , 0 , "" ) ;
ConvFreely( FALSE , FALSE , 1 , "（" , 1 , "(" , 1 , "）" , 1 , ")" , 1 , "［" , 1 , "[" , 1 , "］" , 1 , "]" , 1 , "｛" , 1 , "{" , 1 , "｝" , 1 , "}" , 1 , "＋" , 1 , "+" , 1 , "＝" , 1 , "=" , 1 , "＜" , 1 , "<" , 1 , "＞" , 1 , ">" ) ;
ConvFreely( FALSE , FALSE , 1 , "￥" , 1 , "\\" , 1 , "＄" , 1 , "$" , 1 , "％" , 1 , "%" , 1 , "＃" , 1 , "#" , 1 , "＆" , 1 , "&" , 1 , "＊" , 1 , "*" , 1 , "＠" , 1 , "_＠_" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" ) ;
// ローマ数字変換
ConvFreely( FALSE , FALSE , 1 , "Ⅰ" , 1 , "I" , 1 , "Ⅱ" , 1 , "II" , 1 , "Ⅲ" , 1 , "III" , 1 , "Ⅳ" , 1 , "IV" , 1 , "Ⅴ" , 1 , "V" , 1 , "Ⅵ" , 1 , "VI" , 1 , "Ⅶ" , 1 , "VII" , 1 , "Ⅷ" , 1 , "VIII" , 1 , "Ⅸ" , 1 , "IX" , 1 , "Ⅹ" , 1 , "X" ) ;
//機種依存文字変換
ConvFreely( FALSE , FALSE , 1 , "㍉" , 1 , "ミリ" , 1 , "㌔" , 1 , "キロ" , 1 , "㌢" , 1 , "センチ" , 1 , "㍍" , 1 , "メートル" , 1 , "㌘" , 1 , "グラム" , 1 , "㌧" , 1 , "トン" , 1 , "㌃" , 1 , "アール" , 1 , "㌶" , 1 , "ヘクタール" , 1 , "㍑" , 1 , "リットル" , 1 , "㍗" , 1 , "ワット" ) ;
ConvFreely( FALSE , FALSE , 1 , "㌍" , 1 , "カロリー" , 1 , "㌦" , 1 , "ドル" , 1 , "㌣" , 1 , "セント" , 1 , "㌫" , 1 , "パーセント" , 1 , "㍊" , 1 , "ミリバール" , 1 , "㌻" , 1 , "ページ" , 1 , "㍾" , 1 , "明治" , 1 , "㍽" , 1 , "大正" , 1 , "㍼" , 1 , "昭和" , 1 , "㍻" , 1 , "平成" ) ;
ConvFreely( FALSE , FALSE , 1 , "㎜" , 1 , "mm" , 1 , "㎝" , 1 , "cm" , 1 , "㎞" , 1 , "km" , 1 , "㎎" , 1 , "mg" , 1 , "㎏" , 1 , "kg" , 1 , "㏄" , 1 , "cc" , 1 , "№" , 1 , "No." , 1 , "㏍" , 1 , "K.K." , 1 , "℡" , 1 , "TEL" , 0 , "" , 0 , "" ) ;
ConvFreely( FALSE , FALSE , 1 , "㊤" , 1 , "(上)" , 1 , "㊥" , 1 , "(中)" , 1 , "㊦" , 1 , "(下)" , 1 , "㊧" , 1 , "(左)" , 1 , "㊨" , 1 , "(右)" , 1 , "㈱" , 1 , "(株)" , 1 , "㈲" , 1 , "(有)" , 1 , "㈹" , 1 , "(代)" , 0 , "" , 0 , "" , 0 , "" , 0 , "" ) ;
//以下の記号は全角へ
ConvFreely( FALSE , FALSE , 1 , "｢" , 1 , "「" , 1 , "｣" , 1 , "」" , 1 , "･" , 1 , "・" , 1 , "｡" , 1 , "。" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" ) ;
// End of EdMax Macro

 
 Subject: [1072] Re: 文字列一括変換マクロでご指導のお願い
    Date: Sun, 17 Nov 2002 09:49:03 +0900
    From: Keiji <>

▼ 武藤 潤 さん
> 自由変換コマンドは10組ずつ指定する必要があります。(多すぎても少なすぎ
>てもいけません)
そうだったんですか、当初自動整形 ON で書いていたので、半角スペースの
問題かなと考えておりましたが勉強になりました。

> マクロを手書きで作ってうまくいかなかった時は、実際に操作記録をやって保
>存してみて参考にするといいと思います。
今後、色々と勉強してまいります。

> 
> 以下に動作するように変更してみたものを記載します。
使用させて頂きます。悩んでおりましたがすっきりしました。