轻轻松松背单词II 词库转换器(源代码)

原理很简单,看看就懂:)

Imports System.IO

Imports System.Text

Module BDCWordConverter

    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

 

已标记关键词 清除标记
相关推荐
这是我用“E书工厂”学做的第一本E书,请大家批评指正。<br/><br/>使用时最好运行“金山词霸”,在其“设置”中选择“即时发声”,这样,您把鼠标指向单词时就可以听到纯正的美音,好像一个很幽默的老师在教您学英语。<br/><br/>《黑英语》前言<br/><br/>1999年春天,在北京大学的未名湖畔,我在编写一部趣味记忆英语单词的书《亲切回归》时,把几个结构相似的单词用故事情节串起来,写下了这么一个“词串”:<br/><br/>  -猫和老鼠- <br/><br/>  有一个rat(老鼠)* <br/><br/>  非常地fat(肥胖)<br/><br/>  跳进了vat(缸) <br/><br/>  偷吃了salt(盐)<br/><br/>  变成了bat(蝙蝠) <br/><br/>  气坏了cat(猫) <br/><br/>  咬破了hat(帽子)<br/><br/>  当成了mat(垫子)*<br/><br/>  写完以后,当时没有觉得有什么特别的,就把它收录到书里,连同我编写的其他几部趣味学英语的著作一起,在2000年11月由在北京的中国致公出版社出版。<br/><br/>  这几部书出版以后,引起了比较好的反响,经常收到全国各地不知名的地方邮寄的询问信函和汇款,希望能购买到这些书;国内著名的网站新浪网教育频道和英语频道把这几部作品以精品介绍的形式向网民推介,而载有这个"词串"的《亲切回归》一书更被全文刊载到新浪网上,许多网民读者踊跃评论,对这个只有八个单词的小品有很多好评。在这同时,英语教师刘纳女士在北京大学等许多大学举办讲座时,把这个小"词串"收录到自己的讲课教材中,学生反应很好,很多同学希望能学到更多的像这样的"词串"。<br/><br/>  于是我又抽出时间又编写了大约一百串这样的"词串",为了验证效果,在北京海淀区的几所大学和中小学向学生们传授,学生均能很快掌握,不少学生能半天记住50个以上的新单词而且可以闭上眼睛重复出来,而且学习起来兴趣浓厚,一再要求增加内容。有的学员甚至从千里之外的浙江、大连等地专程到北京来听我讲趣味记忆单词的课程,一直坚持到最后;还有不少是学生和家长一起来听课学习。从他们快速取得的进步和满意而归的表情,我坚信这样学英语的方法卓有成效的。<br/><br/>  英语有大量的单词需要记忆,但国内很多大学毕业生甚至研究生和博士生词汇量严重不足,连简单的英文日报阅读起来都非常吃力,说明传统的教学方法有很大需要改进的余地。尤其在是知识信息和爆炸的时代,效率和时效性已经成为一个衡量学习效果的重要杠杆。<br/><br/>  把英语单词按结构形式归类,比如把"west"和"pest"放在一起学习,可以一定程度上提高学习效率,已经成为不争的事实。正因为这样,美英等使用英语的国家,在这方面的研究已经有长时间的历史了,研究成果可以说是汗牛充栋,国内也有很多学者致力于这方面的工作,有相当多的著述问世。<br/><br/>  经过国内外许多代学者的努力,从英语词汇的结构角度上做的研究已经非常充分了,而且很多学习者已经对此非常熟悉了,在这种情况下,本书做了更进一步的工作,把结构相似的单词系统、完整地联系在一起。我们看下面的内容:<br/><br/>  -猴王出世- <br/><br/>  花果山的back(背部)<br/><br/>  有块石头black(黑色的)<br/><br/>  突然中间crack(裂开) *<br/><br/>  飞出一个sack(口袋) *<br/><br/>  天兵天将attack(攻击)<br/><br/>  却找不到track(行踪)<br/><br/>  (口袋里是刚出生的猴王。)<br/><br/>  这里就把冷冰冰的单词联系在一起了。同时又把这些单词和鲜活的形象"猴王"联系起来了--猴王是每一个中国人都熟悉的形象,很亲切而且容易接受和记忆,最重要的是容易回想起来,从而有利于复习。<br/><br/>  但相似的单词聚集一起,也有一个问题,就是容易搞混淆了,本书中“记忆小窍门”给出了思考和解决的办法。<br/><br/>  我们再看:<br/><br/>  -珍珠港战士- <br/><br/>  海洋非常vast(广阔)<br/><br/>  抓颗手雷cast(投掷)<br/><br/>  速度非常fast(快)<br/><br/>  从天空中past(穿过)<br/><br/>  打中敌舰last(最后一个)<br/><br/>  炸坏舰上mast(桅杆) *<br/><br/>  如何记忆vast这个单词,本书告诉你,主要是第一字母v与别的单词不同,而把“v”无限放大成“V”的形状,就显得非常广阔了,这样就和词义"广阔的"联系起来了;而cast第一个字母“c”,向右旋转90度,就像投掷出的东西在空中的轨迹,这样也和单词的词义联系起来了;而mast起首字母是“m”,发音似“木”,桅杆多是木头做的,于是又和词义联系起来了。
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页