我的一个难题，用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)
多谢大家帮助啊 马上结贴
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
