Shulou(Shulou.com)06/01 Report--

This article mainly introduces "how to realize the .net thesaurus converter". In the daily operation, I believe that many people have doubts about how to realize the .net thesaurus converter. The editor consulted all kinds of materials and sorted out simple and easy-to-use operation methods. I hope it will be helpful to answer the doubts about how to realize the .net thesaurus converter. Next, please follow the editor to study!

The principle is very simple, you can understand it at a glance:)

Imports System.IOImports System.TextModule BDCWordConverterSub main () Dim dir As New DirectoryInfo ("D:bdcWord") Dim fi As FileInfo () = dir.GetFiles ("* .gds") For Each f As FileInfo In fiDim fs As New FileStream (f.FullName, FileMode.Open) Dim br As New BinaryReader (fs) fs.Position = 12Dim b01 As Byte () = br.ReadBytes (20) ReDim Preserve B01 (27) br.BaseStream.Position = 50Dim 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 = 290Dim offWord As Integer = 30Dim offPun As Integer = 30Dim offMean As Integer = 40Dim offCourse As Integer = 28br.BaseStream.Position = 290Dim Word As StringDim Pun As StringDim Mean As StringDo Until br.PeekChar =-1Dim 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)) .ToStringbr.ReadBytes (offCourse) fw.WriteLine ("" {0} ") "{1}", "" {2} "", Word.TrimEnd (CChar (")), Pun.TrimEnd (CChar (")), Mean.TrimEnd (CChar (")) Loopfs.Flush () fs.Close () NextEnd SubEnd Module so far The study on "how to implement the. net thesaurus converter" is over. I hope to be able to solve your doubts. The collocation of theory and practice can better help you learn, go and try it! If you want to continue to learn more related knowledge, please continue to follow the website, the editor will continue to work hard to bring you more practical articles!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.