怎样做字典程序

主题: 怎样做字典程序 judygbl 高级站友 威望：1 发表于 2001-08-20.09:49:15　　 　　 　　　　　　 -------------------------------------------------------------------------------- 我想要做一个字典程序,我对这个思路不太清晰,用记事本编辑的文本和程序如何挂勾,另外如何调用这个记事本文件以及在记事本中如何用TAB键,这些问题我不太清楚,虽然在AW的SHOWＭＥ中有这个范例，可还是有些看不懂，请教诸位，有知道这个思路和程序的朋友给我说明一下，最好给我发个信，十分感谢！ -------------------------------------------------------------------------------- 总发帖数: 135 | 来源: 安徽 | 注册日期: 2001-07-03 IP: 已记录 小邓 论坛版主 威望：5 发表于 2001-08-20.10:22:50　　 　　　　　　　　　　 -------------------------------------------------------------------------------- 推荐你用数据库来做，在AW中调用 Access 数据库来实现。 用调用文本的方式来实现的话，就有个限制，文本不能太大，否则查询时就会慢得惊人。 用以函数来实现：（假定你的文本是wen.txt,放在程序所在目录) cha:=EntryText wenben := ReadExtFile(FileLocation^"wen.txt") hang:= LineCount(wenben) repeat with i:=1 to hang hangwen:= GetLine(wenben,i) if Find(cha, hangwen)<>0 then exit repeat end if end repeat 这里是可以通过输入响应来获得要查找的内容。如果i<=hang的话就表示找到了。 在记事本里不一定用Tab来分隔，可以用一些特殊符号来分，比如$、#、%都行只要不是要找的内容都行。 比如有一行为 word$名词#单词 就可如下来获得“名词”“单词” cixing := SubStr(hangwen, Find('$', hangwen)+1, Find('#', hangwen)-1) ciyi:=SubStr(hangwen, Find('#', hangwen)+1, CharCount(hangwen)) —————————— http://dengchunzhi.home.chinaren.com 新地方: http://61.142.230.7/html/xd/xdzy/ -------------------------------------------------------------------------------- 总发帖数: 3102 | 来源: 北京 | 注册日期: 2001-06-09 IP: 已记录 judygbl 高级站友 威望：1 发表于 2001-08-20.10:28:38　　 　　　　　　　　　 -------------------------------------------------------------------------------- 可不可以帮忙说仔细一点，最好能mail一个说明详细步骤，万分感谢！！！！ -------------------------------------------------------------------------------- 总发帖数: 135 | 来源: 安徽 | 注册日期: 2001-07-03 IP: 已记录 小邓 论坛版主 威望：5 发表于 2001-08-20.10:35:14　　 　　　　　　　　　　 -------------------------------------------------------------------------------- 这样还不够详细？ 做一个输入交互，在输入交互中加入一个计算图标在图标中加入上述语句就行了。—————————— http://dengchunzhi.home.chinaren.com 新地方: http://61.142.230.7/html/xd/xdzy/ -------------------------------------------------------------------------------- 总发帖数: 3102 | 来源: 北京 | 注册日期: 2001-06-09 IP: 已记录 小邓 论坛版主 威望：5 发表于 2001-08-20.11:24:15　　 　　　　　　　　　　 -------------------------------------------------------------------------------- 上面有一行写错： hangwen:= GetLine(wenben) 应该是 hangwen:= GetLine(wenben，i)