思路与方法：
公司主营业务：网站建设、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出叶集免费做网站回馈大家。
1，一行为读取单位，读取并保存到数组。
2，逆序循环，可以获得末尾空白行数。
3，以行为写单位，写入到文件。
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
你是要把连续多个空格，变换成只需要一个空格，那么：
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop