正規表現

//Sで渡される文字列若しくは配列から全メアドを抽出して配列で返す。
●メアド抽出({文字列}Sから)
　PTとは文字列。結果とは配列。
　PT=『([a-zA-Z0-9!$&*.=^`|~#%'+\/?_{}-]+@([a-zA-Z0-9_-]+\.)+[a-zA-Z]{2,4})』
　S=SをSJIS変換
　S=Sの改行を" "に置換
　SがPTに正規表現マッチの間
　　結果に抽出文字列[0]を一行追加
　　S=Sの抽出文字列[0]を""に置換
　　抽出文字列=""。
　ここまで
　結果で戻る。
　　
//Sで渡される文字列若しくは配列から全URLを抽出して配列で返す。
●URL抽出({文字列}Sから)
　PTとは文字列。結果とは配列。
　PT=『((http://|https://|\./|www.)+[\w\d/%#$&?()~_.=+-:]+)』
　S=SをSJIS変換
　S=Sの改行を" "に置換
　SがPTに正規表現マッチの間
　　結果に抽出文字列[0]を一行追加
　　S=Sの抽出文字列[0]を""に置換
　　抽出文字列=""。
　ここまで
　結果で戻る