先用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)循环即可
以"abcd"和“ak”和“.”固定不变为突破点
dim sstr as string
sstr=mid(stra,6,len(stra)-8)
'sstr为欲取字符串,stra为欲被取的字符串
你可以用replace函数把所有abcd.kw 和ak替换掉，剩下的就是你想要的了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024