Imports System.IO Imports System.Text Module BDCWordConverterModule BDCWordConverter Sub main()Sub main() DimdirAsNew DirectoryInfo("D:\bdc\Word\") Dim fi As FileInfo() =dir.GetFiles("*.gds") ForEach f As FileInfo In fi Dim fs AsNew FileStream(f.FullName, FileMode.Open) Dim br AsNew BinaryReader(fs) fs.Position =12 Dim b01 AsByte() = br.ReadBytes(20) ReDimPreserve b01(27) br.BaseStream.Position =50 Dim b02 AsByte() = br.ReadBytes(8) b02.CopyTo(b01, 20) Console.WriteLine(f.FullName) Dim fileName AsString=New StringBuilder(Encoding.GetEncoding("GB2312").GetChars(b01)).ToString.TrimEnd(CChar("")) Console.WriteLine("Processing {0}", fileName) Dim fw AsNew StreamWriter("D:\bdc word\"& fileName.TrimEnd(Chr(0)) &".txt") Dim startPos AsInteger=290 Dim offWord AsInteger=30 Dim offPun AsInteger=30 Dim offMean AsInteger=40 Dim offCourse AsInteger=28 br.BaseStream.Position =290 Dim Word AsString Dim Pun AsString Dim Mean AsString DoUntil br.PeekChar =-1 Dim b1 AsByte() = br.ReadBytes(offWord) Word =New ASCIIEncoding().GetChars(b1) Dim b2 AsByte() = br.ReadBytes(offPun) Pun =New ASCIIEncoding().GetChars(b2) Dim b3 AsByte() = 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
原理很简单,看看就懂:) Imports System.IOImports System.TextModule BDCWordConverterModule BDCWordConverter Sub main()Sub main() Dim dir As New DirectoryInfo("D:\bdc\Word\") Dim fi As FileInf...