大神们求助做毕设代码不会啊新手小白大一没好好学vb - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 大神们求助做毕设代码不会啊新手小白大一没好好学vb

我的收件箱(0)

共有 790 人关注过本帖

标题：大神们求助做毕设代码不会啊新手小白大一没好好学vb

取消只看楼主加入收藏

hf652597374

等　级：新手上路
帖　子：3
专家分：0
注　册：2015-5-15
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：2

大神们求助做毕设代码不会啊新手小白大一没好好学vb

怎么用vb提取 dat文件中的每一行的特定数据存入数组然后输出到文本框中

GPS7-BM7.zip (3.54 KB)

图片附件: 游客没有浏览图片的权限，请登录或注册

搜索更多相关主题的帖子: dat文件　文本框　

2015-05-15 11:02

hf652597374

等　级：新手上路
帖　子：3
专家分：0
注　册：2015-5-15

第 2 楼

得分:0

回复 2楼 lianyicq

谢谢大哥我试试

2015-05-16 16:15

hf652597374

等　级：新手上路
帖　子：3
专家分：0
注　册：2015-5-15

第 3 楼

得分:0

回复 6楼 renxiaoyao36

遇到特殊字符怎么将这行跳过不做提取处理？代码怎么写啊大神

程序代码：

Do While Not EOF(1)
   Line Input #1, TB    '一行一行读取文件
     If Mid(TB, 22, 10) = "Start-Line" Then
        a = Mid(TB, 38, 5)
        qd = Mid(TB, 45, 4)
      Text8.Text = Text8.Text + a + "," + qd + Chr(13) + Chr(10)
      
     If Mid(TB, 34, 1) = "#" Or Mid(TB, 22, 20) = "Measurement repeated" Or Mid(TB, 22, 16) = "Station repeated" Or Mid(TB, 22, 7) = "Reading" Then

[ 本帖最后由 hf652597374 于 2015-5-20 09:02 编辑 ]

2015-05-20 09:00

快速回复：大神们求助做毕设代码不会啊新手小白大一没好好学vb