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:94.532x:35.005,y:89.989,z:52.443x:93.335,y:35.902,z:26.006x:36.103,y:68.... 在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

请大家多多指教!!
展开
 我来答

答题抽奖

首次认真答题后

即可获得3次抽奖机会,100%中奖。

更多问题
最佳答案
玫瑰为你盛开
推荐于2016-02-26
玫瑰为你盛开
采纳数:599 获赞数:8070 LV11
擅长:VB 羽毛球 小说 数学 谜语
向TA提问 私信TA
展开全部
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
广告

您可能关注的内容

为你推荐:

×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消