絵文字・顔文字・メールサイン・ASCII artNo.01411
ENCODINGSHIFTJIS さん　00/06/19 15:04
　
// change1ch.mac
// 絵文字・顔文字・メールサイン・ASCII art
// カーソル位置の文字をクリップボードの文字で
// 一つづつ 置き代えます   調整の余地あり
// ↓確定 →次 ←前 ↑中止

if (1/2 == 0 && version < 302) {
message "このマクロには秀丸の Ver.3.02 以降が必要です。";
endmacro;
}
//田楽ＤＬＬのロード
loaddll(hidemarudir + "\\DengakuDLL.dll");
if (!result) {
message "DLL をロードできませんでした。";
endmacro;
}
escape;
//   ------------------------------
title "絵文字マクロ １ →↓→↑";
         beginclipboardread
      $str=getclipboard; // とりあえず１行のみ
   #i=0;
while($str!=""){// 文字配列準備 999 がちょっと
$s[#i]=dllfuncstr("LEFTSTR2",$str,1); #i=1+#i;
$str  =dllfuncstr( "MIDSTR2",$str,1,999); // SHIFT 1 char
 }
 $c=gettext(x,y,x+1,y);// １文字記憶
                    #j=0;
while(1){
delete insertfix $s[#j];                    // 置換
   #f=inputchar( "絵文字マクロ １ →↓→↑" );
if(#f==0x1E){                           // 次
             #j=1+#j;if(#j>=#i)#j=0; continue}
if(#f==0x1F)break                       // 確定
if(#f==0x1C){                           // 前
             #j=#j-1;if(#j<0  )#j=#i-1; continue}
if(#f==0x1D){                           // 中止
             delete insertfix $c; break }
 }
freedll;

// http://www16.big.or.jp/%7Enansya/ASCII-art/kanji.txt  より

// 冖匚冂凵匸コ厂勹囗口ロ日曰彑歹韭пΠП凸凹甘巨旧旦血襾丗且用甲申田白皿目
冊只囚凶占兄苜
//  
//    
// ♪   |~\~|  
//   (} |  \ ~~/  
//   |__[~~~~~~~~)
//  [~]\~|~~~~|~~  
//
//  ∩ ∩
//（・x・）
//     │      
//   ／│＼    
// ロ○│○ロ  
//   ＼┴／    
//     ￣
//  Λ ∽Λ      
//ミ・ 。・ミ
//  Λ ＊Λ      
//ミ・ 。・ミ
//  ΛΩ Λ      
//ミ・ 。・ミ
//
// 2000JIS X0213 はいつ実装される？
[ △ ]
RE:01411 絵文字・顔文字・メールサイン・No.01412
ENCODINGSHIFTJIS さん　00/06/20 17:38
　
// chg1ch.mac
// 絵文字・顔文字・メールサイン・ASCII art
// マクロ開始位置の文字をカーソル位置の文字で
// 一つづつ 置き代えます   調整の余地あり

escape;
title "絵文字マクロ ２ →↓→↑";
                 #xx=x;#yy=y; // 開始位置記憶
right;$c=gettext(#xx,#yy,x,y);// １文字記憶
// 置換候補文字の所に   マウスでカーソル移動 しておく
while(1){
         inputpos "絵文字マクロ ２ inputpos? ";
if(code==0xD){ // 行末
   #f=inputchar("中止= [ESC]  確定=[ENT]");        
if(#f==0x0D){moveto #xx,#yy;break   }                 // 確定
             moveto #xx,#yy;delete insertfix $c;break // 復帰
 }
          // 試す
  #x=x;#y=y;right; $s=gettext(#x,#y,x,y);#x=x;#y=y;
             moveto #xx,#yy;delete insertfix $s;       // 置換
             moveto #x,#y;
 }

endmacro

// http://www16.big.or.jp/%7Enansya/ASCII-art/kanji.txt  より

// 冖匚冂凵匸コ厂勹囗口ロ日曰彑歹韭пΠП凸凹甘巨旧旦血襾丗且用甲申田白皿目
冊只囚凶占兄苜
//  
文字パレットと 作業面を混載して使用します。
[ △ ]
RE:01412 絵文字・顔文字・メールサイン・No.01414
ENCODINGSHIFTJIS さん　00/06/21 12:01
　
// chgch.mac
// 絵文字・顔文字・メールサイン・ASCII art
// マクロ開始位置の文字をカーソル位置の文字で
// 一つづつ 置き代えます   終止手順を変更
// カーソルを開始位置に戻して[ENT]すると確定・復帰になる

escape;
title "絵文字マクロ ３ →↓→↑";
                 #xx=x;#yy=y; // 開始位置記憶
right;$c=gettext(#xx,#yy,x,y);// １文字記憶
// 置換候補文字の所に   マウスでカーソル移動 しておく
while(1){
         inputpos "絵文字マクロ ３ inputpos? ";
if(code==0xD){ moveto 0,y+1; continue } // 行末 では 次行に
if(x==#xx && y==#yy){                   // 終止に入る
   #f=inputchar("中止= [ESC]  確定=[ENT]");        
if(#f==0x0D){moveto #xx,#yy;break   }                 // 確定
             moveto #xx,#yy;delete insertfix $c;break // 復帰
                      }
          // 試す
  #x=x;#y=y;right; $s=gettext(#x,#y,x,y);#x=x;#y=y;
             moveto #xx,#yy;delete insertfix $s;       // 置換
             moveto #x,#y;
 }

endmacro

// http://www16.big.or.jp/%7Enansya/ASCII-art/kanji.txt   より

//†十什廾川卅幵并井卉廿巾
// 于干千午兀屮巾山巛ШЩшщ
//  

[ △ ]