EraseTag
{
	/*******************************************/
	/* SAKURAスクリプトタグのパターン          */
	/* ａ）"\" に続いて１文字                  */
	/* ｂ）"\" に続いて１個以上の "_" と１文字 */
	/* ｃ）（ａ）（ｂ）に続く "[" から "]"     */
	/* ｄ）（ａ）（ｂ）に続く１桁数字          */
	/* "\\" は "\" に                          */
	/* "[" から "]" の中の "\]" を考慮に入れる */
	/*******************************************/
	_str = ""
	while 1
	{
		if (_chr = SUBSTR(_argv[0],0,1)) != "\"
		{
			if _chr == "" ; break // 終端なら抜ける
			_str += _chr
			_argv[0] = ERASE(_argv[0],0,1)
		}
		else
		{
			_argv[0] = ERASE(_argv[0],0,1)

			//---- "_" を取り除く
			for _i = 0 ; (_chr = SUBSTR(_argv[0],0,1)) == "_" ; _i++
			{
				_argv[0] = ERASE(_argv[0],0,1)
			}
			if _chr == "" ; break // 終端なら抜ける

			//---- １文字削除する
			_argv[0] = ERASE(_argv[0],0,1)

			if     _chr == "0" && _i == 0 ; _str += "（０）"
			elseif _chr == "1" && _i == 0 ; _str += "（１）"
			elseif _chr == "\" && _i == 0 ; _str += "\"
			else
			{
				case SUBSTR(_argv[0],0,1)
				{
					//---- １桁数字を取り除く
					when "0","1","2","3","4","5","6","7","8","9"
					{
						_argv[0] = ERASE(_argv[0],0,1)
					}

					//---- "[" から "]" を取り除く（ネストに対応）
					//---- "\]" を考慮に入れる
					when "["
					{
						_argv[0] = ERASE(_argv[0],0,1)

						_chr = ""
						_nest = 0
						while _nest >= 0
						{
							_old = _chr
							_chr = SUBSTR(_argv[0],0,1)
							if     _chr == "" ; break // 終端なら抜ける
							elseif _chr == "["                ; _nest++
							elseif _chr == "]" && _old != "\" ; _nest--
							_argv[0] = ERASE(_argv[0],0,1)
						}
					}
				}
			}
		}
	}

	//---- 見栄えを良くする
	_str = REPLACE(_str,"（０）（１）","（１）")
	_str = REPLACE(_str,"（１）（０）","（０）")
	_str = REPLACE(_str,"（０）（０）","（０）")
	_str = REPLACE(_str,"（１）（１）","（１）")

	_str
}