登録されているカラー絵文字をすべて見たNo.41480
popper さん 24/11/24 18:22
 
入力文字を変換していると、カラー絵文字があったり無かったり。

そこで、登録されているカラー絵文字をすべて知りたいと思ったのですが、
どうすればよいでしょうか?

よろしくお願いいたします。

[ ]
RE:41480 登録されているカラー絵文字をすNo.41481
ラフ さん 24/11/25 00:46
 
登録されているというのがWindowsで表示できるという意味だとしたら
絵文字のコード範囲の文字全てを表示してみればいいかと

ということで、こんな感じかな


##numperline = 40; // 1行の表示文字数
##mode = 0; // 表示モード 0=ブロック名と文字、1=文字コードも表示
if(##mode == 1) {
 ##numperline = 8; // ##mode=1時の1行の表示文字数
}
##idx=0;
$$block[##idx] = "その他の記号";
$$range[##idx] = "0x2600-0x26FF";
##idx=##idx+1;
$$block[##idx] = "装飾記号";
$$range[##idx] = "0x2700-0x27BF";
##idx=##idx+1;
$$block[##idx] = "その他の記号及び絵記号";
$$range[##idx] = "0x1F300-0x1F5FF";
##idx=##idx+1;
$$block[##idx] = "顔文字";
$$range[##idx] = "0x1F600-0x1F64F";
##idx=##idx+1;
$$block[##idx] = "装飾用絵記号";
$$range[##idx] = "0x1F650-0x1F67F";
##idx=##idx+1;
$$block[##idx] = "交通及び地図記号";
$$range[##idx] = "0x1F680-0x1F6FF";
##idx=##idx+1;
$$block[##idx] = "補助記号及び絵記号";
$$range[##idx] = "0x1F900-0x1F9FF";
##idx=##idx+1;
$$block[##idx] = "記号及び絵記号拡張A";
$$range[##idx] = "0x1FA70-0x1FAFF";
##idx=##idx+1;

##i = 0;
while(##i < ##idx) {
 ##count = 0;
 ##num = split($$code, $$range[##i], "-");
 ##j = val($$code[0]);
 insert $$block[##i] + "[" + $$range[##i] + "]\n";
 while(##j <= val($$code[1])) {
  ##kaigyoflag = 0;
  insert unichar(##j);
  if(##mode == 1) {
   insert " 0x" + hex(##j) + " ";
  }
  ##count = ##count + 1;
  ##j = ##j + 1;
  if(##count % ##numperline == 0) {
   insert "\n";
   ##kaigyoflag = 1;
  }
 }
 ##i = ##i + 1;
 if(##kaigyoflag == 0) {
  insert "\n";
 }
 insert "\n";
}

[ ]
RE:41481 登録されているカラー絵文字をすNo.41483
popper さん 24/11/25 11:54
 
ラフさんのマクロで、私の希望通りのことが実現されました。

ありがとうございました。

[ ]