このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1268979408/209
#  さくらエディタを使っていて 
#   
#  CHAPTER01=00:00:00.000 
#  CHAPTER01NAME=第一部 オープニング 
#  CHAPTER02=00:09:13.400 
#  CHAPTER02NAME=オラはにんきもの 
#   
#  こういうのを 
#   
#    TRACK 01 AUDIO 
#      TITLE "第一部 オープニング" 
#      INDEX 01 00:00:00 
#    TRACK 02 AUDIO 
#      TITLE "オラはにんきもの" 
#      INDEX 01 09:13:40 
#   
#  こうしたいんですが、正規表現でできるもんなんでしょうか 
#  できるとしたら答えを貰えるのが一番ですが、どこら辺を調べればいいのかヒントをもらえないでしょうか 
# 
# 

変換(_ファイル名) :-
      get_lines(_ファイル名,Lines),
      変換規則('TRACK',Lines,TRACK,S1),
      変換規則('TITLE',Lines,TRACK,S2),
      変換規則('TIME',Lines,TRACK,S3),
      write_formatted('%t\n%t\n%t\n',[S1,S2,S3]),
      fail.      
変換(_).

変換規則('TRACK',Lines,TRACK,S) :-
      member(_文,Lines),
      sub_atom(_文,0,7,_,H,'CHAPTER',T,HL,XL,TL),
      append(L0,['='|R2],TL),
      \+(append(_,['N','A','M','E'],L0)),
      concat_atom(L0,TRACK),
      concat_atom(['TRACK',' ',TRACK,' ','AUDIO'],S).

変換規則('TITLE',_Lines,TRACK,S) :-
      member(_文,Lines),
      sub_atom(_文,0,7,_,H,'CHAPTER',T,HL,XL,TL),
      append(L1,['='|R],TL),
      append(L0,['N','A','M','E'|R2],L1),
      concat_atom(L0,TRACK),
      concat_atom(R,TITLE),
      concat_atom(['  ','TITLE',' "',TITLE,'"'],S).

変換規則('TIME',Lines,TRACK,S) :-
      member(_文,Lines),
      sub_atom(_文,0,7,_,H,'CHAPTER',T,HL,XL,TL),
      append(L0,['='|R2],TL),
      \+(append(_,['N','A','M','E'],L0)),
      concat_atom(L0,TRACK),
      concat_atom(R2,TIME),
      concat_atom(['  ','INDEX',' 01 ',TIME],S).