国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

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

原來是打算把上面的文字變成<?xml version='1.0' encoding='gb2312'?><scorelist><score>043,45-13-06-09-31-40 T：47 牛.土.藍(lán)</score></scorelist>，把其中的回車符和換行符去掉，網(wǎng)上找了很久還是沒有找到。

自己試了下，先用以下這個函數(shù)替換掉后：

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 牛.土.藍(lán)
</score></scorelist>

后面的那個不知道是什么符號還是不能去掉。

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

Epos = Instr(BodyStr,"</score>")
epos1 = instr(Bodystr,"藍(lán)")

發(fā)現(xiàn)epos是90、epos2是92，后面的那個空的不知道是什么東西剛好是兩個字符(我現(xiàn)在搞不懂這個是什么字符)：

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)&"期開獎結(jié)果：<span id=\""host_040_get_num\"">"&tm(1)&"</span>"")"
'document.write("第043期開獎結(jié)果：<span id=\"host_040_get_num\">45-13-06-09-31-40 T：47 藍(lán).土.牛</span>")
else
BodyStr = "document.write("""&Bodystr&""")"
end if

^_^