用vb如何批量把QQ号码变成qq邮箱?

发布网友发布时间：2022-05-21 01:44

共2个回答

热心网友时间：2023-10-11 01:55

Dim strTxt() As String
Dim strTemp As String
strTemp=Text1.Text
strTxt=Split(strTemp,vbCrlf)
for i=lbound(strTxt) to ubound(strTxt)
strTxt(i)=strTxt(i) & "@qq.com"
next i
Text1.Text=Join(strTxt,vbCrlf)
【测试通过】

热心网友时间：2023-10-11 01:55

Private Sub command1_click()
Dim r As String
r = Text1.Text
r = Replace(r, vbCrLf, "@qq.com" + vbCrLf)
Text1.Text = r
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com