マニュアルトップ / 逆引きヘルプ / 部品〜ツリー
←　前のページ 次のページ　→

ツリーの選択したアイテムを上下に移動させたい。

  「同じ名前のアイテムがない」ことが条件ですが、以下のようにすると同一階層内での上下移動が可能になります。

  `'サンプル1

  上移動を、「?を」で、関数定義。 下移動を、「?を」で、関数定義。 パンツリーを、作る。 その、サイズは、(0,0,400,200) その、アイテムは、『柄あり\しましま 柄あり\しましま\水色 柄あり\しましま\ピンク 柄あり\すけすけ 柄あり\水玉 柄あり\鬼のパンツ\赤オニ用 柄あり\鬼のパンツ\青オニ用 柄なし\ブリーフ 柄なし\トランクス 柄なし\トランクス\ボクサー 』 パンツリーの、「」を、ツリー展開。 上移動ボタンを、作る。 その、イベントは、( 「パンツリー」を、上移動。 パンツリーの、『』を、ツリー展開。 ) (その、右側)に、下移動ボタンを、作る。 その、イベントは、( 「パンツリー」を、下移動。 パンツリーの、『』を、ツリー展開。 ) 待機。 ＊上移動 ツリー名@は、引数取得。 移動共通処理その壱 移動用の、0列目から、名前を、表検索。 上アイテムは、移動用#(それ-1) もし、上アイテム=「」ならば、戻る。 移動用の、上アイテム&"\n"を、「」に、置換。 名前を、「{名前}\n{上アイテム}」に、置換。 移動用は、それ。 移動共通処理その弐 戻る。 ＊下移動 ツリー名@は、引数取得。 移動共通処理その壱 移動用の、0列目から、名前を、表検索。 下アイテムは、移動用#(それ+1) もし、下アイテム=「」ならば、戻る。 移動用の、下アイテム&"\n"を、「」に、置換。 名前を、「{下アイテム}\n{名前}」に、置換。 移動用は、それ。 移動共通処理その弐 戻る。 ＊移動共通処理その壱 「それ={ツリー名@}の、選択位置」を、ひまわりする。 もし、それ<0ならば、待機。 「アイテム={ツリー名@}の、アイテム。 名前=アイテム#({ツリー名@}の、選択位置)」を、ひまわりする。 子アイテム=「」 親アイテム=「」 移動用=「」 名前で、『\』の、出現回数。 条件は、それ。 アイテムを、反復( テキストは、それ。 『\』の、出現回数 それで、条件分岐。 条件の時、移動用に、テキスト&"\n"を、足す。 (条件+1)以上の時、子アイテムに、テキスト&"\n"を、足す。 その他の時、親アイテムに、テキスト&"\n"を、足す。 ) 戻る。 ＊移動共通処理その弐 親アイテムの、『\』を、『\\』に、置換。 親アイテムは、それ。 反復( 条件は、それ。 置換用=「」 移動用を、反復( あいてむ=それ 「s#^{条件}\\\\[^\\\\]*##kg」で、正規表現置換。 もし、それ=「」ならば、( 置換用に、あいてむ&"\n"を、足す。 ) ) もし、置換用<>「」ならば、( 親アイテムの、条件&"\n"を、「{条件}\n{置換用}」に、置換。 親アイテムは、それ。 ) ) もし、親アイテム<>「」ならば、移動用=親アイテム 「子アイテム<>\"\"」で、ループ( 移動用の、『\\』を、『\』に、置換。 『\』を、『\\』に、置換。 移動用は、それ。 反復( 条件は、それ。 置換用=「」 子アイテムを、反復( あいてむ=それ 「s#^{条件}\\\\[^\\\\]*##kg」で、正規表現置換。 もし、それ=「」ならば、( 置換用に、あいてむ&"\n"を、足す。 ) ) もし、置換用<>「」ならば、( 移動用の、条件&"\n"を、「{条件}\n{置換用}」に、置換。 移動用は、それ。 置換用を、反復( 子アイテムの、それ&"\n"を、「」に、置換。 子アイテムは、それ。 ) ) ) ) 移動用の、『\\』を、『\』に、置換。 「{ツリー名@}の、アイテムは、それ。」を、ひまわりする。 戻る。

  `

  作成日　2003/06/20　作成時のひまわりバージョン　1.76b

←　前のページ 次のページ　→
マニュアルトップ / 逆引きヘルプ / 部品〜ツリー