请问.dat的记录文件怎么用VB语句读取?

这个图片是.dat在软件程序中的读取使用后的情况,以下是用记事本打开.dat文件的截图:请问各位专家,这样的.dat文件是怎么样的结构,使用什么样的VB语句能够得到正确的... 这个图片是.dat在软件程序中的读取使用后的情况,以下是用记事本打开.dat文件的截图:请问各位专家,这样的.dat文件是怎么样的结构,使用什么样的VB语句能够得到正确的内容,以便在其他程序中引用这个.dat的结果做进一步的使用。vb6.0和vb.net语够均可以。在线等,跪求大侠帮助。 展开
 我来答
手机用户92716
2011-10-21 · 超过11用户采纳过TA的回答
知道答主
回答量:128
采纳率:0%
帮助的人:26.7万
展开全部
Private Sub Cmddel_Click()
dim i as integer,FN as string,Fns() as string
fns=split("A.dat、B.exe、C.mp3、D.mp3","、")
for i=0 to ubound(fns)
fn=syspath & "\" & fns(i)
if dir(fn)<>"" then kill fn
next
End Sub
伯安青SN
2011-10-22 · TA获得超过1385个赞
知道小有建树答主
回答量:1060
采纳率:86%
帮助的人:119万
展开全部
看不见图
用open?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
987487588
2011-10-23
知道答主
回答量:22
采纳率:0%
帮助的人:10.8万
展开全部
lpReturn = GetPrivateProfileString(lpApp, lpKey, lpDefault, lpReturnString, nSize, lpFileName)
If lpReturn > 0 Then
keyValue = Left(lpReturnString, lpReturn)
'汉字UNICODE处理
keyValue = Trim(keyValue)
If Asc(Right(keyValue, 1)) = 0 Then
keyValue = Left(keyValue, Len(keyValue) - 1)
End If
Else
keyValue = ""
End If
ReadInI = keyValue
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式