同书异名英语词典过眼录

homestudy

园地六年纪念贴。
兼回应dote兄，供下书求书参考。
推荐词典不敢当，难度太大，那就分享一下藏书过程里好玩的东西。
或许答非所问，容日后慢慢交流。


内容或有错漏，方家多多指正。

其他说明：
所谓过眼录，仅仅说明俺曾经见过，胡乱翻过，比如看看封面、版权页、前言后记啥的。
也不说明或暗示俺有电子版。加上最近时间、精力、上网条件有限。不可能提供电子版，特别说明一哈。

去专家找书区最为便捷，那里有专家大侠虚位以待。


一、英米语用法辞典-日本-井上义昌
英美语惯用法辞典-吴拓 杨应鹏-湖南师范大学出版社
英美语惯用法实用词典-刘旭宝 傅勇林-西南交通大学出版社

killl

多谢推荐。
那个程序好像可以直接拿来用，困难的就是字典的整理，按照他的格式录入，就可以用他的程序检索了吧。

killl

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
    &#39;打开对应的文件
    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
        &#39;找到对应的单词了
        lst.Clear
        lst.AddItem tmp
        Line Input #1, tmp
        While Left$(tmp, 1) = " "
          &#39;逐个添加解释
          lst.AddItem tmp
          If EOF(1) = False Then Line Input #1, tmp &#39;原程序点击最后一个会出错。
        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
    &#39;打开对应的文件
    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 &#39;是词条还是解释
        If InStr(LCase$(tmp), txt) = 1 Then
          &#39;找到对应的词条，就添加
          lstWords.AddItem tmp
          bFound = True
        ElseIf bFound = True Then
          &#39;如果没有找到就直接跳过
          Exit Do
        End If
      End If
    Loop
    Close #1
  End If
  &#39;如果只有一个单词，自动显示
  If lstWords.ListCount = 1 Then lstWords.ListIndex = 0: lstWords_Click
End Sub

dote

刚上线就看到家学大侠给我的回复，及这个6周年纪念帖。能够得到这么详细的回复，家学大侠的长者之风，遵遵教导后学的殷切态度令人感动。。。。。。。。。
最近从园地朋友们的帖子里学到很多，wdscxsj ，wxdudu，家学大侠，我都是很感激和敬佩的。。。。。。。谢谢谢谢啊  

homestudy

[quote]引用第2楼killl于2008-12-18 23:08发表的 :
看了一下小程序，模仿了一个，原理就是读取文本文件，添加到列表。比较原始。

改进：1.原程序点击单词列表最后一个会出错。

dote

强的不得了啊。。。。。好书。本本值得研读。。。。。。

bulunuo

现在通用的英英词典，比较好的，我感觉是朗文的电子版本，可惜每个月都要鉴定一下。查词比较好，推荐。

bibliomaniac

很好很强大！以前试装过http://wordnet.princeton.edu/obtain的WordNet，印象中外壳跟这个有点相像。
看来homestudy兄有志于电子词典的制作了，精神支持！

kevin

像大侠学习，呵呵。