<?xml version='1.0' encoding='gb2312'?><scorelist><score>
043,45-13-06-09-31-40 T：47 牛.土.蓝
</score></scorelist>

原来是打算把上面的文字变成<?xml version='1.0' encoding='gb2312'?><scorelist><score>043,45-13-06-09-31-40 T：47 牛.土.蓝</score></scorelist>，把其中的回车符和换行符去掉，网上找了很久还是没有找到。

自己试了下，先用以下这个函数替换掉后：

Function HTMLEncode(Str)
Str=Replace(Str," "," ")
Str=Replace(Str,vbcrlf,"")
Str=Replace(Str,Chr(10),"")
Str=Replace(Str,Chr(13)+Chr(10),"")
HTMLEncode=Str
End Function

还是无法变成这样子：

<?xml version='1.0' encoding='gb2312'?><scorelist><score>043,45-13-06-09-31-40 T：47 牛.土.蓝
</score></scorelist>

后面的那个不知道是什么符号还是不能去掉。

'''''''''''bodystr代表最上面的那段字符''''''''''''''''

Epos = Instr(BodyStr,"</score>")
epos1 = instr(Bodystr,"蓝")

发现epos是90、epos2是92，后面的那个空的不知道是什么东西刚好是两个字符(我现在搞不懂这个是什么字符)：

BodyStr = HTMLEncode(Mid(Bodystr,Spos + 8,epos-spos-8-2))

先用最简单的方法少取2个字符就ok了！

if instr(BodyStr,",")<>0 then
tm = split(BodyStr,",")
Bodystr = "document.write(""第"&tm(0)&"期开奖结果：<span id=\""host_040_get_num\"">"&tm(1)&"</span>"")"
'document.write("第043期开奖结果：<span id=\"host_040_get_num\">45-13-06-09-31-40 T：47 蓝.土.牛</span>")
else
BodyStr = "document.write("""&Bodystr&""")"
end if

^_^