Buenas tardes
Vuelvo a soltar el Hilo de la pregunta: COMO CREAR UN ARCHIVO TEXTO EN FORMATO UTF-8, por que realmente estoy TOTALMENTE PERDIDO en el proceso :
Yo siempre cree los archivos textos sin inconvenientes, pero esto del formato UTF es otra cosa. Hasta el momento con el aporte de Karinha y Carlos he desarrollado estas alternativas, pero aun me rechaza la WebService que debe de recibir el Archivo.
ALTERNATIVA 1 : Usando la funci贸n HB_StrToUTF8(<cStr>[,<cCPID>])---><cUTF8Str> (aqu铆 desconosco para que sirve el Parametro cCPID, quiz谩 ah铆 este la soluci贸n)
2. ALTERNATIVA : Usando la Funcicion HB_TRANSLATE()
En ambos casos inclusive retornan archivos textos diferentes, definitavmente a algo o mucho que estoy haciendo mal
Les agradecer茅 sus comentarios
Lubin
Vuelvo a soltar el Hilo de la pregunta: COMO CREAR UN ARCHIVO TEXTO EN FORMATO UTF-8, por que realmente estoy TOTALMENTE PERDIDO en el proceso :
Yo siempre cree los archivos textos sin inconvenientes, pero esto del formato UTF es otra cosa. Hasta el momento con el aporte de Karinha y Carlos he desarrollado estas alternativas, pero aun me rechaza la WebService que debe de recibir el Archivo.
ALTERNATIVA 1 : Usando la funci贸n HB_StrToUTF8(<cStr>[,<cCPID>])---><cUTF8Str> (aqu铆 desconosco para que sirve el Parametro cCPID, quiz谩 ah铆 este la soluci贸n)
** proceso usado
** El Array llamado 聽V_DOCUM contiene varias l铆neas de textos con 脩, y vocales con acentos 聽que formaran parte del archivo
聽
FERASE(cFileTempo)
*Creamos el Archivo texto desde el ARRAY
oText := TTxtFile():New( cFileTempo)
FOR I = 1 TO LEN(V_DOCUM) 聽
聽 oText:Add(V_DOCUM[I] )
NEXT I
oText:Close()
*Leemos el Archivo texto creado
MIDATO := MemoRead(cFileTempo)
*Convierto el texto del Archivo creado 聽HB_StrToUTF8(<cStr>[,<cCPID>])---><cUTF8Str>
xtexto 聽:= hb_strToUTF8( MIDATO 聽)
*Grabo el archivo
Hb_MemoWrit( cfileDestino, xtexto )2. ALTERNATIVA : Usando la Funcicion HB_TRANSLATE()
** proceso usado
** El Array llamado 聽V_DOCUM contiene varias l铆neas de textos con 脩, y vocales con acentos 聽que formaran parte del archivo
FERASE(cFileTempo)
*Creamos el Archivo texto desde el ARRAY
oText := TTxtFile():New( cFileTempo)
FOR I = 1 TO LEN(V_DOCUM) 聽
聽 oText:Add(V_DOCUM[I] )
NEXT I
oText:Close()
*Leemos el Archivo texto creado
MIDATO := MemoRead(cFileTempo)
*Convierto el texto del Archivo creado
xtexto = 聽hb_translate( MIDATO ,"PLWIN", "UTF8")
*Grabo el archivo
Hb_MemoWrit( cfileDestino, xtexto )En ambos casos inclusive retornan archivos textos diferentes, definitavmente a algo o mucho que estoy haciendo mal
Les agradecer茅 sus comentarios
Lubin