如何指定文字插入txt每行开头等2个问题?(在线等待!)

来源：百度知道 编辑：UC知道 时间：2024/06/07 04:55:38
请求帮助!
我想写一个能把指定文字插入txt每行开头,

可是总是插入在每行的后面,

如:

未插入: aa

插入后: aa bb

我想把这个"bb"插在开头!

如:

未插入: aa

插入后: bb aa

有没有办法帮我解决?

Help Me!

Thank you!

还有一个问题就是
在VB程序运行下,运行一个txt文本文件,如果那个文件不存在目录下,
就创建一个新的同名的txt文件!

在线等待!

能把代码写出来最好!

谢谢!
如果回答得好,我再加!

这个是vb的,我需要代码!

刚才忘记把标题写好了!

一楼所说的,虽然算好,可是太麻烦了,我就是想要比较快捷的!

一、插入文字：
Dim tmp As String
Const WENZI = "你的文字"
Open "输入文件地址" For Input As #1
Open "输出文件地址" For Output As #2

Do Until EOF(1)
Line Input #1, tmp
Print #2, WENZI & tmp
Loop

Close #2
Close #1

二、判断文件：
Dim tmp As String
Dim strfile As String
strfile = Dir(App.Path & "\文件.txt") '判断文件是否存在
If strfile <> "" Then '如存在则把内容写入text
'读取文件
Else '如不存在则创建一个文件。
Open App.Path & "\文件.txt" For Output As #1
Close #1
End If

其实你可以用Word来编辑,然后再另存,另存时看看文件名下面的保存类型,选择“纯文本”既是TXT格式