我的一个难题，用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)
多谢大家帮助啊 马上结贴
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
