>>543
//UWSCで普通に書けるよ


文章 = "あいうえお。この人の名前はAAさんです。この人の名前はBBさんです。この人の名前はCCさんです。この人の名前はDDさんです。この人の名前はEEさんです。かきくけこ。"

WHILE 名前サーチ(文章) <> ""

IFB 名前サーチ(文章) <> ""
文章 = REPLACE(文章 , "この人の名前は" + 名前サーチ(文章) + "さんです。" , "")
ENDIF

WEND

msgbox(文章)

FUNCTION 名前サーチ(a)
RESULT = BETWEENSTR(a,"この人の名前は","さんです。")
IFB RESULT = TRUE;RESULT = BETWEENSTR(a,"この人の名前は","さんです。");ENDIF
FEND