topic-31684

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Conversion text Unicode to ASCII?
Posted: Wed Dec 09, 2015 07:03 PM

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 (fw): Select all Collapse

     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,

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Conversion text Unicode to ASCII?
Posted: Wed Dec 09, 2015 09:23 PM

Execute

Code (fw): Select all Collapse

         oText:= TTxtFile():New( cFileXML )

        cText :=  oText:ReadLine()

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

and put the results

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: Conversion text Unicode to ASCII?
Posted: Thu Dec 10, 2015 09:27 AM

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

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

Thanks

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Conversion text Unicode to ASCII?
Posted: Thu Dec 10, 2015 10:28 AM

Ok, try

Code (fw): Select all Collapse

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

   //   ... / ...

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: Conversion text Unicode to ASCII?
Posted: Thu Dec 10, 2015 11:02 AM

Hi,

I have tried and the result is the same.

Code (fw): Select all Collapse

   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

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Conversion text Unicode to ASCII?
Posted: Thu Dec 10, 2015 11:16 AM

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

Code (fw): Select all Collapse

   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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion