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

rlx 2003-01-20 06:14:12
Open "sendcom.dat" For Random As #1 Len = 6;
用什么软件打开"sendcom.dat"这个文件?
...全文
2020 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
  • 打赏
  • 举报
回复
up
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
programart_life 2003-01-20
  • 打赏
  • 举报
回复
Dat一般是电影?我机器上的Dat大部分不是电影。呵呵!

既然是你自己定义的文件,就用你自己编写的软件去打开好了。
别人的Dat都有自己的格式,你在打开并操作前,最好先知道它的格式是如何定义的。
用户 昵称 2003-01-20
  • 打赏
  • 举报
回复
dat文件一般是电影

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧