在固定字符中间添加不固定字符的程序

Question

比如在￥*（（&￥RTRTFFR中间添加%%%%￥*（（&￥
RTRTFFR
是固定的

Answer 1

dim Data as string
Data=￥*（（&￥RTRTFFRData=Replace(Data,Data,"￥*（（&￥" & "要增加的字符" & "RTRTFFR")

Answer 2

比如要在RTRTFFR字符前面加不固定字符则为
MsgBox Replace(s, "RTRTFFR", "要加的字符" & "RTRTFFR")

Answer 3

以上
s = "￥*（（&￥RTRTFFR"

Answer 4

<embed src="http://www.blogcastone.net/audio/player.swf?sundFile=就是在这里添加&playerID=10&bg=0xeeeeee&leftbg=0x357dce&lefticon=0xFFFFFF&rightbg=0xf06a51&rightbghover=0xaf2910&righticon=0xFFFFFF&righticonhover=0xffffff&text=0x666666&slider=0x666666&track=0xFFFFFF&border=0x666666&loader=0x9FFFB8&loop=no&autostart=no" type="application/x-shockwave-flash" wmode="transparent" height="40" width="290"></embed>
就在上面那地方添加比如http://www.abd.com/ddk.mp3http://www.abd.com/ddk.mp3
这个玩意是输入在一个Ｔｅｘｔ中的
然后再输出在另一个ｔｅｘｔ
然后有个复制按钮
复制处理过的本人想学ＶＢ，但是时间确实有限，高三了没办法啊

Answer 5

src="http://www.blogcastone.net/audio/player.swf?sundFile=&playerID=10&bg=0xeeeeee&leftbg=0x357dce&lefticon=0xFFFFFF&rightbg=0xf06a51&rightbghover=0xaf2910&righticon=0xFFFFFF&righticonhover=0xffffff&text=0x666666&slider=0x666666&track=0xFFFFFF&border=0x666666&loader=0x9FFFB8&loop=no&autostart=no"
textbox1=Replace(s, "sundFile=", "sundFile=" & "要加的字")

Answer 6

src="http://www.blogcastone.net/audio/player.swf?sundFile=&playerID=10&bg=0xeeeeee&leftbg=0x357dce&lefticon=0xFFFFFF&rightbg=0xf06a51&rightbghover=0xaf2910&righticon=0xFFFFFF&righticonhover=0xffffff&text=0x666666&slider=0x666666&track=0xFFFFFF&border=0x666666&loader=0x9FFFB8&loop=no&autostart=no"
textbox1=Replace(src, "sundFile=", "sundFile=" & "要加的字")

Answer 7

我很后悔提了这个sB问题
我要学Vb