VB6与VB.NET读取文件中部数据输出不一致原因咨询

原VB6实现代码：

Dim Chunk As String * 100
Open files(i) For Binary As #ff1
MyLen = LOF(ff1)
Get #ff1, MyLen / 2, Chunk
For i = 1 To 100
    f = Asc(Mid(Chunk, i, 1)) ' 注：原代码中变量名ff应为Chunk，属于笔误
    Debug.Print Right("00" & Hex(f), 2); " ";
Next
Close #ff1

在VB.NET中实现相同逻辑后，仅部分文件输出匹配，多数文件的中点起始位置始终不一致，怀疑与索引基、LOF/2非整数有关，需明确原因。

核心差异点 #

• 索引基不同：
  VB6的Get语句使用1基索引，文件的第一个字节位置是1；而VB.NET的文件操作（如FileStream、BinaryReader）默认是0基索引，第一个字节位置为0。这是位置偏移的核心原因。

• 非整数起始位置的处理逻辑差异：
  VB6中Get的位置参数必须是整数，当MyLen/2为小数时（比如文件长度是奇数），VB6会自动向下取整为整数位置。而VB.NET中如果直接用MyLen/2计算起始位置，若未显式处理整数转换，可能因浮点数精度问题或直接使用非整数偏移导致位置错误。

• 原VB6代码的笔误：
  原代码循环中使用Mid(ff, i, 1)，但实际存储读取数据的变量是Chunk，这属于代码错误，若VB6中未定义ff变量会直接报错，需先修正此笔误才能保证VB6逻辑正确。

VB.NET修正实现示例 #

要和VB6逻辑完全对齐，需处理索引转换和非整数位置的取整：

Dim chunk(99) As Byte ' 用字节数组替代固定长度字符串，避免编码问题
Using fs As New FileStream(files(i), FileMode.Open, FileAccess.Read)
    Dim fileLength As Long = fs.Length
    ' 转换为VB6的1基起始位置，再转0基：向下取整MyLen/2，再减1
    Dim startPos As Long = Math.Floor(fileLength / 2) - 1
    ' 确保起始位置不小于0，且读取后不超出文件范围
    If startPos < 0 Then startPos = 0
    If startPos + 100 > fileLength Then startPos = fileLength - 100

    fs.Seek(startPos, SeekOrigin.Begin)
    fs.Read(chunk, 0, 100)

    ' 打印十六进制格式
    For Each b As Byte In chunk
        Debug.Write($"{b:X2} ")
    Next
End Using

内容的提问来源于stack exchange，提问作者Kirk