;;AN: （穴埋め問題連番:anaume.tmc と連携 anarenban.tmc） k.hori 1999/12/22完成
	String	B
	GetSelection(B)
	CmpStr(B,'=','')
	JumpIfTrue(ERROR)
;穴埋め文字列を作成
	string a1  ;穴埋め文字列左
	string a2  ;穴埋め文字列右
	string x   ;穴埋め文字列完成
	string s
	integer i
	integer j
	GetCharType(i, B, 0)
	StrLeft(a1, B, i)  ;穴埋め文字列左
	StrLen(j, B)
	DecBy(j,i)
	StrRight(a2, B, j) ;穴埋め文字列右
;最初の穴埋めに戻る
;文章の最初に
	CurTop ;
	CurLeftEnd ;
	setint(i,0)
	call(bracket)
	CurBottom
    CurUp ;
	CurLeftEnd ;
;    CmpInt(i,'>',0)
    call(kotae)

	Exit


:bracket
  FindString(B, 0, 1, 0);下方向検索
  inc(i) 
  jumpiftrue(bracket2)
;  dec(i)
  return
  
:bracket2  ; 括弧に番号をつける
  setstr(x,a1)
  ItoA(S,I)
  addstr(x,S)
  addstr(x,a2)
  ReplaceString(x, 1, 1) ; PasteStr(x)
  jump(bracket)

:kotae
   setint(j,1)
   integer k
   setint(k,i)
   dec(k)
   For(j,1,i)
     ItoA(S,k)
     pastestr(s)
     pastestr(' ')
     dec(k)     
     CurUp
     CurLeftEnd ;
   EndFor
  return

:ERROR
	ShowMessage('「穴埋め括弧」を一つ反転させてからこのマクロを起動してくださいm(__)m',0)
exit
//
穴埋め問題番号つけマクロ (anaume.tmc と連携)
  番号を付けたい「穴埋め括弧」を反転させてこのマクロを起動すると
  その「穴埋め括弧」に連番をつけ，最後にある答えにも連番をつけます。
  注意：一度番号を付けた後で，追加の穴埋め項目を作成した場合，追加分だけの項目で１から連番します。
　それがまずいのなら，少なくとも括弧側の連番を消してください。

次のような結果になります。
------------------------------------------
元原稿
-------------------------------------------
穴埋めにしたい語句を反転させてこのマクロを起動すると
-----------------------------------------
穴埋め問題作成マクロ(anaume.tmc)を使用して穴埋め問題作成
-----------------------------------------
(　　　　)にしたい語句を(　　　　)させてこの(　　　　)を起動すると

******* 答 *******
穴埋め
反転
マクロ
-------------------------------------------
穴埋め問題連番マクロ(anarenban.tmc)実行
-------------------------------------------
(1　　　　)にしたい語句を(2　　　　)させてこの(3　　　　)を起動すると

******* 答 *******
1 穴埋め
2 反転
3 マクロ