同书异名英语词典过眼录
园地六年纪念贴。兼回应dote兄，供下书求书参考。
推荐词典不敢当，难度太大，那就分享一下藏书过程里好玩的东西。
或许答非所问，容日后慢慢交流。
内容或有错漏，方家多多指正。
其他说明：
所谓过眼录，仅仅说明俺曾经见过，胡乱翻过，比如看看封面、版权页、前言后记啥的。
也不说明或暗示俺有电子版。加上最近时间、精力、上网条件有限。不可能提供电子版，特别说明一哈。
去专家找书区最为便捷，那里有专家大侠虚位以待。
一、英米语用法辞典-日本-井上义昌
英美语惯用法辞典-吴拓 杨应鹏-湖南师范大学出版社
英美语惯用法实用词典-刘旭宝 傅勇林-西南交通大学出版社 多谢推荐。
那个程序好像可以直接拿来用，困难的就是字典的整理，按照他的格式录入，就可以用他的程序检索了吧。 081218 调整界面为自适应，同时自动显示第一个单词的解释。
看了一下小程序，模仿了一个，原理就是读取文本文件，添加到列表。比较原始。
改进：1.原程序点击单词列表最后一个会出错。
2.如果只有一个单词符合，自动显示解释。
代码如下：
借用linsi为uv制作的图标，感谢。程序很简单，对于新手，估计几个小时就可以写出来，献丑了。
Sub lstWords_Click()
Dim f As String, tmp As String, bFound As String
txt = LCase$(txt)
If Left$(txt, 1) >= "a" And Left$(txt, 1) <= "z" Then
'打开对应的文件
f = App.Path & "\" & Left$(txt, 1) & ".txt"
Open f For Input As #1
Do While EOF(1) = False
Line Input #1, tmp
If tmp = lstWords.List(lstWords.ListIndex) And Left$(tmp, 1) <> " " Then
'找到对应的单词了
lst.Clear
lst.AddItem tmp
Line Input #1, tmp
While Left$(tmp, 1) = " "
'逐个添加解释
lst.AddItem tmp
If EOF(1) = False Then Line Input #1, tmp '原程序点击最后一个会出错。
Wend
Exit Do
End If
Loop
Close #1
End If
End Sub
Sub txt_Change()
Dim f As String, tmp As String, bFound As Boolean
txt = LCase$(txt)
If Left$(txt, 1) >= "a" And Left$(txt, 1) <= "z" Then
lstWords.Clear
'打开对应的文件
f = App.Path & "\" & Left$(txt, 1) & ".txt"
Open f For Input As #1
Do While EOF(1) = False
Line Input #1, tmp
If Left$(tmp, 1) <> " " Then '是词条还是解释
If InStr(LCase$(tmp), txt) = 1 Then
'找到对应的词条，就添加
lstWords.AddItem tmp
bFound = True
ElseIf bFound = True Then
'如果没有找到就直接跳过
Exit Do
End If
End If
Loop
Close #1
End If
'如果只有一个单词，自动显示
If lstWords.ListCount = 1 Then lstWords.ListIndex = 0: lstWords_Click
End Sub 刚上线就看到家学大侠给我的回复，及这个6周年纪念帖。能够得到这么详细的回复，家学大侠的长者之风，遵遵教导后学的殷切态度令人感动。。。。。。。。。
最近从园地朋友们的帖子里学到很多，wdscxsj ，wxdudu，家学大侠，我都是很感激和敬佩的。。。。。。。谢谢谢谢啊 引用第2楼killl于2008-12-18 23:08发表的 :
看了一下小程序，模仿了一个，原理就是读取文本文件，添加到列表。比较原始。
改进：1.原程序点击单词列表最后一个会出错。
强的不得了啊。。。。。好书。本本值得研读。。。。。。 现在通用的英英词典，比较好的，我感觉是朗文的电子版本，可惜每个月都要鉴定一下。查词比较好，推荐。 很好很强大！以前试装过http://wordnet.princeton.edu/obtain的WordNet，印象中外壳跟这个有点相像。
看来homestudy兄有志于电子词典的制作了，精神支持！ 像大侠学习，呵呵。
页:
[1]