!! --- 青空文庫のテキストにルビを振る ---
!! ---        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))-8
  カット()  
  範囲モード(1)
  範囲始点( )
  前文字(%字数)
  範囲終点()
  傍点(1)   !!「、」
 end if
loop
!!↑↑傍点の処理↑↑

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