先用split分割每一行 再用mid提取 对于从text1.text中提取第n行的数据来说: dim strarray() as string strarray=split(text1,vbcrlf) 此时数据就是mid(strarray(n-1),len("abcd.kw")+1,len(strarray(n-1))-len("abcd.kw")-len(".ak")) 如果你要提取所有的,就for n = 0 to ubound(srarray)循环即可
第2个回答 2014-06-30
以"abcd"和“ak”和“.”固定不变为突破点
dim sstr as string sstr=mid(stra,6,len(stra)-8) 'sstr为欲取字符串,stra为欲被取的字符串