网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,082贴子：1,166,235
  • 2回复贴，共1页

求助 txt文件保存问题

Private Sub Command1_Click()
On Error GoTo connerror
CommonDialog1.DialogTitle = "保存文件"
CommonDialog1.InitDir = ""
CommonDialog1.FileName = ""
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
Open fname For Output As #1
Print #1, Text9.Text
Close #1
connerror:
End Sub Private Sub Text1_Change()
a = Text1.Text End Sub
请问这段数据错字啊哪啊


或者
怎么样文本框里的内容保存到为一个txt文件啊


2025-09-15 05:39:43
广告
不感兴趣
开通SVIP免广告
Dim w
Private Sub Command1_Click()
If MsgBox("确认保存？", vbOKCancel, "保存") = vbOK Then
Open "C:\test.txt" For Output As #1
w = Text1.Text
Print #1, w
'............
Close #1
End If
End Sub Private Sub Command4_Click()
Text1.Text = ""
Open "C:\test.txt" For Input As #1
Do While Not EOF(1)
w = w + Input(1, #1)
Loop
Close #1
Text1.Text = ""
Text1.Text = w
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 2回复贴，共1页
分享到: