Question

通过vb怎样提取文本中的qq号?

vb窗体上有2个文本框text1和text2、一个按钮command1。在text1文本框中输入如下形式的内容（名字+qq号码），点击按钮command1把qq提取出来,并输入到text2中去（一行一个qq号）：
亲亲√Z行者 3099297
亲亲√爱看 10507817
贝贝√波波 12974571
红颜伤人，伤人红颜 20751655
藽藽√纤陌 33305345
贝贝√夜羽 38865689
弱水 51090094
贝贝√建筑师 52828593
贝贝√睡觉 63775649
亲亲√CC 64507985
贝贝√败类 65220329
◆丨 妖姬丶 65280788
亲亲√TV 65693636
贝贝√吻别 69285110
贝贝√等待 70399684
亲亲-乐心 75021716
贝贝√`清茶 76941575
贝贝√XX ehong 77255821
贝贝√短发 83054022
贝贝√心伤 85146822
输入的内容前面是昵称，后面是qq号码。

Answer 1

TAB键是QQ名中不可能出现的，以此为分隔符进行分割。
如果“亲亲√Z行者”为“1 亲亲√Z行者”，以上算法皆枉然，以下为通用算法：
Private Sub Command1_Click()
arr = Split(Text1, vbCrLf)
For i = 0 To UBound(arr)
arr(i) = Trim(Split(arr(i) & vbTab, vbTab)(1)) & "@qq.com"
Next
Text2 = Join(arr, vbCrLf)
End Sub

追问

如果输入的内容有空行，会生成没有用户名的QQ邮箱，这个问题怎样解决呢？

追答

Private Sub Command1_Click()
text2=""
arr = Split(Text1, vbCrLf)
For i = 0 To UBound(arr)
arr(i) = Trim(Split(arr(i) & vbTab, vbTab)(1))
if arr(i)"" then text2=text2 & arr(i) & "@qq.com" & vbcrlf
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim R, S As String, I As Integer
S = Text1.Text
S = Replace(S, " ", ",")
R = Split(S, ",")
S = ""
For I = LBound(R) To UBound(R)
If IsNumeric(R(I)) Then S = S + R(I) + vbCrLf
Next I
Text2.Text = Left(S, Len(S) - 1)
End Sub

追问

提取的qq号前面都不要空格，并且再变成qq邮箱样式（如：888888@qq.com）。可以吗？

追答

Private Sub Command1_Click()
Dim R, S As String, I As Integer
S = Text1.Text
S = Replace(S, " ", ",")
R = Split(S, ",")
S = ""
For I = LBound(R) To UBound(R)
If IsNumeric(R(I)) Then S = S + Right(R(I), Len(R(I) - 1)) + vbCrLf
Next I
Text2.Text = Left(S, Len(S) - 1)
End Sub
这样就没有空格了。

追问

能把提取出来的qq号码直接变成qq邮箱地址吗？就是在每个号码后面加上@qq.com。

Answer 3

Private Sub Command1_Click()
R = Split(Replace(Text1.Text, " ", ","), ",")
For I = LBound(R) To UBound(R)
If IsNumeric(R(I)) Then Text2.Text = Text2.Text & Replace(Replace(R(I), vbTab, ""), " ", "") & "@qq.com" & vbCrLf
Next I
End Sub

Answer 4

滴答滴滴答滴为什么小花男朋友叫她太主她会生气...