| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4935 人关注过本帖
标题:vb怎么提取文本文件每行字符串中指定字符
只看楼主 加入收藏
chr78228
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2015-6-6
结帖率:0
收藏
已结贴  问题点数:20 回复次数:12 
vb怎么提取文本文件每行字符串中指定字符
求教:我有一个文本文件,每行的字符串如下,每行的格式如下不固定,请教怎么用vb提取其中的指定字符?
'6335413778402 , 6335413778402, 12,
' 3W5413778-4a , 1 ,
.........
想分别提取每行数据: 6B35413778-402和12       3W5413778-4a和1
第一行字符串重复,提取第一个字符串 和 后面的数字
第二行没有重复,提取一个字符串 和后面的数字
......
第N行也是一样.

先说声谢谢了!
搜索更多相关主题的帖子: vb 提取 每行 字符串 指定 
2018-07-15 23:36
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:5 
用一个判断和读取文本文件就可以解决。
程序代码:
Dim W1 As String, W2 As String, W3 As String
Open App.Path & "/AAA.txt" For Input As #1
Do While Not EOF(1)
Input #1, W1, W2, W3
If W1 = W2 And W3 <> "" Then
Text1.Text = Text1.Text & W1 & Space(5) & W3 & vbCrLf
ElseIf W1 <> W2 And W3 = "" Then
Text1.Text = Text1.Text & W1 & Space(5) & W2 & vbCrLf
End If
Loop
Close #1

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

请不要选我!!!
2018-07-16 15:20
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:5 
循环
读每一行
  使用 split 以逗号为分隔符分解成字符串数组,下标从0开始
  比较 0 号和 1号,相同
    取0号 和2号
  否则
    取0号和1号

继续循环

授人于鱼,不如授人于渔
早已停用QQ了
2018-07-16 15:50
chr78228
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2015-6-6
收藏
得分:0 
回复 楼主 chr78228
谢谢热心帮助,可是我复制代码怎么没效果
2018-07-16 21:17
chr78228
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2015-6-6
收藏
得分:0 
回复 2楼 ZHRXJR
谢谢热心帮助 怎么我复制代码执行后怎么没效果
2018-07-16 21:17
chr78228
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2015-6-6
收藏
得分:0 
回复 2楼 ZHRXJR
Private Sub Command1_Click()
    Dim W1 As String, W2 As String, W3 As String
    Open App.Path & "\AAA.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, W1, W2, W3
        If W1 = W2 And W3 <> "" Then
            Text1.Text = Text1.Text & W1 & Space(5) & W3 & vbCrLf
        ElseIf W1 <> W2 And W3 = "" Then
            Text1.Text = Text1.Text & W1 & Space(5) & W2 & vbCrLf
        End If
    Loop
    Close #1
End Sub
2018-07-16 21:20
chr78228
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2015-6-6
收藏
得分:0 
回复 2楼 ZHRXJR
Input #1, W1, W2, W3
这句执行有问题啊
2018-07-16 21:38
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
以下是引用chr78228在2018-7-16 21:38:49的发言:

Input #1, W1, W2, W3
这句执行有问题啊

与你的txt文件有关,可能是文件结构不同引起的。

好吧,给你我的txt文件,与你上面比较,好像第一个字符不是英文逗号 “,”号,其他都一样的。
6335413778402,6335413778402,12
3E5413778-4a,1,
789455223,789455223,33
9988654213,9988654213,17
6A547899,2,

[此贴子已经被作者于2018-7-20 21:57编辑过]


请不要选我!!!
2018-07-16 22:33
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:5 
上传文本文件吧

无知
2018-07-17 23:38
wlrjgzs
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:212
专家分:1566
注 册:2017-4-10
收藏
得分:5 
回复 8楼 ZHRXJR
人家的文件结构不是在上面吗?
2018-07-20 20:16
快速回复:vb怎么提取文本文件每行字符串中指定字符
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024131 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved