怎样用VB读取一个TXT文件里的特定字符间的内容?
比如,我有一个叫name的TXT文件里面的内容是:ABC(aa)abc+AB(bb)AB=A=B=CD(cc)AB现在,我想把括号()里面的东西读取出来,并放进一个TAB...
比如,我有一个叫name的TXT文件
里面的内容是:
ABC(aa)abc
+AB(bb)AB
=A=B=CD(cc)AB
现在,我想把括号( )里面的东西读取出来,并放进一个TAB里面,比如这个文件读取后,我可以得到一个TAB,并且TAB(0)=aa 然后TAB(1)=bb , TAB(2)=cc
请各位VB高手指导小弟,拜谢~~~可以用的话加双倍分~~~ 展开
里面的内容是:
ABC(aa)abc
+AB(bb)AB
=A=B=CD(cc)AB
现在,我想把括号( )里面的东西读取出来,并放进一个TAB里面,比如这个文件读取后,我可以得到一个TAB,并且TAB(0)=aa 然后TAB(1)=bb , TAB(2)=cc
请各位VB高手指导小弟,拜谢~~~可以用的话加双倍分~~~ 展开
3个回答
展开全部
你的TAB是一个变量的名吧?
此方法较简单,但需要你临时引入一个字符。这个字符应是这个Txt文件中永远也不会存在的字符。如"@",我就用此字符做例子。
Dim a, c As String
Open "Txt文件的完整路径,要有扩展名" For Binary As #1
a = Input(LOF(1), 1)
Close #1
a = Replace(Replace(a, "(", "@"), ")", "@")
b = Split(a, "@")
For i = 1 To UBound(b) Step 2
c = c & b(i) & "@"
Next
c = Left(c, Len(c) - 1)
TAB = Split(c, "@")
紧接着我上面代码的后面你就可以使用TAB(0)、TAB(1)、TAB(2)……了。
此方法较简单,但需要你临时引入一个字符。这个字符应是这个Txt文件中永远也不会存在的字符。如"@",我就用此字符做例子。
Dim a, c As String
Open "Txt文件的完整路径,要有扩展名" For Binary As #1
a = Input(LOF(1), 1)
Close #1
a = Replace(Replace(a, "(", "@"), ")", "@")
b = Split(a, "@")
For i = 1 To UBound(b) Step 2
c = c & b(i) & "@"
Next
c = Left(c, Len(c) - 1)
TAB = Split(c, "@")
紧接着我上面代码的后面你就可以使用TAB(0)、TAB(1)、TAB(2)……了。
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先查找指定字符获取在文本中的位置,再读取内容.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询