VBA读取了TXT文件的每一行，如何按分隔符分开

VBA读取了TXT文件的每一行，怎么按分隔符分开
比如说txt文件内容如下：

张三 84
李四 56
王二 77



VBA读取文本文件的内容我已经知道了，问题是读取了每一行后我想操作这一行的内容，要以“空格”为分隔符把想要的字段分开。有什么办法能把他们分开吗？



[解决办法]
先用replace把多个空格都替换成一个空格
这个你懂得

探讨

假设 空格 的个数不确定，有的是 2个空格，有的是3个空格。

split（）函数该怎么写啊

[解决办法]
这个需要放到数组中
看这里
[解决办法]
还有这里
[解决办法]
aryStr=split(mystr," ")
“第一字段” 用 aryStr（0）

探讨

引用:
首先要找到 第一个字段 为 “张三”，然后才能做后面的事。


split(mystr," ")
IF 第一字段="张三" then


此处的“第一字段”怎么表达？

[解决办法]
数据格式如下：
A列 B列
张三 84
李四 56
王二 77

'读数据:
str = ""
str = str & trim("张三") & "," & trim("84") & ";"
str = str & trim("李四") & "," & trim("56") & ";"
str = str & trim("王二") & "," & trim("77") & ";"

str = left$(str, len(str)-len(";")) '","可使用任意指定的字符作为分隔符

'使用数据：
dim sss() as string
dim ss() as string

sss = split(str,";",,vbTextCompare)
m = ubound(sss)
for i = 0 to m
ss = shlit(ss(i),",",,vbTextCompare)
'ss 数组中的值可以使用了：
'ss(0) = 姓名 
'ss(1) = 成绩
next i
erase sss,ss '释放
[解决办法]
方法2：
dim ss() as string
dim M as long
dim s as String
dim i as long
'读数据时动态建立数组，将数据塞入数组中
m = 0
R0 = 1
i = 0
s=trim(xlapp.cells(R0,1))
do until s="" or R0>=65536
redim pr... ss(0 to 1, 0 to m) '到帮助中将【保护粘过来】
ss(0,i)=s '姓名
s=trim(xlapp.cells(R0,2))
ss(1,i)=s '分数
i = i+1
R0 = R0+1
s=trim(xlapp.cells(R0,1))
loop
'之后：i 为数组中元素个数，ss(0 to 1，0 to i-1)可使用
 

查看更多 下一篇