求教:我有一个文本文件,每行的字符串如下,每行的格式如下不固定,请教怎么用vb提取其中的指定字符?
'6335413778402 , 6335413778402, 12,
' 3W5413778-4a , 1 ,
.........
想分别提取每行数据: 6B35413778-402和12       3W5413778-4a和1
第一行字符串重复,提取第一个字符串 和 后面的数字
第二行没有重复,提取一个字符串 和后面的数字
......
第N行也是一样.

先说声谢谢了!

用一个判断和读取文本文件就可以解决。

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

循环
读每一行
  使用 split 以逗号为分隔符分解成字符串数组，下标从0开始
  比较 0 号和 1号，相同
    取0号 和2号
  否则
    取0号和1号

继续循环

谢谢热心帮助,可是我复制代码怎么没效果

谢谢热心帮助 怎么我复制代码执行后怎么没效果

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

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编辑过]

上传文本文件吧

人家的文件结构不是在上面吗？