UC知道VB 存储数据
来源：百度知道 编辑：UC知道 时间：2024/05/28 18:03:43
首先 我不打算 将数据存在 ACCESS内 而是选择存在 TXT内
然后 只存储符合我要求的数据.. 有一条符合 就记录在TXT内一条
谁可以给点思路 有程序最好
Dim tempdata(744) As String * 98
Open 文件名_filename For Random As #1 Len = 100
For i = 0 To datacount
Get #1, i + 1, tempdata(i)
Next i
Close #1
我的这个是 在新建完 TXT文件后 产生一个 744行 每行98字节的数据
是按 位置存储的 若 第1条没有数据 则第1条是空白的
我现在想做到的是 如果第1条没有数据..第2条补上..反正是 按顺序存下来..并且 对 TXT文件 没有行数的限制 也就是无限存储
还有请问有什么控件 DataGrid 是连接ACCESS用的 我存到TXT 可以用吗 有更好的吗
然后 只存储符合我要求的数据.. 有一条符合 就记录在TXT内一条
谁可以给点思路 有程序最好
Dim tempdata(744) As String * 98
Open 文件名_filename For Random As #1 Len = 100
For i = 0 To datacount
Get #1, i + 1, tempdata(i)
Next i
Close #1
我的这个是 在新建完 TXT文件后 产生一个 744行 每行98字节的数据
是按 位置存储的 若 第1条没有数据 则第1条是空白的
我现在想做到的是 如果第1条没有数据..第2条补上..反正是 按顺序存下来..并且 对 TXT文件 没有行数的限制 也就是无限存储
还有请问有什么控件 DataGrid 是连接ACCESS用的 我存到TXT 可以用吗 有更好的吗
open "C:\1.txt" for append as #1
if R符合条件 then
print #1,r
end if
用这段代码可以满足你的要求。
那就加上一个判断：
Open 文件名_filename For Random As #1 Len = 100
For i = 0 To datacount
if tempdata(i)<>"" then
Get #1, i + 1, tempdata(i)
end if
Next i
Close #1