vbs打开文件循环记录所有内容