[原创]扩充名人.mdb字典到文曲星

litianzzk

厉害，支持！

murmur

此外，meijin网站下载的听力资料有一部分可是mp3格式的哦～嘿嘿

kaikai0220

不提供成品?私下交流可否

a2299225

不明白

murmur

为你的文曲星扩充词汇量

“名人”电子词典网站上能下载一种扩展名为.mdb的词典，下面介绍如何扩展这种mdb为文曲星字典，因为这种字典词汇量大，解释多，以英语常用短语词典.mdb为例：

1用ACCESS2000打开，发现表和查询中都有，而且格式一样，我们打开表[英语常用短语词典]，导出为EXCEL的.xls

2进入导出的xls，打开宏功能，打开控件工具箱，在表上划一个command button，编辑这个按钮的事件为

Private Sub CommandButton1_Click()

Open "c:\名人字典.txt" For Output As #1

For i = 1 To 3395

CT = Sheet1.Cells(i + 1, 2)

CTJS = Sheet1.Cells(i + 1, 3)

Print #1, CT & "**" & CTJS & "回车"

Next i

Close #1

End Sub

[**]为文曲星的字词分割标志，编辑保存，然后按这个按钮，会在C盘下生成[名人字典.txt]

3打开名人字典.txt，进入word，打开替换对话框，进行如下替换：

^p(换行符)->[空白]

回车->^p(换行符)

/(字词分割标志，文曲星不支持)->空格

这样字词就分开了，带着解释

4.用文曲星字典工具输入这个txt，输出gvd文件，结果输出了150KB的文件，1000条～本来3000条，因为解释过长筛掉了2000条，倒，怎么办的？进行补充

Private Sub CommandButton1_Click()

Open "c:\名人字典.txt" For Output As #1

For i = 1 To 3395

CT = Sheet1.Cells(i + 1, 2)

CTJS = Sheet1.Cells(i + 1, 3)

If Len(CTJS) > 250 Then

CTJS = Left(CTJS, 250)

End If

Print #1, CT & "**" & CTJS & "回车"

Next i

Close #1

End Sub

这样会对词条解释自动取前250个字符。怎么样，学会了么？

下面是字典的部分内容：

a bit**1.rather相当地；有点（用作状语）I am a bit tired.我有点累了。She calmed down a bit.她冷静一点了。2.not at all；not in the least（用于否定句中）一点不He didn't care a bit about the matter.他一点儿也没把这件事放在心上。

a bit of**a small piece or amount of少量的；少许的（常用于修饰不可数名词）

She gave me a bit of good advice.她给了我一些好的建议。

I know a bit of Spanish.我懂一点西班牙语。…….

由于本字典设计版权，所以不提供任何原文件或者成品，以上文章仅供参考，如果你认为名人产品不错请购买相关产品！