frmMain.vb:
Public CSFStream2 As FileStream
CSFStream2 = New FileStream(Me.strCSFfile, FileMode.Open, FileAccess.Read)
modReadUnitsList.vb：
strCsfName = ReadCSF(frmMain.CSFStream2)
modReadCsf.vb：(by YuriX)
Imports System.Collections.Generic
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text
Module modReadCsf
Public Const FID As Integer = 1129530912
Public Const HID As Integer = 1279413280
Public Const WID As Integer = 0
Structure CsfHeader
Public id As Integer
Public flag1 As Integer
Public count1 As Integer
Public count2 As Integer
Public zero As Integer
Public flag2 As Integer
End Structure
Public Function ReadCSF(ByVal src As Stream) As Dictionary(Of String, KeyValuePair(Of String, String))
Dim br As New BinaryReader(src, Encoding.ASCII)
Dim header As CsfHeader
Dim data1 As Object
header.id = br.ReadInt32()
If header.id = FID Then
header.flag1 = br.ReadInt32()
header.count1 = br.ReadInt32()
header.count2 = br.ReadInt32()
header.zero = br.ReadInt32()
header.flag2 = br.ReadInt32()
data1 = New Dictionary(Of String, KeyValuePair(Of String, String))(header.count1)
For i As Integer = 0 To header.count1 - 1
Dim id As Integer = br.ReadInt32()
If id = HID Then
Dim flag As Integer = br.ReadInt32()
Dim len As Integer = br.ReadInt32()
Dim chs As Char() = br.ReadChars(len)
Dim key As String = New String(chs).ToUpper()
If (flag And 1) <> 0 Then
id = br.ReadInt32()
' label内容类型
' 读字符串（内容）
len = br.ReadInt32()
'长度
Dim value As Byte() = br.ReadBytes(len * 2)
Dim sb As New StringBuilder(len)
For j As Integer = 0 To value.Length - 1 Step 2
Dim sh As Integer = CInt((value(j) + value(j + 1) * 256))
If sh > Int16.MaxValue Then
Dim ch As Char = ChrW(UInt16.MaxValue + 1 + Not sh)
sb.Append(ch)
Else
Dim ch As Char = ChrW(Not sh)
sb.Append(ch)
End If
Next
Dim val As String = sb.ToString()
Dim ext As String = Nothing
' 读附加数据
If id = WID Then
len = br.ReadInt32()
ext = New String(br.ReadChars(len))
End If
data1.Add(key, New KeyValuePair(Of String, String)(ext, val))
Else
data1.Add(key, New KeyValuePair(Of String, String)(String.Empty, String.Empty))
End If
End If
Next
Else
Throw New FormatException(src.ToString())
End If
ReadCSF = data1
br.Close()
End Function
End Module
----------------------------------------------------------------------------------------------
感谢版主周雪峰关注我的问题！
已更改CSFStream为CSFStream2，但还是不行！
一执行到strCsfName = ReadCSF(frmMain.CSFStream2)这句
就提示：
未处理 ArgumentException 流不可读。
鼠标移到Dim br As New BinaryReader(src, Encoding.ASCII)这句的“src”上，即时提示：Length = {"无法访问已关闭的文件。"}
请问如何解决？是不是跟br.Close()有关？
