//不是字符串资源,是任意一个字符串那就麻烦了,你首先要弄清字串是不是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
BeginUpdateResource
UpdateResource
EndUpdateResource
等api进行资源替换
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