dedearr=split(xiangguanid2,chr(13)) '分割成数组 for dede=0 to ubound(dedearr)-1 '数组长度减一,因为最后有两个chr(13)换行。 dedearr2=split(dedearr(dede),"|") dedetitle=dedearr2(1) dedeurl=dedearr2(0) if dedetitle<>"" and dedeurl<>"" then xiangguanart2=xiangguanart2&"<li><a href="""&dedeurl&""" title="""&dedetitle&""" target=""_blank"">"&dedetitle&"</a></li>" end if next end if