【帮忙想个算法谢谢各位】

<BODY>
<IMG:fdafdafdaasd> 
 

上面的内容放在textbox里面
用代码把里面的内容改为

<BODY>
<IMG:fdafdafdaasd/>

125.40.218.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

dim TxtStr as string

for i = 1 to len(text1)
DE=mid(text1,i,1)
if DE=">"
CE=mid(text1,i-4,4)
if CE<>"<BODY"then DE="/>"
end if
TxtStr =TxtStr &CE
next i

北京百度网讯科技有限公司

vb?别担心，我们提供专业医疗服务，助您找回健康生活

2025-02-27 06:50广告

立即查看

125.40.218.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

不好意刚才直接写的没试.我试了一下错了两个地方.....
一是字的个数让我数错了...二是最后获得的变量是DE 不是CE

Dim TxtStr As String

For i = 1 To Len(Text1)
DE = Mid(Text1, i, 1)
If DE = ">" Then
CE = Mid(Text1, i - 5, 5)
If CE <> "<BODY" Then DE = "/>"
End If
TxtStr = TxtStr & DE
Next i

呵呵在看你代码呢

感觉好像有问题！~

i-5是什么意思？

125.40.218.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

I-5是为了判断>符号前面是不是 <BODY 如果不是的话就就添加\符号..

那TxtStr里的值是一行一行取的嘛？

你可以忽略body这个问题

TEXT1的Multiline设为 True

Private Sub Form_Load()
Text1.Text = "<BODY>" & vbCrLf
Text1.Text = Text1.Text & "<IMG:fdafdafdaasd> " & vbCrLf
Text1.Text = Text1.Text & " "
End Sub

Private Sub Command1_Click()
If InStr(Text1.Text, "fdafdafdaasd") > 0 Then Text1.Text = Replace(Text1.Text, "fdafdafdaasd", "fdafdafdaasd/")
If InStr(Text1.Text, "BR") > 0 Then Text1.Text = Replace(Text1.Text, "BR", "BR/")
End Sub

长沙掌途网络科技

测一下纳豆激酶能溶栓吗，3分钟35题，在线测一测您的健康程度，纳豆激酶能溶栓吗，马上自测健康程度，健康自测量表，做完即出结果!

2025-02-27 06:50广告

立即查看

不用判断也不会错, 但习惯上最好加上

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "fdafdafdaasd", "fdafdafdaasd/")
Text1.Text = Replace(Text1.Text, "BR", "BR/")
End Sub

嘿嘿老师 fdafda……这个是我胡乱打的因为img里面的内容是不相同的造成你们误解不好意思

其实我就是想做一个工具缩短开发时间因为得到得html代码不是正规得没有结束符所以我想给它加个结束符

就是像你说的那样 textbox1的Multiline是true 我把得到得html代码拷贝到里面然后要开始替换把没有结束符的都放都加上/

只要有规则的话你这问题应该很好解决举个你真正的例子�

125.40.218.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

你要是一行一行的取那才容易出错,你取出来的网页源码放在TEXT中格式就乱了..一行行取根本不行.

<input type="submit" id="Submit3" name="Submit3" value="发表贴子"> 
<input type="hidden" value="vb" id="forumName"/> 
<img src="http://c.baidu.com/c.gif?t=1&q=%A1%BE%B0%EF%C3%A6%CF%EB%B8%F6%CB%E3%B7%A8%26nbsp%3B%D0%BB%D0%BB%B8%F7%CE%BB%A1%BF&c=vb&p=2&pn=1" style="display:none;" > 

从百度里抽了几个要求改完是这样得

<input type="submit" id="Submit3" name="Submit3" value="发表贴子"/> 
<input type="hidden" value="vb" id="forumNameBR"/> 
<img src="http://c.baidu.com/c.gif?t=1&q=%A1%BE%B0%EF%C3%A6%CF%EB%B8%F6%CB%E3%B7%A8%26nbsp%3B%D0%BB%D0%BB%B8%F7%CE%BB%A1%BF&c=vb&p=2&pn=1" style="display:none;" />

125.40.218.*
我也在考虑这个问题我也怕出现这种情况

<BR:fdafdafadsfdafdasfdsafdasfdafdasfdas换行了
fdafda>

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

1 2 下一页尾页
19回复贴，共2页
，跳到页

<<返回vb吧

分享到:

日	一	二	三	四	五	六

【帮忙想个算法 谢谢各位】

扫二维码下载贴吧客户端

【帮忙想个算法谢谢各位】