关于vb中替换字符串的问题

来源：百度知道 编辑：UC知道 时间：2024/06/19 02:39:44
希望实现把一下代码:
广告。 <IMG src="http://42061024534181519_1.gif" align=left border=1>摄影工作室<IMG src="http://53452008181519_2.gif" align=left border=1>成立伊始坚持走清新自然的广告。 <IMG src="http://08181519_3.gif" align=left>摄影工作室<IMG src="http://．．．．．．．．．
还有很多个<IMG src="http://...">.
把其中的<IMG src="http://...">全部替换成"无法显示"

'把下面代码保存为Form1.frm，然后双击打开此文件，运行即可。

'=========Form1.frm===========
VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000009&
BorderStyle = 3 'Fixed Dialog
Caption = "文本替换器"
ClientHeight = 4140
ClientLeft = 45
ClientTop = 435
ClientWidth = 6405
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4140
ScaleWidth = 6405
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 2055
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 1680
Width = 4455
End
Begin VB.TextBox Text1
Height