vb中如何读取txt文本中的具体一行
在txt文本中有以下内容及格式x:25.558,y:32.698z:35.548x:85.845,y:98.964,z:68.489x:79.124,y:35.002,z...
在txt文本中有以下内容及格式
x:25.558,y:32.698z:35.548
x:85.845,y:98.964,z:68.489
x:79.124,y:35.002,z:94.532
x:35.005,y:89.989,z:52.443
x:93.335,y:35.902,z:26.006
x:36.103,y:68.489,z:98.245
在vb中如果满足一定条件,如:m>100
如何把txt文本中的某一行(如弟3行)中的x,y,z值分别赋予程序中的变量a,b,c
请大家多多指教!! 展开
x:25.558,y:32.698z:35.548
x:85.845,y:98.964,z:68.489
x:79.124,y:35.002,z:94.532
x:35.005,y:89.989,z:52.443
x:93.335,y:35.902,z:26.006
x:36.103,y:68.489,z:98.245
在vb中如果满足一定条件,如:m>100
如何把txt文本中的某一行(如弟3行)中的x,y,z值分别赋予程序中的变量a,b,c
请大家多多指教!! 展开
1个回答
展开全部
Private Sub Command1_Click()
Dim n As Integer, temp, filestr, abcstr, aa, bb, cc, a, b, c
Open "d:\m.txt" For Binary As #1
temp = StrConv(InputB(LOF(1), 1), vbUnicode) '把指定的文件全部读出来
Close #1
filestr = Split(temp, vbCrLf)
k:
n = Int(Val(Trim(InputBox("读取第几行?"))))
If n < 1 Or n > UBound(filestr) + 1 Then
MsgBox "输入错误!请重试!"
GoTo k
End If
abcstr = Split(filestr(n - 1), ",") '把指定的第n行全部读出来
aa = Trim(abcstr(0))
bb = Trim(abcstr(1))
cc = Trim(abcstr(2))
Rem 以下为获取a、b、c的数值
a = Val(Right(aa, Len(aa) - 2))
b = Val(Right(bb, Len(bb) - 2))
c = Val(Right(cc, Len(cc) - 2))
Print a, b, c
End Sub
Dim n As Integer, temp, filestr, abcstr, aa, bb, cc, a, b, c
Open "d:\m.txt" For Binary As #1
temp = StrConv(InputB(LOF(1), 1), vbUnicode) '把指定的文件全部读出来
Close #1
filestr = Split(temp, vbCrLf)
k:
n = Int(Val(Trim(InputBox("读取第几行?"))))
If n < 1 Or n > UBound(filestr) + 1 Then
MsgBox "输入错误!请重试!"
GoTo k
End If
abcstr = Split(filestr(n - 1), ",") '把指定的第n行全部读出来
aa = Trim(abcstr(0))
bb = Trim(abcstr(1))
cc = Trim(abcstr(2))
Rem 以下为获取a、b、c的数值
a = Val(Right(aa, Len(aa) - 2))
b = Val(Right(bb, Len(bb) - 2))
c = Val(Right(cc, Len(cc) - 2))
Print a, b, c
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询