VB如何实现在一个文件中加入字段

发布网友发布时间：2024-04-02 12:50

共2个回答

热心网友时间：2024-07-24 03:25

问题一：
Open "C:\text.txt" for append as #1 '以添加形式打开文件
print #1, '空一行,要是不空就删去
print #1, "DoneTest"
Close #1

问题二：
可以用replace函数啊（以“被真实遗忘”替换C:\text.txt中的“被遗忘的真实”为例）

dim s as string

Open "C:\text.txt" for input as #1 '读取文件
s=Input(LOF(1), 1) '如果这样读写导致溢出的话
'就这样
'Do While Not EOF(1)
'Line Input #1, Linedate
's = s & Linedate
Close #1

replace(s,"被遗忘的真实","被真实遗忘") '替换
on error resume next '设置错误陷阱

Open "C:\text.txt" for output as #1 '写入文件
print #1,s
Close #1
如果不行的话，给我发信息我再校正，QQ：490573788

热心网友时间：2024-07-24 03:22

只是简单的添加一行文本,可以绕过VB的文件操作方法呵,试试DOS下的吧:

Private Sub Command1_Click()
Shell "cmd.exe /c echo DoneTest >>c:\text.txt", 0
End Sub