VB中进行文字比对

来源：百度知道 编辑：UC知道 时间：2024/06/18 05:08:42
有如下东西text1和1.txt
文本文件中每16个字是一行 1234567890123456类似这样也可以是英文 就是英文和数字的混合
在text1输入16位文字
在1.txt中查找
如果有相同的行 必须整行和text中完全一样
出一个msgbox
整个文件搜索完了如果没有出另一个msgbox提示
请问有高手帮帮忙么?怎么写啊?

n=0
k=1
open filename for input as #1
Do While Not EOF(1)
n=n+1
Line Input #1, strline
if strline=text1.text then
msgbox n
k=1
end if
loop
close #1
if k=0 then msgbox "没有找到了!"

VB 字符串处理函数集
mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中的位置
例如 instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到
InStrRev(字符串1,字符串2,从第几个开始) 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到 。0 表示未找到
left(字符串,长度) 从[字符串]的左边开始返回[长度]个字符
例如 Left("小欣无敌,3) 则返回 "小欣无"
right(字符串,长度) 从[字符串]的右边开始返回[长度]个字符
例如 Right("小欣无敌",3) 则返回 &qu