关于读取文件内容问题。在线等。谢谢!

Question

用instr函数确定两个子的位置
instr(str1,"姓名")
instr(str1,"姓别")接下来就用mid函数

Answer 1

instr(start,str,findstr)
mid(str,start,len)

Answer 2

每次都对你的关键字用instr()然后mid(),也可做一个function 
如下 
  key1 是要取的值
  key2 下一个值 
  public function myValue(byval key1 as string,byval key2 as string) as string
    dim i as long
    dim  s as string
    i=instr(全部字符串,key1)
    s=mid(全部字符串,i)
    i=instr(全部字符串,key2)
    myvalue=left(全部字符串,i)
  end function 
虽然可以如此 但你最好使用其它方法，这样的操作太慢