那就麻烦了,你首先要弄清字串是不是unicode类型的字串,然后将字串转化为byte数组(假设为buff),然后读出文件到byte数组(假设datas),以上这些都不难,然后:
dim i as long
dim j as long
for i=0 to ubound(datas)-ubound(buff)+1
if (buff(0)=datas(i)) and (buff(1)=datas(i+1)) and ..... and (buff(ubound(buff))=datas(i+ubound(buff))) then'找到了,记录下位置,代码自己写
你的代码
end if