このディレクトリの索引
#  ●Regular Expressionの使用環境 
#  サクラエディタ 2.1.1.1
#  
#  ●検索か置換か? 
#  置換
#  
#  ●説明 
#  []内の文字だけにしたい
#  ※ [ と ] と (半角スペース)の3つを消したい
#  
#  ●対象データ 
#  [あいうえお] ←最後に半角スペースあり(以下同じ)
#  [カキクケコ] 
#  [AIUEO] 
#  [漢字等々] 
#  
#  ●希望する結果 
#  あいうえお←最後の半角スペースも消したい(以下同じ)
#  カキクケコ
#  AIUEO
#  漢字等々 


'[]内の文字だけとしたい'(_文字列,_変換されたデータ) :-
        '[]内の文字だけとしたい'(_文字列,S1,S2_2,S3),
        '[]内の文字だけにしたい'(S3,S3_2),
        atomic_list_concat([S1,S2_2,S3_2],_変換されたデータ),!.
'[]内の文字だけとしたい'(_文字列,_文字列).

'[]内の文字だけとしたい'(_文字列,S1,S2_2,S3) :-
        sub_atom(_文字列,S1,S2,S3,L1,L2,L3),
        sub_atom(S2,0,1,_,'['),
        sub_atom(S2,_,1,0,']'),
        '[]とスペースを削除する'(S2,S2_2),!.

'[]とスペースを削除する'(S2,S2_2) :-
        '[]を削除する'(S2,S2_1),
        スペースを削除する(S2_1,S2_2).

'[]を削除する'(S2,S2_1) :-
        sub_atom(S2,1,_,1,S2_2).

スペースを削除する(S2_1,S2_2) :-
        findall(A,(
                    スペースでない文字を取り出す(S2_1,A)),
                L),
        atom_chars(S2_2,L).

スペースでない文字を取り出す(S2,A) :-
        sub_atom(S2,_,1,_,A),
        \+(A = ' ')).