龙翔飞飞12的个人资料 - RAT

龙翔飞飞12 龙翔飞飞12

关注数: 19 粉丝数: 183 发帖数: 5,493 关注贴吧数: 6

菜鸟求大神帮助！请教各位大神们，如何从以下的字符串中提取出加红的那些字符串： <?xml version="1.0" encoding="gb2312" ?><result><count>1</count><url><encode><![CDATA[ htt p://zhangmenshiting.baidu.com/data2/music/27727419/Y2lqZmxqaHFfn6NndK6ap5WXcGZob29saJhqaGWXb5pkaWSVmWpqnWFna5aYZ5qdYWVplWtrcJxqlGtqaWeYmmhilFqin5t1YWBkZ2Zpb2poYmRra21tbDE$]]></encode><decode><![CDATA[ 27727419.mp3?xcode=239847f740a8b371ad43e058bc1ce036a659d9b8641ab70a&mid=0.13138270176764]]></decode><type>8</type><lrcid>1918</lrcid><flag>1</flag></url><durl><encode><![CDATA[ htt p://zhangmenshiting2.baidu.com/data2/music/19065986/Ymtjampvb25fn6NndK6ap5WXcGZob29saJhqaGWXb5pkaWSWmGlpaJSWbGmXbZlxaJOZaWWYamxiYmttaG6bm5ZmY1qin5t1YWBkZ2Zpb2poYmRra21tbDE$]]></encode><decode><![CDATA[ 19065986.mp3?xcode=239847f740a8b371bc320cd95b7b97af50b34108938dce40&mid=0.13138270176764]]></decode><type>8</type><lrcid>1918</lrcid><flag>1</flag></durl><p2p><hash>6e8be8e9c24e50dc777a728fba8c93f25632b59c</hash><url><![CDATA[]]></url><type>mp3</type><size>3355524</size><bitrate>128</bitrate></p2p></result> 我用以下的代码尝试获取过，却只能获取到第一和第三句，求教！： Dim str For i = 0 To Len(字符串) - 1 str = Mid(字符串, i + 1, 1) If str = "[" Then Dim dizhi1 For ii = i To Len(字符串) - i - 1 str = Mid(字符串, ii + 1, 1) If str <> "]" Then dizhi1 = dizhi1 & str Else Exit For End If Next Dim dizhi2 For iii = ii To Len(字符串) - i - 1 - ii str = Mid(字符串, iii + 1, 1) If str = "[" Then For iiii = iii To Len(字符串) - i - 1 - ii - iii str = Mid(字符串, iii + 1, 1) If str <> "]" Then dizhi2 = dizhi2 & str Else Exit For End If List1.AddItem dizhi1 & "/" & dizhi2 Next End If Next End If Next End If

求助，求大神们帮帮小菜鸟！！请教各位大神们，如何从以下的字符串中提取出加红的那些字符串： <?xml version="1.0" encoding="gb2312" ?><result><count>1</count><url><encode><![CDATA[ http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhangmenshiting.baidu.com%2Fdata2%2Fmusic%2F27727419%2FY2lqZmxqaHFfn6NndK6ap5WXcGZob29saJhqaGWXb5pkaWSVmWpqnWFna5aYZ5qdYWVplWtrcJxqlGtqaWeYmmhilFqin5t1YWBkZ2Zpb2poYmRra21tbDE%24&urlrefer=fe4bc84db2ba67896bb13f443749491e]]></encode><decode><![CDATA[ 27727419.mp3?xcode=239847f740a8b371ad43e058bc1ce036a659d9b8641ab70a&mid=0.13138270176764]]></decode><type>8</type><lrcid>1918</lrcid><flag>1</flag></url><durl><encode><![CDATA[ http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhangmenshiting2.baidu.com%2Fdata2%2Fmusic%2F19065986%2FYmtjampvb25fn6NndK6ap5WXcGZob29saJhqaGWXb5pkaWSWmGlpaJSWbGmXbZlxaJOZaWWYamxiYmttaG6bm5ZmY1qin5t1YWBkZ2Zpb2poYmRra21tbDE%24&urlrefer=fc0abe01b390ba21302030a57fc4e2b5]]></encode><decode><![CDATA[ 19065986.mp3?xcode=239847f740a8b371bc320cd95b7b97af50b34108938dce40&mid=0.13138270176764]]></decode><type>8</type><lrcid>1918</lrcid><flag>1</flag></durl><p2p><hash>6e8be8e9c24e50dc777a728fba8c93f25632b59c</hash><url><![CDATA[]]></url><type>mp3</type><size>3355524</size><bitrate>128</bitrate></p2p></result> 我用以下的代码尝试获取过，却只能获取到第一和第三句，求教！： Dim str For i = 0 To Len(strhtml) - 1 str = Mid(strhtml, i + 1, 1) If str = "[" Then Dim dizhi1 For ii = i To Len(strhtml) - i - 1 str = Mid(strhtml, ii + 1, 1) If str <> "]" Then dizhi1 = dizhi1 & str Else Exit For End If Next Dim dizhi2 For iii = ii To Len(strhtml) - i - 1 - ii str = Mid(strhtml, iii + 1, 1) If str = "[" Then For iiii = iii To Len(strhtml) - i - 1 - ii - iii str = Mid(strhtml, iii + 1, 1) If str <> "]" Then dizhi2 = dizhi2 & str Else Exit For End If List1.AddItem dizhi1 & "/" & dizhi2 Next End If Next End If Next End If

【原创帖】看到有童鞋发恶搞图片生成工具，我也来发个 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D1741081063%26uk%3D3925985670&urlrefer=8f403537ba98e8707f5f91914293bf5c介个是下载地址，觉得不错就顶个！

【原创帖】SunnyWayMusicPlayer 用vb.net花了很多时间做了一个带些Metro风格的音乐播放器，70%已完成，先亮几张截图，希望大家喜欢

你去补考了吗我去年12月桩考没通过，到现在还没轮到补考，你们有这样的情况吗？我是义乌交通驾校的

710的进来报个到！如上！

分班考名次哪里有查分班考名次？我昨晚一个一个地查，查了半天才查出我第8名左右

哪首纯音乐前面有女高声哪首纯音乐前面有女高声

体育休闲厂家进+++++ 我家有1摊位在三区体育休闲区，求一个体育休闲厂家代理销售。联系：13777921846 0579-83597526 详细电话中谈。记得打电话的时候说明。

转让九成新地热转让九成新地热

首页 1 2 下一页