!! --- 青空文庫のテキストにルビを振る ---
!! ---        for 一太郎2018          ---
!! ---          ver1.31b               ---

!!↓↓字下げの処理↓↓
文書頭()
%ret=1
do until %ret = 0
 %ret = 正規表現検索("［＃ここから.字下げ］",1)
 if(%ret > 0 ) then
  %文字 = GetString()
  %数 = han(Mid(%文字(1),7,1))*2
  if(%数>0)then
   削除()
  else
   continue do
  end if
  %ページ(1)= GetPage()
  %行(1) = GetRow()   
  %ret = 正規表現検索("［＃ここで字下げ終わり］",1)
  %ページ(2)=GetPage()
  %行(2) = GetRow()
  削除
  ジャンプ(%ページ(1),%行(1),1)
  範囲モード(2)
  範囲始点()
  ジャンプ(%ページ(2),%行(2),1)
  範囲終点()
  インデント(1,%数)
 end if
loop
!!↑↑字下げの処理↑↑

!!↓↓一行だけの字下げの処理↓↓
文書頭()
%ret=1
do until %ret = 0
 %ret = 正規表現検索("［＃.字下げ］",1)
 if(%ret > 0 ) then
  %文字 = GetString()
  %数 = han(Mid(%文字(1),3,1))*2
  if(%数>0)then
   削除()
  else
   continue do
  end if
  インデント(1,%数)  
 end if
loop
!!↑↑一行だけの字下げの処理↑↑

!!↓↓地付きの処理↓↓
文書頭()
%ret=1
do until %ret = 0
 %ret = 正規表現検索("［＃地付き］",1)
 if(%ret > 0 ) then
  %文字 = GetString()
  %数 = Len(%文字(1))*2
  if(%数>0)then
   削除()
  else
   continue do
  end if
  %ページ(1)= GetPage()
  %行(1) = GetRow()
  行頭()
  %ページ(2)=GetPage()
  %行(2) = GetRow()
  ジャンプ(%ページ(1),%行(1),1)
  範囲モード(2)
  範囲始点()
  ジャンプ(%ページ(2),%行(2),1)
  範囲終点()
  右寄せ( )
 end if
loop
!!↑↑地付きの処理↑↑

!!↓↓地から＊字上げの処理↓↓
文書頭()
%ret=1
do until %ret = 0
 %ret = 正規表現検索("［＃地から.字上げ］",1)
 if(%ret > 0 ) then
  %文字 = GetString()
  %数 = han(Mid(%文字(1),6,1))*2
  if(%数>0)then
   削除()
  else
   continue do
  end if
  %ページ(1)= GetPage()
  %行(1) = GetRow()
  行頭()
  %ページ(2)=GetPage()
  %行(2) = GetRow()
  ジャンプ(%ページ(1),%行(1),1)
  範囲モード(2)
  範囲始点()
  ジャンプ(%ページ(2),%行(2),1)
  範囲終点()
  右寄せ( )
  インデント(1,0,%数)  
 end if
loop
!!↑↑一行だけの字下げの処理↑↑

文書頭()
文字全置換("“","��",3,0,0)