轻轻松松背单词II 词库转换器（源代码）

原理很简单，看看就懂：）

Imports System.IO
Imports System.Text
Module BDCWordConverterModule BDCWordConverter
    Sub main()Sub main()
        Dim dir As New DirectoryInfo("D:\bdc\Word\")
        Dim fi As FileInfo() = dir.GetFiles("*.gds")
        For Each f As FileInfo In fi
            Dim fs As New FileStream(f.FullName, FileMode.Open)
            Dim br As New BinaryReader(fs)
            fs.Position = 12
            Dim b01 As Byte() = br.ReadBytes(20)
            ReDim Preserve b01(27)
            br.BaseStream.Position = 50
            Dim b02 As Byte() = br.ReadBytes(8)
            b02.CopyTo(b01, 20)

 
            Console.WriteLine(f.FullName)
            Dim fileName As String = New StringBuilder(Encoding.GetEncoding("GB2312").GetChars(b01)).ToString.TrimEnd(CChar(" "))

 
            Console.WriteLine("Processing {0}", fileName)
            Dim fw As New StreamWriter("D:\bdc word\" & fileName.TrimEnd(Chr(0)) & ".txt")
            Dim startPos As Integer = 290
            Dim offWord As Integer = 30
            Dim offPun As Integer = 30
            Dim offMean As Integer = 40
            Dim offCourse As Integer = 28
            br.BaseStream.Position = 290

 
            Dim Word As String
            Dim Pun As String
            Dim Mean As String
            Do Until br.PeekChar = -1
                Dim b1 As Byte() = br.ReadBytes(offWord)
                Word = New ASCIIEncoding().GetChars(b1)
                Dim b2 As Byte() = br.ReadBytes(offPun)
                Pun = New ASCIIEncoding().GetChars(b2)
                Dim b3 As Byte() = br.ReadBytes(offMean)
                Mean = New StringBuilder(Encoding.GetEncoding("GB2312").GetChars(b3)).ToString
                br.ReadBytes(offCourse)
                fw.WriteLine("""{0}"",""{1}"",""{2}""", Word.TrimEnd(CChar(" ")), Pun.TrimEnd(CChar(" ")), Mean.TrimEnd(CChar(" ")))
            Loop
            fs.Flush()
            fs.Close()
        Next
    End Sub
End Module