主页

数据存储在dat文件中,用什么打开这个dat文件?

rlx 2003-01-20 06:14:12

Open "sendcom.dat" For Random As #1 Len = 6;
用什么软件打开"sendcom.dat"这个文件?

...全文

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

rlx 2003-01-21

感谢以上多们朋友的帮助!
最终解决方案是将数据存在了sendcom.txt一个文本文件中,解决问题.
看书上说Open "sendcom.dat" For Random As #1 Len = 6
是以随机方式打开一个文件(记录长度是定长的).可读可写.
这个文件,还需定义什么?不是以上面的方式定义了吗?

回复赞

longo 2003-01-21

去DOS下,键入TYPE *.DAT

回复赞

pirateRocy 2003-01-21

文件格式的定义只有写程序的人才知道，如果是特殊格式的话，要是他没有文档留下的话，你就惨了，你要破密码了，呵呵！！！

回复赞

rlx 2003-01-21

回复赞

rlx 2003-01-21

这一段程序是前面的人留下的程序,我刚接手,第一次接触VB,还请大家帮助.
看你的回答,好象这是一个自定义的文件格式.能不能再详细说一下.
谢:)

回复赞

holydiablo 2003-01-21

文件格式不是你自己定义的么

回复赞

rlx 2003-01-21

自己顶一下.
这个问题就是VB程序将二进制的数据写入了sendcom.dat这个文件中.
我现在想打开这个文件看一下写入的是否正确.因为读出时,报数据类型不正确.请问用什么软件能打开.因为用VB打开时,它报不能加载sendcom.dat这个文件.记事本打开后,看到的好象是乱码.

回复赞

rlx 2003-01-20

是这样的,下面的一段代码是一个VB6.0应用MSCOMM控件通讯的代码.
其中数据是存储在sendcom.dat文件中.
现在我想打开这个文件,用VB打开这个文件时,显示"文件不能被加载"
用记事本打开后,显示的是一些数字,不是存入的数据.
请问如何打开这个文件?

Private Sub cmdOK_Click()
MSComm1.InBufferCount = 0 '清除接收缓冲区
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.RThreshold = 1 '设置接收一个字节产生OnComm事件
MSComm1.InputLen = 1 '设置一次接收缓冲字节数为1
MSComm1.InputMode = comInputModeBinary

If MSComm1.PortOpen = False Then

If Option1.Value Then MSComm1.CommPort = 1
If Option2.Value Then MSComm1.CommPort = 2
If Option3.Value Then MSComm1.CommPort = 3
If Option4.Value Then MSComm1.CommPort = 4
MSComm1.Settings = cbospeed.Text & ",N,8,1"
MSComm1.PortOpen = True
If Err Then
MsgBox "Communication error!"
Exit Sub
End If
Else
MsgBox "The port has opened!"
End If

Dim sendarr() As Byte
Dim send As Variant
ReDim sendarr(0)
'send(0) = "11111110"
sendarr(0) = CByte(166)
send = sendarr
MSComm1.Output = send
End Sub

Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
MsgBox "Please set port at first!"
Exit Sub
End If
Dim read(30) As String
Dim i As Integer

Open "sendcom.dat" For Random As #1 Len = 6
For i = 0 To 25
Get #1, i + 1, read(i)
data(i) = CByte(read(i))
Next i
Close #1

Dim send As Variant
send = data
MSComm1.Output = send
'MsgBox "Data had been send!"
End Sub

回复赞