vbs如何在已存在的文本文件中某一行插入内容？

[曲建华]

假如我想在已经存在的文本文件中，图中第三行的第五个字符后面加入一个变量“k”，并保存，该如何写代码？ “*”号代表任意内容?????

[舉杯邀明月]

简单说一下：

参考你最开始的那个处理XML文件的例子，在“读文件”时用一个变量来计数，看当前读的是第几行了。
到了你“要处理的那行”，假设那行内容读到变量 strTemp 中了：

strTemp = left(strtemp ,5) & k & mid(strtemp ,6)
执行这句后，strTemp 的值，就是“前5个字符 + 变量k 的内容 + 原来第6个字符到结尾全部”的内容了。
再写入文件即可…………

[舉杯邀明月]

字符串函数，都是按“字符数”来算的。
在ANSI编码（通常的txt类型都是这种编码）的文本文件中，
　1个英文在文件中占1字节，是1个字符；1个汉字要占2字节，它仍然是1个字符。

[曲建华]

引用 1 楼 舉杯邀明月 的回复:

简单说一下： 参考你最开始的那个处理XML文件的例子，在“读文件”时用一个变量来计数，看当前读的是第几行了。 到了你“要处理的那行”，假设那行内容读到变量 strTemp 中了： strTemp = left(strtemp ,5) & k & mid(strtemp ,6) 执行这句后，strTemp 的值，就是“前5个字符 + 变量k 的内容 + 原来第6个字符到结尾全部”的内容了。 再写入文件即可…………

好的谢谢！那假如这个文件我已经从头读到尾了，如何再重新读一遍呢？

[舉杯邀明月]

引用 3 楼 曲建华 的回复:

[quote=引用 1 楼 舉杯邀明月 的回复:]
简单说一下：
…………

好的谢谢！那假如这个文件我已经从头读到尾了，如何再重新读一遍呢？[/quote]

简单粗暴的方法：　关闭文件，再重新打开。



比较“正经”的方法：　执行一句　seek #fn , 1
fn 是你打开时的文件号，如果在VB/VBA 中使用，这儿的“fn”跟相应的Open语句用相同的常数/变量 就行。

不知道VBS中能否通用，但我感觉是可以用的，尤其是文件号用常数的时候。
比如说，你打开文件时是 open "XXXXXX" for input as #5
那么不管后面读到哪了，执行 seek #5, 1　就可以“从头再来”读……

[舉杯邀明月]

忘记了…………
之前给你的那些“示例代码”，都是用的 TextStream对象来操作的。
刚才查了一下，我还真没有找到这玩意儿“定位到开头”的接口方法。


估计它只支持“向后跳”，不支持“回头”吧。
看来用这个，只有“关闭、再重新创建”了。

[笨狗先飞]

文件全读进内存变量里，操作完，然后保存回文件里，多省事

[舉杯邀明月]

说的也是，一般象几MB、十来MB的文本文件，都很适合全部读到内存中再说……
甚至上百M的都可以全读到内存再处理。

如果要“按行处理”，用字符串数组来存储每一行就行了。

[曲建华]

引用 5 楼 舉杯邀明月 的回复:

忘记了………… 之前给你的那些“示例代码”，都是用的 TextStream对象来操作的。 刚才查了一下，我还真没有找到这玩意儿“定位到开头”的接口方法。 估计它只支持“向后跳”，不支持“回头”吧。 看来用这个，只有“关闭、再重新创建”了。

好的 谢谢！ 我研究研究

[曲建华]

引用 6 楼 笨狗先飞 的回复:

文件全读进内存变量里，操作完，然后保存回文件里，多省事

虽然听不太懂，但还是很感谢，谁让我是菜鸟呢 我研究研究