文章内の指定した文字より前にある文を全削除したい･ﾒﾓ帳などの文章内で､指定した文字より前にある(上にある)文章を全削除｡または指定した文字より後にある(下に…

文章内の指定した文字より前にある文を全削除したい

･ﾒﾓ帳などの文章内で､指定した文字より前にある(上にある)文章を全削除｡または指定した文字より後にある(下にある文章を全削除)が可能になるｿﾌﾄがあれば教えてください｡
これをﾌｫﾙﾀﾞ内にある複数のﾌｧｲﾙに対して一括で処理したいです｡

例えば以下のようなことです｡
------------------------------------------------
：ﾒﾓ帳ﾌｧｲﾙ(1) の本文

今日は買い物をした｡とても疲れたが楽しかった｡
休日だったので人がとても多かった｡

明日のｽｹｼﾞｭｰﾙは朝の7時に起きて､学校に向かう｡
-------------------------------------------------
例えば｢明日の｣という文字より上の文章はすべて削除というﾙｰﾙを与えるとします｡
｢今日は?｣から｢多かった｣まで削除という形です｡
すべてのﾌｧｲﾙに｢明日の｣という語句は入っているので､それを指定して､それより前にある言葉はすべて削除にするという設定で処理を行いたいです｡また指定した語句より後にある語句もすべて削除という設定もできれば助かります｡

Windowsであれば､Powershellで可能です｡

param([switch] $r, $in,$ex,$regex)

function funcReplace{
Param([string] $path, [string] $regex)

$enc = [System.Text.Encoding]::GetEncoding("Shift-JIS")
$stream = new-object System.IO.StreamReader($path, $enc)
$text = $stream.ReadToEnd()
$stream.Close()

$ostream = new-object System.IO.StreamWriter($path, $false, $enc)
$ostream.Write( ($text -replace $regex, "") )
$ostream.Close()
}


if($r -eq $false){
Get-ChildItem * -Include $in -exclude $ex | %{ funcReplace -p $_ -r $regex}
}else{
Get-ChildItem * -Include $in -recurse -force -exclude $ex | %{ funcReplace -p $_ -r $regex}
}

上記のｺｰﾄﾞを､Replace.ps1というﾌｧｲﾙに保存したとすると､

Replace.ps1 -r -in *.txt (?s:^.*?(?:=明日の))

で行けます｡
一応私の環境で試してはいますが､本番をする前にｺﾋﾟｰしたﾌｧｲﾙで試してみてからにしてください｡