このディレクトリの索引

# #522 # ●正規表現の使用環境 # PHP5.29 # # ●検索か置換か? # 検索 # # ●説明 # :より前の記号部分を取得したい。 # # ●対象データ # 5789:石鹸 # w555-2:タオル # Zxcvb:ハンガー # # ●希望する結果 # 5789 # w555-2 # Zxcvb # ':より前の記号部分を取得したい。'(_行ならび,_置換された行ならび) :- findall(_コロンより前の記号部分,( とり出された行のコロンより前の記号部分(_行ならび,_コロンより前の記号部分)),_置換された行ならび). とり出された行のコロンより前の記号部分(_行ならび,_コロンより前の記号部分) :- append(_,[_行|_],_行ならび), コロンより前の記号部分(_行,_コロンより前の記号部分). コロンより前の記号部分(_行,_コロンより前の記号部分) :- sub_atom(_行,_コロンの位置,1,_,':'), sub_atom(_行,0,_コロンの位置,_,_コロンより前の記号部分),!.