Question

我想用VB读取dat文件的每一行要怎么弄？

比如我窗体上有七个文本框text1,text2,text3,text4,text5,text6,text7，两个按钮command1,command2,一个选择框combo1。
我想单击command1按钮保存一个以text1为标题，text2,text3,text4,text5,text6为内容的dat文件。
text2,text3,text4,text5,text6各占一行。
在text7内输入文本后，单击command2按钮，按任意一种查询，都可以读取文件。读取的资料分别显示在text1,text2,text3,text4,text5,text6中。
如图：

如果dat无法实现，其他的要怎么用？
用access我倒是会，就是如果电脑上没安装的话就不可以用了。

Answer 1

Private Sub Command1_Click()
Open app.path & "\" & text1.text & ".dat" For input As #1
Print #1, text2.text
Print #1, text3.text
Print #1, text4.text
Print #1, text5.text
Print #1, text6.text

Close #1
end sub
查询里边有点问题的，以姓名查询可以其他的因为在文件的内部，存储的方式要变化一下
实际上你是要用dat文件来代替数据库的功能，就要按照楼上说的那种方式来存储数据了,建立一个标准的ini文件作为你的数据库
声明两个api函数来读取写入数据
'读取配置文件
Public Declare Function GetPrivateProfileString& _
Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal AppName As String, _
ByVal KeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnString As String, _
ByVal nSize As Long, _
ByVal FileName As String)
'写入配置文件
Public Declare Function WritePrivateProfileString& _
Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal AppName$, _
ByVal KeyName$, _
ByVal keyDefault$, _
ByVal FileName$)

另外告诉你 用access 就可以了，没有安装的机器上也可以用，只是打不开，vb访问没有问题的

追问

没有安装access的机器上，VB也可以访问access表？
。。。我没试过，还以为不可以呐！

Answer 2

用OPEN打开，用LINE读取每一行即可。

代码如下：

open "C:\1.dat" for input as #1 '打开C:\1.dat，文件号1
do while not eof(1) '文件循环读取到结束
line input #1,temp '读取一行到temp中
'Text1 = text1 & temp '将这一行放到TEXT控件中。按实现需要
Loop '未结束，继续读取
Close #1 '关闭

Answer 3

'试试这个
Option Explicit
Private Sub Command1_Click()
Dim path1 As String
Dim a As String
a = Text2.Text + vbCrLf
a = a + Text3.Text + vbCrLf
a = a + Text4.Text + vbCrLf
a = a + Text5.Text + vbCrLf
a = a + Text6.Text + vbCrLf
path1 = App.Path + "\" + Text1.Text + ".dat"
'保存文本
Open path1 For Output As #1
Print #1, a
Close #1
MsgBox "保存完成"
End Sub
Private Sub Command2_Click()
Dim path1 As String
Dim sHang As String
Dim sText As String
Dim m
path1 = App.Path + "\" + Text7.Text + ".dat"
'读文本
Open path1 For Input As #1
Do While Not EOF(1)
Line Input #1, sHang
sText = sText + sHang + "`"
Loop
Close #1
m = Split(sText, "`")
Text2.Text = m(0)
Text3.Text = m(1)
Text4.Text = m(2)
Text5.Text = m(3)
Text6.Text = m(4)
End Sub

Answer 4

担心这么多，就用ini文件呗
还可以先判断指定的目录下是否有你要的ini文件，没有就新建一个，然后往里面写
ini读写可以百度一下，每条信息都有个标题，有个头~~~~~~一两句话也说不清楚，反正读写很方便