检索数据的源码

发表于 2011-06-01 20:55 | |只看楼主

本帖最后由 若相守、莫散 于 2011-6-2 12:13 编辑 

下面我会把源码全部公开出来----好的话给我顶一下哦，非常感谢-- 把人家源码悄悄的拿走不顶的人才导致那么多"回复可见"的帖子呢
别急 我先教你怎么用，
首先新建立一个TXT文本文档，在文件里写入一个字符 "|" 然后另存为C:\test.txt（可以在别的地方但要把源码里面的路径都改下） 注意！！另存为文件的时候一定要把编码改成ANSI的，否则会出错. （有任何不懂的可以加我新建的QQ群：74220387 ）

接下来 只要把全部的源码复制粘帖进按键精灵， 然后运行脚本会跳出一个输入框， 比方我们要添加数据到test.txt 那么就输入：你要添加的内容然后在最后加一个符号"+" 如果最后没有符号"+" 那么脚本默认为检索数据： 
例如我们在输入框输入： 林飞鹏哈哈+ 然后点确定就添加进一条数据了， 接下来我们再次输入：鹏
这时候脚本就会检索数据然后弹出对话框内容是：林飞鹏哈哈， 如果数据库里面有两条带有："鹏" 字的 脚本会继续跳出对话框 直到后面没有。
检索的内容可以是多个字符串比如：林飞 或者：飞鹏 或者：鹏哈 这样的输入都可以检索出来 
如果是检索英文字母是没有区分大小写的， 什么时候会用到本脚本呢， 比如你有一句代码记不住是什么意思，那么就把这代码和代码的解释添加进去，然后下次检索代码的任意部分就会跳出全部的内容啦。
（有任何不懂的，或者按键交流都可以进我的QQ群：74220387 ）
下面是全部的源码： 用了1个小时写的，暂时没有发现脚本有什么问题，有问题尽管告诉我哦。

1. Sub jiaru() //这个过程是添加数据，只有被触发了才调用
   
2. Dim fileLen,handle
   
3. fileLen=Plugin.File.GetFileLength("C:\test.txt")
   
4. handle=Plugin.File.OpenFile("C:\test.txt")
   
5. Call Plugin.File.SeekFile(handle,fileLen)
   
6. Call Plugin.File.WriteFile(handle,left(a,len(a)-1)&"|")
   
7. Call Plugin.File.CloseFile(handle)
   
8. Goto 添加 //如果添加完数据后要直接结束脚本就把这句改成 EndScript
   
9. End Sub
   
10. Rem 添加
    
11. Dim a,b,ChiShu1,ChiShu2,JieGuo,i,o
    
12. b=LCase(Plugin.File.ReadFileEx ("C:\test.txt"))
    
13. a=LCase(InputBox("请在下面输入要添加或检索的数据"&chr(13)&"请注意:如果要添加数据请在数据末尾加上符号：+", "数据添加和检索"))
    
14. If right(a,1)="+" Then
    
15. Call jiaru()
    
16. End If
    
17. Rem 检索
    
18. If ChiShu2