Visual Basic - utf-8

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Roberto

utf-8

Publicado por Roberto rettarl@gmail.com (2 intervenciones) el 24/02/2014 02:20:47
Estimados, tengo un programa en VB6 que me genera un archivo .txt que luego va a ser usado por otra aplicacion para generar tarifas. El tema es que tengo que convertirlos antes a codificacion UTF-8.
Hay alguna forma que los archivos ya me salgan directamente en esa codificacion dentro del VB6?
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

utf-8

Publicado por Antoni Masana (88 intervenciones) el 24/02/2014 07:11:09
Tienes que crearte una tabla de conversión.

Es decir todos en una tabla pones los caracteres de VB6 y en otra los mismos caracteres en uft-8 y a la hora de escribir conviertes la cadena de texto al formato deseado

Un ejemplo: (desconozco cuales son los caracteres de UTF-8)

1
2
3
4
5
6
7
8
VB6 --> UTF-8
 a  -->   a
 b  -->   b
 c  -->   c
 á  -->   ?
 Á  -->   /
 é  -->   *
 ;  -->   &

La primera columna representa la lista de caracteres en VB6 y la segunda en UTF-8.

Con lo que si VB6 tiene el texto bacá en el fichero debería grabar bac?

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

utf-8

Publicado por Juan Gilberto (278 intervenciones) el 24/02/2014 16:43:17
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Referencia Microsoft ActiveX Data Objects  (o sea, ADO)
'Declara
    Dim objStream   As ADODB.Stream
    Dim MiTexto	    As String
 
    MiTexto = ""
    MiTexto = MiTexto & "Este es el contenido de un archivo txt" & vbCrLf
    MiTexto = MiTexto & "Esta es la 2a. linea" & vbCrLf
    MiTexto = MiTexto & "Esta es la 3a. linea" & vbCrLf
    MiTexto = MiTexto & "Esta es la 4a. linea"
 
 
    Set objStream = New ADODB.Stream
        objStream.Open
        objStream.Charset = "UTF-8"
        objStream.WriteText MiTexto
        objStream.SaveToFile App.Path & "\MiArchivoUTF8"
        objStream.Close
    Set objStream = Nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar