求VB编的记事本查找替换功能的原代码

实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法：
InStr([start, ]string1, string2[, compare])
这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：
pos=InStr(1,"abcdefg","cd")
则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

Replace函数
语法：Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]])
功能：将一个字符串取代 部份字。寻找待取代的原字符串 (find) ， 若找到则被取代为新字符串 (replacewith) 。
说明：find ：待寻找取代的原字符串。
replacewith ：取代后的字。
start ：从第几个字开始寻找取代， 若未设定则由第一个字开始寻找。
count ：取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare ：寻找比较的方法， compare=0 表示二进制比较法， compare=1 表文字比较法， compare =2 表根据比较的 数据型态而定， 若省略 compare 则为预设的二进制比较法。