-
1.如何将excel中的数据改成dat文件格式
我想你要的是这个：
如何快速把excel
转换成dat
文本文件（制表符分隔）PS
数据很多
点号1,X1坐标，Y1坐标，
高程1
点号1,X2坐标，Y2坐标，
高程2
点号n,Xn
坐标，Yn
坐标，
高程n
1.
请将txt
文档记录的坐标导入到EXCEL
中，
步骤如下：
EXCEL
程序中，[文件]-〉[打开]，打开对话框的文件类型下拉列表中选择“所有文件”，选中你的坐标数据.TXT
文件后单击[打开]，在向导对话框中的“分隔符号”选择[逗号]后，单击
[下一步]按钮直到[完成]按钮，就把你的坐标数据导入了EXCEL
里啦。
2.
修改EXCEL
各列数据的顺序如下：
[第一列：点号]
[第二列：空列]
[第三列：Y
坐标值}]
[第四列：X
坐标值]，第五列：高程值]
3.[文件]-〉[另存为。]-〉另存为对话框中，文件类型下拉列表中选择“CSV（逗号分隔符）*.csv”格式，单击[保存]后，退出EXCEL
4.
将保存的“坐标数据.CSV”的文件扩展名改为“坐标数据.dat”，这个文件就可以在CASS
中展绘坐标点了。
2.wps2010记事本文件怎样转换成dat文件
dat格式可以是包括很多文件内容的。
有多是加密的内容，数据库内容，视频内容，或是软件自己的编码内容。要针对不同情况分别处理。
1、加密后的东西，需要先使用对应的解密工具才可以。但你不知道人家用甚么加的密，所以解决起来比较困难。
2、是数据库内容的话，请尝试使用数据库编辑软件打开，然后另存为。3、是视频内容的话，是没法保存为TXT文件的。
即便你保存为TXT文件也是没有用途的。4、软件自己的编码内容，是指由生成这个文件的利用程序（和奶油可能并不是是正规的编码机制）编译生成的，就很难办了。
如果该DAT文件没有加密或重新编码的话，直接用记事本打开就能够看了.但是如果DAT文件经过处理，其他人要想正常的调阅里面的文字可能就比较困难了.据我所知，目前是没有DAT转TXT的软件的，而且我相信未来也不会有吧。
3.怎么才能把excel文件格式转化为dat格式
1、首先单击excel表单左上角的“文件”选项。
2、单击打开页面中的“另存为”选项，然后单击“浏览”按钮。
3、选择"CSV（逗号分隔符）*的格式。在“打开保存”对话框中，单击“保存”。
4、关闭打开的excel表单，并切换到保存CSV格式文件的位置。
5、右键单击文件并选择重命名，直接将CSV扩展名更改为dat扩展名。
4.怎样把excel转换为dat格式
楼主的DAT文件是晶圆测试后生成得图形数据文件哦。有意思，既然有转换的工具了为什么还要自己做哪？
'做法：
'1，全面了解DAT的文件结构 ，用TYPE 定义一个类型。
Type typDat '每列30字节
Dat(1 to 30) as Byte
End Type
Type typDatFile 'Dat文件 结构
Operator_Name as String * 20
Device_Name as String * 17
'。 自己研究文件结构
GUIDat(1 to 28) as typDat '28行
Enf Type
'2，读入文件
Dim DatFile as typDatFile '声明
Open YouPath & "\1.dat" For Random As #1 Len = len(DatFile)
Get #1, 1, typDatFile '加载文件
Close #1
'3，写入EXCEL
'。引用EXCEL应用库，怎么使用CSDN大把说明
Sheet1.Rang("A1") = typDatFile.Operator_Name '写 入名字
'。。省略N行 ---------回复-------------- 给楼上的作一下补充，其实那个xls并不是Excel文件，而是一个标准的文本文件，只是扩展名是xls而已，用ultraedit或者随便一个文本编辑器打开一看便知，所以就作为一个 普通文本文件写入就行了，无需引用Excel库什么的。 ---------回复-------------- 谢谢两位，我试试看行不行，我的转换工具只能一片一片的。楼主的DAT文件是晶圆测试后生成得图形数据文件哦。有意思，既然有转换的工具了为什么还要自己做哪？
'做法：
'1，全面了解DAT的文件结构 ，用TYPE 定义一个类型。
Type typDat '每列30字节
Dat(1 to 30) as Byte
End Type
Type typDatFile 'Dat文件 结构
Operator_Name as String * 20
Device_Name as String * 17
'。 自己研究文件结构
GUIDat(1 to 28) as typDat '28行
Enf Type
'2，读入文件
Dim DatFile as typDatFile '声明
Open YouPath & "\1.dat" For Random As #1 Len = len(DatFile)
Get #1, 1, typDatFile '加载文件
Close #1
'3，写入EXCEL
'。引用EXCEL应用库，怎么使用CSDN大把说明
Sheet1.Rang("A1") = typDatFile.Operator_Name '写 入名字
'。。省略N行 ---------回复-------------- 给楼上的作一下补充，其实那个xls并不是Excel文件，而是一个标准的文本文件，只是扩展名是xls而已，用ultraedit或者随便一个文本编辑器打开一看便知，所以就作为一个 普通文本文件写入就行了，无需引用Excel库什么的。 ---------回复-------------- 谢谢两位，我试试看行不行，我的转换工具只能一片一片的转，有点费时，所以我想自己写一个。 ---------回复-------------- happy_sea 看得仔细啊，确实是文本的.
Operator_Name as String * 20 '定义长度为20的串
Device_Name as String * 17 '定义长度为17的串，读入文件时就会对号入座了
用UltraEdit可看到这种DAT文件的结构
