このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/555
#   /身長:(\d+)\n体重:(\d+)/ 
#  という正規表現に対し、例えば 
#   "身長:175\n体重:67" 
#  という文字列がきたら 
#   "身長:<font color="red">175</font>\n体重:<font color="blue">67</font>" 
#  のようにHTMLタグを追加したい。 
#   
#  ただし 
#   "身長:100\n体重:100" 
#  のように身長と体重が同じ場合も身長は赤、体重は青にしたい。 
#   
#  もっと欲をいえば正規表現は身長・体重だけでなく 
#   /年齢:(\d+)\n好きな食べ物:(\S+)/ 
#  のように可変にしたい。 
#   
# 
# 

'A:Va\nB:Vb 形式のデータから A: VaB: color="青">VbのようにHTMLタグを追加したい。ただし、Va=Vbのときはカラーを赤、青としたい'(_属性1,_属性2,Lines1,Lines2) :-
        atom_chars(_属性1,_属性文字ならび1),
        atom_chars(_属性2,_属性文字ならび2),
        findall(Line2,(
                    append(_,[Line1|_],Lines1),
                    sub_atom(Line1,_,_,_,S1,S2,S3,L1,L2,L3),
                    append(_属性文字ならび1,[':',' '|R22],L2),
                    append(_属性文字ならび2,[':',' '|R33],L3),
                    concat_atom(R22,Va),
                    append(L0,[A|R4],R33),
                    concat_atom(L0,Vb),
                    \+(append(_,[A|_],['0','1','2','3','4','5','6','7','8','9'])),
                    concat_atom([S1,_属性1,': ',Va,'',_属性2,': ',Vb,''],Line2)),
                Lines2).