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


!!↓↓縦中横の処理↓↓
文書頭( )
%ret = 1
do until %ret = 0
 %ret = 正規表現検索( "［＃「[^」]+」は縦中横］",1 )
 if(%ret<>"")then
  %ルビ = GetString(  )
  if(MaxSize(%ルビ)>1) then 
   %ルビ(1) = %ルビ(1) & %ルビ(2)
  end if
  %字数 = Len(%ルビ(1))-9
  カット()  
  範囲モード(1)
  範囲始点( )
  前文字(%字数)
  範囲終点()
  縦中横( )
 end if
loop
!!↑↑縦中横の処理↑↑

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