VB如何提取所有text内容中的指定内容 10
比如说，我在text1.text中放如以下内容abcd.kw728953.akabcd.kw232893.akabcd.kw7452893.akabcd.kw723451...
比如说，我在text1.text中放如以下内容
abcd.kw728953.ak
abcd.kw232893.ak
abcd.kw7452893.ak
abcd.kw7234513.ak
abcd.kw728r345.ak
abcd.kw334893.ak
abcd.kw12453.ak
abcd.kw21345.ak
我如何提取所有"abcd.kw"和".ak"之间的内容
最好给出示例代码。 展开
abcd.kw728953.ak
abcd.kw232893.ak
abcd.kw7452893.ak
abcd.kw7234513.ak
abcd.kw728r345.ak
abcd.kw334893.ak
abcd.kw12453.ak
abcd.kw21345.ak
我如何提取所有"abcd.kw"和".ak"之间的内容
最好给出示例代码。 展开
展开全部
先用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)循环即可
再用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替换掉，剩下的就是你想要的了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
