
关于VB读取DAT文件的请教,谢谢
我有一个DAT文件,想读取里面某行第7-14列的内容,比如第6行的第7-14列放着“上海1A”或“SHAN1A”,我现在要把这个给读取出来,但按你写的程序段,是先将读取到...
我有一个DAT文件,想读取里面某行第7-14列的内容,比如第6行的第7-14列放着“上海1A ”或“SHAN1A ”,我现在要把这个给读取出来,但按你写的程序段,是先将读取到的每行转化为字符,然后才进行处理,我修改成下面程序段后,读取到这一行时,如果这一行是“上海1A ”,那么程序读取并显示出来成了“上海1A XX”,如果这一行是“SHAN1A ”,那么程序读取并显示出来是“SHAN1A ”,前者不是我想要的,我想每一次读取某行7-14列,但如何保证存在汉字时能够读取到我所要的数据呢,就像上面说的,我希望Bname = Mid(strLine, 7, 8)这一句带回来字符串“上海1A ”或“SHAN1A ”,请问如何实现,谢谢?
Private Sub Command1_Click()
'On Error Resume Next
Dim objFso
Dim objTs
Dim nLineCount As Integer
Dim strLine 'As String
Dim Bname As String
nLineCount = 0
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTs = objFso.OpenTextFile("D:\dat\stulnfo.dat", MODE_READ)
Do While Not objTs.AtEndOfStream
nLineCount = nLineCount + 1
strLine = objTs.ReadLine '读取当前行赋给strLine
'做些其他处理,比如从11行的第三列开始输出到窗体
Bname = Mid(strLine, 7, 8)
If Bname = "上海1A " Then
MsgBox Bname
Form1.Print Bname
End If
Loop
objTs.Close
Set objTs = Nothing
Set objFso = Nothing
End Sub
另外,如果在15-20列是浮点数,比如说存储250.2或者15.23或者1.562,我想从EXCEL读取浮点数来替换这几列存储的数字,比如说EXCEL表中第1行第1列存在256.3,我现在要将这个数替换15.23,应该如何做?
现在主要是 Fso如何在DAT文件中修改某行数据,仍不知道,或者有哪个高手能不能帮忙分析下DAT文件,究竟是以哪种读的方式比较好 展开
Private Sub Command1_Click()
'On Error Resume Next
Dim objFso
Dim objTs
Dim nLineCount As Integer
Dim strLine 'As String
Dim Bname As String
nLineCount = 0
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTs = objFso.OpenTextFile("D:\dat\stulnfo.dat", MODE_READ)
Do While Not objTs.AtEndOfStream
nLineCount = nLineCount + 1
strLine = objTs.ReadLine '读取当前行赋给strLine
'做些其他处理,比如从11行的第三列开始输出到窗体
Bname = Mid(strLine, 7, 8)
If Bname = "上海1A " Then
MsgBox Bname
Form1.Print Bname
End If
Loop
objTs.Close
Set objTs = Nothing
Set objFso = Nothing
End Sub
另外,如果在15-20列是浮点数,比如说存储250.2或者15.23或者1.562,我想从EXCEL读取浮点数来替换这几列存储的数字,比如说EXCEL表中第1行第1列存在256.3,我现在要将这个数替换15.23,应该如何做?
现在主要是 Fso如何在DAT文件中修改某行数据,仍不知道,或者有哪个高手能不能帮忙分析下DAT文件,究竟是以哪种读的方式比较好 展开
展开全部

2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询