文本读取时,如何用vb在文本中添加指定字符

Question

在文本1向文本2读取时,文本1中内容格式如下：
A342(2-7L)X,100
Y,200
Z,300D2891(19-26R)X,300
Z,700B472L(23R-18L)
...........类似的结构，我现在想文本2中实现在A342,D2891,B472L...这些字符前添加#号，用vb编程如何实现??

Answer 1

参考一下
Sub TTT()
   Dim X$
   Open "D:\HELLOW.TXT" For Input As #1
       Do Until EOF(1)
       Line Input #1, X
       If InStr(X, "(") Then
          Debug.Print "#" & X
       Else
          Debug.Print X
       End If
       Loop
   Close
End Sub