我的一个难题，用vb给一行文本加上后缀@yahoo.com

我的一个难题，用vb给一行文本加上后缀@yahoo.com
比如
1221
54854
sfsf
sdfs
变成

1221@yahoo.com
54854@yahoo.com
sfsf@yahoo.com
sdfs@yahoo.com

vb如何实现啊 ，数据是重txt一行一行读出来的

---

晕，这也算难道？
text1.text=text1.text & "@yahoo.com"

---

VB code:
Option Explicit

Public Sub Main()
Dim hInputFile As Integer
Dim hOutputFile As Integer
Dim s As String

hInputFile = FreeFile()
Open "C:\temp\1.txt" For Input Access Read Lock Write As #hInputFile

hOutputFile = FreeFile
Open "C:\temp\2.txt" For Output Access Write Lock Read Write As #hOutputFile

While Not EOF(hInputFile)
Line Input #hInputFile, s
Print #hOutputFile, s & "@yahoo.com "
Wend

Close #hInputFile
Close #hOutputFile
End Sub

---

txt结尾没有换行符的话补上，然后
txt=replace(txt,vbcrlf,"@yahoo.com"& vbcrlf)

---

多谢大家帮助啊 马上结贴