Question

vb 读取txt文本分割字符

怎么读取txt 文本最后的 | 字符到text1中去
文本格式
1.我是中国人 08：40|
2.我是中国人 08：41|
3.我是中国人 08：43|
4.我是中国人 08：45|
5.我是中国人 08：46|
6.我是中国人 08：48

最后结果
|5.我是中国人 08：46

Open 文件 For binary As #1
tmp=input(lof(1),1)
close#1
s=split(tmp,"|")
text1=s(ubound(s)-1)
怎么修改代码

Answer 1

怎么还没有解决这个问题啊???

我帮你所了个,你自己看吧!

追问

最后结果
|5.我是中国人 08：46

追答

哦,现在不是最后一行了?

那再给你一个!!!!!!

你想要第几行,你输入几?

Answer 2

for i = 0 to ubound(s)
s(i)="|" & s(i)

next i

text1=s(ubound(s)-1)

是这个意思吗？

追问

最后结果
|5.我是中国人 08：46

Answer 3

s=split(tmp,"|")
if (ubound(s)>1)
text1="|" & s(ubound(s)-1)
else
text1=s(ubound(s)-1)
end if

追问

最后结果
|5.我是中国人 08：46

Answer 4

text1="|" & s(ubound(s)-1)