vb txt文本读取最后一行指定字符
怎么读取txt文本最后的|字符到text1中去文本格式1.我是中国人08：40|2.我是中国人08：41|3.我是中国人08：43|4.我是中国人08：45|5.我是中国...
怎么读取txt 文本最后的 | 字符到text1中去
文本格式
1.我是中国人 08：40|
2.我是中国人 08：41|
3.我是中国人 08：43|
4.我是中国人 08：45|
5.我是中国人 08：46|
6.我是中国人 08：48
最后结果
|6.我是中国人 08：48 展开
文本格式
1.我是中国人 08：40|
2.我是中国人 08：41|
3.我是中国人 08：43|
4.我是中国人 08：45|
5.我是中国人 08：46|
6.我是中国人 08：48
最后结果
|6.我是中国人 08：48 展开
3个回答
展开全部
Open 文件 For binary As #1
tmp=input(lof(1),1)
close#1
s=split(tmp,"|")
text1=s(ubound(s))
更多追问追答
追问
如果我想要倒数第二个|可以吗
追答
任何一个都可以。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Command1_Click()
Dim i%, a$(1000)
Open App.Path + "\test.txt" For Input As #1
Do
Line Input #1, a(i)
i = i + 1
Loop Until EOF(1)
Close #1
Text1 = Right(a(i - 2), 1) & a(i - 1)
End Sub
Dim i%, a$(1000)
Open App.Path + "\test.txt" For Input As #1
Do
Line Input #1, a(i)
i = i + 1
Loop Until EOF(1)
Close #1
Text1 = Right(a(i - 2), 1) & a(i - 1)
End Sub
追问
你不明白我的意思吗。|6.我是中国人 08：48 这里的字不是固定的有多有少还有句子可能会换行的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
读取最后一行不就可以了？
更多追问追答
追问
因为最后一行说不定会换行所以需要查找最后的一个|
追答
那你就把整个文件读出来，保存在一个变量里AllStr，
然后使用VB6 的 InStrRev函数，可以定位到最后一个要找的“|”，就可以了。
Mid(AllStr,InStrRev(AllStr,"|"),Len(AllStr)-InStrRev(AllStr,"|")-1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
