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

[rlx]

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

[用户 昵称]

dat文件一般是电影

[programart_life]

Dat一般是电影？我机器上的Dat大部分不是电影。呵呵！

既然是你自己定义的文件，就用你自己编写的软件去打开好了。
别人的Dat都有自己的格式，你在打开并操作前，最好先知道它的格式是如何定义的。

[rlx]

是这样的,下面的一段代码是一个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

[rlx]

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

[holydiablo]

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

[rlx]

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

[rlx]

up

[pirateRocy]

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

[longo]

去DOS下,键入TYPE *.DAT

[rlx]

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