Question

vb操作dat文件

我有一个dat文件，里面存储着一些数据文件，格式如下：姓名 工号 性别 成绩。。。很多条记录，我先选择出性别为“男”的所有数据，显示道textbox上，然后可以将显示出的文件存储到磁盘上。
各位高手请支招啊！

Answer 1

没有具体的数据格式，不好编代码

open app.path & "\suju.dat" for input as #1
do while not eof(1)
line input #1,aa
if mid(aa,10,1)="男" then '10是随便写的，按照具体数据更改
bb=bb & aa & vbcrlf
endif
loop
text1=bb
close 1

如果字段之间是一个空格分割，也可以这样
open app.path & "\suju.dat" for input as #1
do while not eof(1)
line input #1,aa
if split(aa," ")(2)="男" then
bb=bb & aa & vbcrlf
endif
loop
text1=bb
close 1

'保存
open app.path & "\out.dat" for append as #1
print #1,bb;
close