Question

关于VB读取DAT文件的请教，谢谢

我有一个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文件，究竟是以哪种读的方式比较好

Answer 1

vb是把中文算一个字符的。
有个API函数可以把中文算作2个字符的，我忘记了，可以去www.vbgood.com的论坛去看看，这里有。

现在没空，先留个印，等有空做个