vb截取本地txt中某两个指定字符之间的字符串
我有一个文本:数据.txt内容是:张三,男,100,99,95李四,男,84,100,98王某人,女,0,20,58现在我想截取第二排的内容,并将5个数据分别记录到Tex...
我有一个文本:数据.txt
内容是:
张三,男,100,99,95
李四,男,84,100,98
王某人,女,0,20,58
现在我想截取第二排的内容,并将5个数据分别记录到Text1到Text5的文本框中。望高手解答!!!谢谢。。。 展开
内容是:
张三,男,100,99,95
李四,男,84,100,98
王某人,女,0,20,58
现在我想截取第二排的内容,并将5个数据分别记录到Text1到Text5的文本框中。望高手解答!!!谢谢。。。 展开
1个回答
展开全部
Dim s() As String, s1() As String
Open "数据.txt" For Binary As #1
s = Split(Input(LOF(1), #1))
Close #1
s1 = Split(s(1), ",") '第一行为s(0),第二行为s(1),依此类推
Text1.Text = s1(0)
Text2.Text = s1(1)
Text3.Text = s1(2)
Text4.Text = s1(3)
Text5.Text = s1(4)
Open "数据.txt" For Binary As #1
s = Split(Input(LOF(1), #1))
Close #1
s1 = Split(s(1), ",") '第一行为s(0),第二行为s(1),依此类推
Text1.Text = s1(0)
Text2.Text = s1(1)
Text3.Text = s1(2)
Text4.Text = s1(3)
Text5.Text = s1(4)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询