vba adodb读取文本文件

write2TextFile里的strbuf = .readtext，表示是读取文件内容，此时游标在所有文本后面，写入内容的话就变成追加。建议换行后再写新内容。
如果注释掉strbuf = .readtext，就从文件头开始写。如果新文本长度大于原内容长度，相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345新内容是666，写完就是66645。似乎adodb.stream没有删除文本的功能，所以函数里直接删除文件再创建了。