我的一个难题，用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)
多谢大家帮助啊 马上结贴
相关问答：
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
