UC知道大侠帮我写一个小程序
来源：百度知道 编辑：UC知道 时间：2024/05/26 11:57:08
我想编一个QQ空间歌曲地址转换工具~~但是代码真的不好写~
我创建了3个按钮，
command1为：复制，command2为转换，command3为退出！
两个TEXT文本框！还有两个Label一个对应原始地址，一个对应转换地址！
我现在的问题是如何将text1里面的输入的内容中的一部分数字复制到，text2里面去！
例如在Text1里面输入：javascript:listen(x,y,z,'m')
按下“Command2”转换
这个时候x的值发生变化！x=x+2000000
在Text2里面显示：http://streamy.music.qq.com/x.wma
这样的地址！
希望高手给我源代码！~
希望高手帮助！
写好了我再给100分！~求各位乐··
注：x,y，z,m，的取值由用户输入而定！~
例如：
javascript:listen(10146625,8,14902,'Never Say Goodbye〈My Girl〉片尾曲(试听)')
x对应：10146625
y对应：8
x+2000000=12146625
这里的x,y也对应上面的程序！~
转换后的地址为：http://stream8.music.qq.com/12146625.wma
我创建了3个按钮，
command1为：复制，command2为转换，command3为退出！
两个TEXT文本框！还有两个Label一个对应原始地址，一个对应转换地址！
我现在的问题是如何将text1里面的输入的内容中的一部分数字复制到，text2里面去！
例如在Text1里面输入：javascript:listen(x,y,z,'m')
按下“Command2”转换
这个时候x的值发生变化！x=x+2000000
在Text2里面显示：http://streamy.music.qq.com/x.wma
这样的地址！
希望高手给我源代码！~
希望高手帮助！
写好了我再给100分！~求各位乐··
注：x,y，z,m，的取值由用户输入而定！~
例如：
javascript:listen(10146625,8,14902,'Never Say Goodbye〈My Girl〉片尾曲(试听)')
x对应：10146625
y对应：8
x+2000000=12146625
这里的x,y也对应上面的程序！~
转换后的地址为：http://stream8.music.qq.com/12146625.wma
Private Sub Command1_Click()
If Text1 = "" Then Exit Sub
If InStr(Text1, "(") = 0 Or InStr(Text1, ",") = 0 Then Exit Sub
Dim i%, j%, x As Long
i = InStr(Text1, "(") + 1
j = InStr(Text1, ",") - i
x = Val(Mid(Text1, i, j)) + 2000000
Text2 = "http://stream8.music.qq.com/" & CStr(x) & ".wma"
End Sub