>>573
while TRUE
 name = BetweenStr(文章, "この人の名前は", "さんです。")
 if name = EMPTY then break
 文章 = Replace(文章, "この人の名前は" + name + "さんです。", "")
wend

だけでいいよ