小弟我要哭了，四年没用vb就忘成这个样子了，简单文本操作有关问题，多谢帮忙

我要哭了，四年没用vb就忘成这个样子了，简单文本操作问题，谢谢帮忙
毕业了四年了 想当初vb好歹也是学过的，没想到今天需要做点重复简单的事情，需要做个小vb程序完成，打开vb6

发现文本操作居然忘完了。。。 找书发现书已经被家人给卖了，。。。 
  
  我想实现的功能是 ， 需要打开文本文件，不是固定的，得用打开浏览框那种，文本格式是


  aa bbb
  aa bbb
  .. ...
  aa bbb

aa 和 bbb 中间是tab  

读取每个字符串 然后在 aa前面加上x，去掉tab，在bbb前面加上y，后面加上z

输出文本文件

谢谢大家啊 我挠了一上午头了

------解决方案--------------------
'今天高兴,就随手写个,祝大家新年快乐
dim s$,ss() as string,t$,s1$
open CommonDialog1.FileName for input as #1
do while not eof(1)
line input #1,s
ss=split(s,Chr(9))
s1="x" & ss(0) & "y" & ss(1) & "z"
t=t+s1+vbcrlf
loop
close #1
open "d:\test.txt" for output as #1
print #1,t
close #1

------解决方案--------------------
稍微改改3楼的
Dim s$, t$, s1$
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
s = "x" & s & "z" & vbCrLf
s1 = s1 & s
Loop
Close #1
t = Replace(s1, Chr(9), "y")
Open CommonDialog1.FileName For Output As #1
Print #1, t
Close #1