VB crea un archivo de texto UTF-8

Los archivos de texto escritos en codificación UTF-8 bajo programación VB generarán una lista de materiales, lo que hace que los archivos convertidos no se puedan compilar durante la compilación del sistema. La lista de materiales se debe eliminar. El código se implementa de la siguiente manera: Dim. ?app?As?Excel.Application

Dim?eworkbook?As?Workbook

Dim?eworksheet?As?Worksheet

Dim?eworksheet_count?As ?Integer

¿Dim?sheetName?As?String

Dim?obj?As?Object

Dim?FileNum

Dim?file_path ?as ?String

Dim?j?as?Integer

Dim?filepath_save?as?String

filepath_save?=?"D:/"?

Set?app?=?New?Excel.Application?//Conectar a EXCEL

Set?eworkbook?=?app.Workbooks.Open(file_path)

eworkbook_count ?=?eworkbook.Worksheets.count

Para?j?=?1?To?eworkbook_count filepath_path?=?filepath_save?&?j?&?".txt" Establecer?eworksheet?=?eworkbook . Sheets(j) SheetName?=?eworksheet.Name Set?obj?=?New?ADODB.Stream?//Establecer flujo ADODB With?obj

.Open

.Charset ? =?"UTF-8"

.Posición?=?.Tamaño

.WriteText?"helloworld",?1

.SaveToFile?filepath_save

.¿Cerrar final?Con Set?obj?=?Nada Abrir?filepath_save?For?Input?As?#1//Eliminar línea BOM UTF-8?Input?#1,?str

mm?=?Reemplazar(str,?str,?"msgid?""""") ¿Cerrar?#1 ¿Abrir?filepath_save?For?Binary?As?#FileNum

¿Poner #FileNum? ,?,?mm Cerrar?#NúmArchivo

Siguiente?j

Establecer?eworksheet?=?Nada

eworkbook.Close

Set?eworkbook?=?Nada

app.Salir

Set?app?=?Nada