首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-01-24 
文本读取时,如何用vb在文本中添加指定字符在文本1向文本2读取时,文本1中内容格式如下:A342(2-7L)X,100Y,20

文本读取时,如何用vb在文本中添加指定字符
在文本1向文本2读取时,文本1中内容格式如下:
A342(2-7L)

X,100
Y,200
Z,300

D2891(19-26R)

X,300
Z,700

B472L(23R-18L)
...........类似的结构,我现在想文本2中实现在A342,D2891,B472L...这些字符前添加#号,用vb编程如何实现??

[解决办法]
参考一下
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

热点排行