Conversion text Unicode to ASCII?

[Horizon]

Hi,

I have an Unicoded XML and I could not open it TXmlDocument class.

I have converted xml file unicode to Ascii at external editor and there is no problem.

Code: Select all  Expand view

    LOCAL oXmlDoc := TXmlDocument():new()
    xMLFILE := "MyXML.xml"
    IF !FILE(xMLFILE)
        MsgAlert(xMLFILE+CRLF+"not found")
        RETURN
    ENDIF

    oXMlDoc:read( Memoread( XMLFILE ) )

 

Is there any way to convert a text file to ascii readed Memoread(xmlfile)?

Thanks,

[cnavarro]

Execute

Code: Select all  Expand view

         oText:= TTxtFile():New( cFileXML )

        cText :=  oText:ReadLine()

  ? Left( cText, 2 )
  ? Left( cText, 3 )


 

and put the results

[Horizon]

Hex : FF, FE, 3C
Dec : 255, 254, 60

There is "UTF-16LE" in first line XML.

Thanks

[cnavarro]

Ok, try

Code: Select all  Expand view

Function MyFunction( cFileXML, cFileOut )
   local cCad1    := Chr( 239 ) + Chr( 187 ) + Chr( 191 )
   local cCad2    := Chr( 255 ) + Chr( 254 )
   local cCad3    := Chr( 254 ) + Chr( 255 )
   local oText
   local cText
   local cCad0   := ""

   oText:= TTxtFile():New( cFileXML )
   cText :=  oText:ReadLine()
   oText:Close()

   if Left( cText, 2 ) == cCad2 .or. Left( cText, 2 ) == cCad3
      cCad0 := Rigth( cText, Len( cText ) - 2 )
   else
        if Left( cText, 3 ) == cCad1
           cCad0 := Rigth( cText, Len( cText ) - 3 )
        else
           cCad0   := cText
       endif
    endif  
    if !Empty( cCad0 )
        Memowrit( cFileOut, cCad0 )    
   endif

   //   ... / ...
 

[Horizon]

Hi,

I have tried and the result is the same.

Code: Select all  Expand view

  Time from start: 0 hours 0 mins 12 secs
   Error occurred at: 10/12/2015, 12:59:16
   Error description: Error BASE/1004  No exported method: DEPTH
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => DEPTH( 0 )
   Called from: xhb\txml.prg => TXMLITERATOR:NEW( 0 )
   Called from: xhb\txml.prg => TXMLITERATORSCAN:NEW( 0 ))

Thanks

[cnavarro]

Create the ASCII file and once created, read the XML (ASCII ) file are two different things

Code: Select all  Expand view

   MyFunction( "MyXml.xml", "MyAscii.xml")

   // Now you use file  "MyAscii.xml"
 

viewtopic.php?f=6&t=31092&p=179597&hilit=TXmlDocument#p179597
viewtopic.php?f=3&t=30679&p=176428&hilit=TXmlDocument#p176428