FORMAT output of Debug.Print .responseText (from api rest)

[sal21]

<?xml version="1.0" encoding="utf-8"?><Response xmlns:xsd="

http://www.w3.org/2001/XMLSchema"

xmlns:xsi="

http://www.w3.org/2001/XMLSchema-instance"

xmlns="

http://schemas.microsoft.com/search/local/ws/rest/v1"><Copyright>Copyright

© 2024 Microsoft and its suppliers. All rights reserved. This API cannot be accessed and the content and any results may not be used, reproduced or transmitted in any manner without express written permission from Microsoft Corporation.</Copyright><BrandLogoUri>

https://dev.virtualearth.net/Brandi...imatedTotal><Resources><Location><Name>Strada

Provinciale Quarantasette 27, 89818 Capistrano VV, Italia</Name><Point><Latitude>38.6857407</Latitude><Longitude>16.2937848</Longitude></Point><BoundingBox><
SouthLatitude>38.68187798242932</SouthLatitude><WestLongitude>16.287187176966889</WestLongitude><NorthLatitude>38.689603417570673</NorthLatitude><EastLongitude>16.300382423033113</EastLongitude></BoundingBox><EntityType>Address</EntityType><Address><AddressLine>Strada Provinciale Quarantasette 27</AddressLine><AdminDistrict>Cal.</AdminDistrict><AdminDistrict2>VV</AdminDistrict2><CountryRegion>Italia</CountryRegion><FormattedAddress>Strada Provinciale Quarantasette 27, 89818 Capistrano VV, Italia</FormattedAddress><Locality>Capistrano</Locality><PostalCode>89818</PostalCode><Intersection><BaseStreet>Strada Provinciale Quarantasette</BaseStreet><SecondaryStreet1>Via Dante Alighieri</SecondaryStreet1><IntersectionType>Near</IntersectionType><DisplayName>Strada Provinciale Quarantasette and Via Dante Alighieri</DisplayName></Intersection></Address><Confidence>High</Confidence><MatchCode>Good</MatchCode><GeocodePoint><Latitude>38.6857407</Latitude><Longitude>16.2937848</Longitude><CalculationMethod>Rooftop</Calcu
lationMethod><UsageType>Display</UsageType></GeocodePoint></Location></Resources></ResourceSet></ResourceSets></Response>

Is possible to format the output type in attached file? and save as txt in c:\mydir\prova.txt

?

Tks

https://files.engineering.com/getfi...86-d278-4be3-9352-4439408d9865&file=prova.txt

 

[strongm]

Sure. Here's an example of one method. Note it is not production code and fails if you do not pass it 100% correct XML. And, I shouold point out, neither the text you psotred above, nor the linked file, are 100% correct XML ...

[COLOR=blue][COLOR=green]' Example. Only works with correctly formatted XML. Fails if it is not.
' Requires a reference to Microsoft XML, v6.0 library[/color]
Public Function PrettyPrintXML(XML As String) As String

    Dim xslDoc As New DOMDocument60
    Dim Reader As New SAXXMLReader60
    Dim Writer As New MXXMLWriter60
  
    xslDoc.LoadXML XML
  
    Writer.indent = True
    Writer.standalone = False
    Writer.omitXMLDeclaration = False
    Writer.Encoding = "utf-8"

    Set Reader.contentHandler = Writer
    Reader.Parse xslDoc

    PrettyPrintXML = Writer.output
End Function[/color]

 

[2009luca]

Hi bro.
I can pass directlly .responseText in xml as string?

 

[strongm]

Should be able to, yes. Of course, you could have just tried it ...

 

[2009luca]

Tks bro!