<?xml version="1.0" encoding="UTF-16"?>

Cu ajutorul lui googu m-am mai luminat eu oleaca dar sint inca departe de o rezolvare   Solutia gasita se refera la deschiderea fisierului cu NotePad si salvarea lui cu  encoding="Unicode"

Imi puteti sugera o rezolvare din VFp pentru aceasta problema ?!!

Am mai gasit pe net o solutie dar din pacate fara rezultat si aceasta:

nFis=aDir(aFis,'*.xml')
if nFis<1
    ?? chr(7)
    wait ' Nu gasesc fisiere Xml ' wind time 10
    return
endif
for ii=1 to nFis
    cFis=aFis(ii,1)
    nSursa=fOpen(cFis)
    if nSursa<0
        wait ' Nu pot deschide fisierul  '+cFis wind time 15
        loop
    endif
    nDestin=fCreate('Fisier.txt')
    do while !fEof(nSursa)
        cSir=fGets(nSursa)
          cSyr=StrConv(cSir,1)    && Single byte -> Double Byte
          cSyr=StrConv(cSyr,5)    && Double Byte -> Unicode
          =fPuts(nDestin,cSyr)
      enddo
    =fClose(nSursa)
    =fClose(nDestin)
    delete file &cFis
    rename Fisier.txt to &cFis
endfor

Costel wrote Uff ! i-am dat de capat      tot cu  googu  "saracul" fSO=CREATEOBJECT("scripting.FileSystemObject") nFis=aDir(aFis,'*.xml') if nFis<1     ?? chr(7)     wait ' Nu gasesc fisiere Xml ' wind time 10     return endif for ii=1 to nFis     cFis=aFis(ii,1)     nSursa=fOpen(cFis)     if nSursa<0         wait ' Nu pot deschide fisierul  '+cFis wind time 15         loop     endif     oFis = fSO.CreateTextFile("Fisier.txt",.T.,.T.)     do while !fEof(nSursa)         cSir=fGets(nSursa)         oFis.WriteLine(cSir)       enddo     =fClose(nSursa)     oFis.Close()     delete file &cFis     rename Fisier.txt to &cFis endfor

Cred ca solutia e sa parcurgi fiesierul caracter cu caracater si sa cinvertesti fiecare caracter in unicode adik pe 16 biti.Nu stiu fox-ul ce functii are pentru asa ceva dar windows are api in mod cert ,te uiti in msdn gasesti functia api care face converie de la char la widechar si ar trebui sa mearga