如何在vb中实现将对象数据保存至txt文件?

具体说,类似于一个输入文本框如textbox,想将其中的数据直接保存到某个txt文件中,当然临时生成一个txt文件用于保存最好,请问应该用什么方法实现这种功能,此外顺便请... 具体说,类似于一个输入文本框如textbox,想将其中的数据直接保存到某个txt文件中,当然临时生成一个txt文件用于保存最好,请问应该用什么方法实现这种功能,此外顺便请教如何实现txt文件的读取,谢谢~~ 展开
 我来答
狄烁
推荐于2016-03-10 · TA获得超过185个赞
知道小有建树答主
回答量:133
采纳率:0%
帮助的人:0
展开全部
读写代码如下:
Private Sub Command1_Click()
'写文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容

strFileName = "c:\w.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = "这些文字将被写入文件。"
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub

Private Sub Command2_Click()
'读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = "c:\b.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量,由于Line Input去掉了换行符,所以这里补上
strAll = strAll & strLine & vbCrLf
Loop
'显示得到的全部分内容
MsgBox strAll
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式