我想用VB读取dat文件的每一行要怎么弄?
比如我窗体上有七个文本框text1,text2,text3,text4,text5,text6,text7,两个按钮command1,command2,一个选择框comb...
比如我窗体上有七个文本框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我倒是会,就是如果电脑上没安装的话就不可以用了。 展开
我想单击command1按钮保存一个以text1为标题,text2,text3,text4,text5,text6为内容的dat文件。
text2,text3,text4,text5,text6各占一行。
在text7内输入文本后,单击command2按钮,按任意一种查询,都可以读取文件。读取的资料分别显示在text1,text2,text3,text4,text5,text6中。
如图:
如果dat无法实现,其他的要怎么用?
用access我倒是会,就是如果电脑上没安装的话就不可以用了。 展开
展开全部
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访问没有问题的
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表?
。。。我没试过,还以为不可以呐!
展开全部
用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 '关闭
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'试试这个
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
担心这么多,就用ini文件呗
还可以先判断指定的目录下是否有你要的ini文件,没有就新建一个,然后往里面写
ini读写可以百度一下,每条信息都有个标题,有个头~~~~~~一两句话也说不清楚,反正读写很方便
还可以先判断指定的目录下是否有你要的ini文件,没有就新建一个,然后往里面写
ini读写可以百度一下,每条信息都有个标题,有个头~~~~~~一两句话也说不清楚,反正读写很方便
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询