自分の伝説を作る<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />マーカーを表示する凡例を作成しています - 現在、組み込みの凡例を繰り返そうとしています (そして失敗しています) が、後で拡張したいと思います。
スクリプトの重要な行は次のとおりです。
txtii =チャー( M1 [ ii 、 2 ])) || " " || NmNow || " = " ||チャー( M1 [ ii 、 1 ])) ;
これにより、「8 C = -1」が文章。 私はそれを「（8）のマーカー」、シンボル「o」、またはマーカーの状態が何であれにしたいと考えています。 これらはユニコードだと思うので、正しく解析する必要があると思います。 アイデアをありがとう。
GetMarker =式(
mb1 =メガバイト<<得る() ;
ムレグ= dt <<列ごとのマーカー(桁( nm [ mb1 ])) ;
マーカーナウ= J ( n行( dm ) 、 1 、 0 ) ;
為に( ii = 1 、 ii <= n行( dm ) 、 ii ++、
マーカーナウ[ ii ] =マーカーの(行の状態( ii ) ) ;
) ;
コルナウ= dt <<行列として取得(桁( nm [ mb1 ])) ;
現在のマーカー= ColNow ||現在のマーカー;
現在のマーカー=現在のマーカー[ランク(コルナウ) 、 0 ] || J ( n行(現在のマーカー) 、 1 、 0 ) ;
現在のマーカー[ 1 、 3 ] = 1 ;
為に( ii = 2 、 ii <= n行(現在のマーカー) 、 ii ++、
もしも(現在のマーカー[ ii 、 1 ] ==現在のマーカー[ ii - 1 、 1 ] 、現在のマーカー[ ii 、 3 ] = 0 、現在のマーカー[ ii 、 3 ] = 1 ) ;
) ;
M1 =現在のマーカー[ロク(カラーナウ[ 0 、 3 ])) 、 1 :: 2 ] ;
NmNow = nm [ mb1 ] ;
// show(NmNow, colornow, C1);
試す( mTxtBx <<消去) ;
為に( ii = 1 、 ii <= n行( M1 ) 、 ii ++、
txtii =チャー( M1 [ ii 、 2 ])) || " " || NmNow || " = " ||チャー( M1 [ ii 、 1 ])) ;
mTxtBx [ ii ] =テキストボックス( txtii ) ;
mbp <<追加( mTxtBx [ ii ])) ;
) ;
) ;
Re: 自分の伝説を作ろう私はこの考えに従いました：
ユニコード = {
「253C」、「2573」、「25A1」、「25C7」、「25B3」、「0059」、「005A」、「25CB」、
「25AD」、「25AF」、「2217」、「16EB」、「25AC」、「25AE」、「25A0」、「25C6」、
"25BD"、"25C1"、"25B7"、"25B2"、"25BC"、"25C0"、"25B6"、"1431"、
「2164」、「1438」、「1433」、「2502」、「2212」、「2215」、「2216」
};// JMPMarkerVal で番号付けされたマーカーに似た Unicode;
Try(mTxtBx << 削除);
For(ii=1, ii<= n 行 (M1), ii++,
uni="\!" \!\\!!U" || unicode[JMPMarkerVal] || " \!"";
Show(ii, M1[ii,1], ユニ);
mTxtBx[ii]=HList Box(
mTxta[ii]=Text Box(parse(uni), < Text Box(": "||NmNow||" = "||char(M1[ii,1])),
);
mbp << append(mTxtBx[ii]); // mbp はウィンドウ内の凡例のプレースホルダーです
);
Re: 自分の伝説を作ろう32 個の組み込みシンボルが Unicode ではないと思います。 しかし、内部的には、最初の 32 個の Unicode 文字、つまり印刷できない文字を占めているようです。 たとえば、mval=43 を試してみるとプラス記号が表示されますが、JMP 記号とは異なります。
1 つのアイデア: Unicode テーブル (以下のようなもの) を使用して、最初の 32 行に最もよく一致する行をマークし、それらをスクリプトで使用してマーカー状態を Unicode シンボルに変換できる連想配列に入れます。 (ヒント: 16 進数 2500 からの多くの幾何学的記号)
新しいテーブル( 「たくさんのマーカー」 、行を追加( 10260 ) 、新しい列( "マーカー" 、行の状態、 「列状態」 、方式(マーカー状態(行())))) 、新しい列( 「16進ユニコード」 、キャラクター、 「公称」 、方式(右( 16 進数(行() 、 "整数" ) 、 4 ))))) ;
Re: 自分の伝説を作ろうスクリプトのこのセクションは、私が近づいていることを示しています
Mフォント=引数(引数(設定を取得(マーカーのフォント) 、 1 ) 、 1 ) ; // マーカーに使用するフォントを決定します
ユニ= 「\!」 \!\\!!う」 || 「03B1」 || "\!"" ;
mval = 1 ; // 別のシンボルに変更
// これは値を取得するために使用されます。
mval_h =六角( 1 、 "整数" ) ;
mval_h4 =サブストリング( mval_h 、長さ( mval_h ) - 3 ) ; //必要な Unicode は、16 進数の最後の 4 桁だけです
見せる( mval_h4 、長さ( mval_h4 ))) ;
mval_unicode = "\!"\!\\!!u" || mval_h4 || "\!"" ; // ユニコード対応
dt1 =新しいテーブル( 「正解 - シンボルは機能します」 、
行を追加する( 1 ) 、
新しい列( 「うに」 、キャラクター、公称、設定値(入れる({} 、 mval_unicode ) ))) 、
) ;
行の状態(行() ) =マーカー状態(パース( :ユニ) ) ;
// これはうまく機能することに注意してください - マーカーは #1 です。
新しい窓( 「不正解 - 2 番目のボックスの記号が空です」 、
Vリストボックス(
パネルボックス( 「うに」 ||チャー(ユニ) 、
テキストボックス(解析する(ユニ))) 、
) 、
パネルボックス( "mval_unicode" ||チャー( mval_unicode ) 、
テキストボックス(解析する( mval_unicode ) 、 <<フォントの設定( Mフォント))) 、
) 、
)
) ;
// 残念ながら、記号はテキスト ボックスにありません。
