پاك كردن فاصله ها و خواندن مقادير از xml

[Ealireza]

سلام
من از يك سري xml اطلاعاتي رو ميخواهم
فكر كنم كدم خرابه
اگه ميشه يك كد استاندارد براي باز كردن xml بصورت HTTP بديد كه به راحتي بشه تگ ها رو از هم جدا كرد و در صورت وجود نداشتن اختار نده

بعد من اين كد رو طوري ميخواهم كه vbCrLf نداشته باشه
هركاري كرم با اين كد كار نكرد

rep=replace(rep,vbCrLf,"")

لطفا يك كد توپ و استاندارد بگيد تا من استفاده كنم
يا اگه كد ديگري بلد نيستيد بگيد چطوري ميشه vbCrLf ها رو پاك كرد من كه هر كاري كردم نشد
با تشكر عليرضا

 

[AliReza26]

http://forum.majidonline.com/viewtopic.php?t=21352

 

[Ealireza]

عزيز اگه ميشه كلاسك رو بگو

راستي كدي كه خودم نوشتم كار ميكنه
اما تنها اشكالش اينه كه بعضي از تگ ها رو باز نميكنه
حالا اگه امكان داره يك كلاسيك بگو
دمت گرم

 

[AliReza26]

علي رضا جان ببخشيد دير شد :

اين مثال به دردت ميخوره :

فايل XML با نام demo.xml:

<?xml version="1.0" encoding="ISO-8859-1"?>
<news>
<item>
<title>Tarahi.Net</title>
<link>http://www.tarahi.net</link>
<description>Learning-Download-ITNews-WebDesigning-...</description>
</item>
</news>

فايل ASP :

<%
Dim objXML
Set objXML = Server.CreateObject("microsoft.XMLDOM")
objXML.Load (Server.MapPath("demo.xml"))
If objXML.parseError.errorcode = 0 Then
strTitle = objXML.documentElement.firstChild.firstChild.text
strLink = objXML.documentElement.firstChild.childNodes(1).Text
strDescription = objXML.documentElement.firstChild.childNodes(2).Text
response.Write (strTitle & "<br>")
Response.Write (strLink & "<br>")
Response.Write (strDescription & "<br>")
Else
Response.Write ("There was an error")
End If 
Set objXML = Nothing
%>

 

[Ealireza]

دستت درد نكنه
ولي اگه ميشه با استفاده از http بگو
و طوري هم باشه كه وقتي تو descrepic... فاصله اي وجود داشت از اون صرف نظر كنه و يا اگر اصلا تگي بنام descrip.. وجود نداشت ازش صرف نظر شه
با تشكر فراروان