关于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文件,究竟是以哪种读的方式比较好
展开
 我来答
cwa9958
2009-12-06 · TA获得超过1885个赞
知道大有可为答主
回答量:2504
采纳率:0%
帮助的人:2058万
展开全部
vb是把中文算一个字符的。
有个API函数可以把中文算作2个字符的,我忘记了,可以去www.vbgood.com的论坛去看看,这里有。

现在没空,先留个印,等有空做个
网易云信
2023-12-06 广告
网易云信提供一站式的 1 对 1 UIKit 组件库,可以更快地搭建 1 对 1 社交平台,能够快速实现音视频呼叫、音视频通话、1对1消息发送、美颜和礼物功能,直接可以复用我们的组件源码就可以了。优势:1、全套1对1 UI组件,接入更快;2... 点击进入详情页
本回答由网易云信提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式