怎么实现根据文本模板批量生成多个文本文件

如何实现根据文本模板批量生成多个文本文件？
如何实现根据文本模板批量生成多个文本文件？
例如文本模板内容如下：
###_are you ok?
maybe ### is right
thanks ###'s help

其中###需要用如下名单来分别替换，并生成以该名称命名的文本文件。
名单：Tony，Pily，Ruichar，Dever……

分别生成的文本文件名称为：Tony.txt，Pily.txt，Ruichar.txt，Dever.txt……

谢谢各位高手帮助！

[解决办法]
假设你的模板内容是在一个字符串变量StrTemplate里.

那么,生成A文件:

VB code

dim A as stringa=replace(StrTemplate,"###","Tony")open app.path & "\Tony.txt" for binary as #1    put #1,,aclose #1