vb 读取指定位置txt文件
菜鸟请教哈各路神仙,如123.txt文件的内容如下:.........节点123456789.........如何用VB实现读取标示符“节点”以下的内容呢。(最后对关键代...
菜鸟请教哈各路神仙,
如123.txt文件的内容如下:
....
.....
节点
1 2 3
4 5 6
7 8 9
.....
....
如何用VB 实现读取 标示符“节点”以下的内容呢。(最后对关键代码进行注解)。谢谢 展开
如123.txt文件的内容如下:
....
.....
节点
1 2 3
4 5 6
7 8 9
.....
....
如何用VB 实现读取 标示符“节点”以下的内容呢。(最后对关键代码进行注解)。谢谢 展开
1个回答
展开全部
顺序文本的读取只能顺序读取,所以只能以循环读取的方式判断是否有节点二字再判断输入
Dim Flag1 As Boolean '用于标记是否出点了'节点'二字
Open "e:\1.txt" For Input As 1 '循环读取文本
Do Until EOF(1)
If s = "节点" Then Flag1 = True '判断上一次读取的行是否为'节点二字
Line Input #1, s '读取
If Flag1 = True Then '如果读取到了节点二字
Text1.Text = Text1.Text & s & vbCrLf '把读取到的内容放入Text中,记得更改属性MulitLine =True
End If
Loop
Close
Dim Flag1 As Boolean '用于标记是否出点了'节点'二字
Open "e:\1.txt" For Input As 1 '循环读取文本
Do Until EOF(1)
If s = "节点" Then Flag1 = True '判断上一次读取的行是否为'节点二字
Line Input #1, s '读取
If Flag1 = True Then '如果读取到了节点二字
Text1.Text = Text1.Text & s & vbCrLf '把读取到的内容放入Text中,记得更改属性MulitLine =True
End If
Loop
Close
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询