公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

<?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

^_^