通过VB编写UTF-8格式的文本文件

最新推荐文章于 2024-04-14 21:12:40 发布

wtz1985

最新推荐文章于 2024-04-14 21:12:40 发布

阅读量5.1k

点赞数 1

分类专栏： VB 文章标签： vb excel path api 数据库扩展

本文链接：https://blog.csdn.net/wtz1985/article/details/2970030

版权

VB 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

由于系统的需要,要国际化,但是由于那些字符串和翻译都写在EXCEL表格里面,如果一个一个的复制出来,那是相当麻烦的.所以老大让我写一个转换器,从EXECEL表格中导出数据,然后写到.PO扩展名的文本文件,要求UTF-8的编码格式的.

UTF-8是UNICODE编码格式的一种特殊情况.对于汉字的处理,它是采用了三个字节.对于它的具体情况,在这就不具体介绍,网上有相当多的资料.在VB中,有很多API可以提供,比如连接EXCEL、连接数据库、ADODB数据流等。这些API都可以很方便的引用。

在写的过程中，让我有点苦恼的是，用UTF-8编码编写的文本文件，都会产生一个BOM，这使得转换出来的文件，在系统编译中编译不过去，必须要把BOM去掉。接下来通过代码讲讲怎么实现。

 
 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                                         //连接EXCEL
Set eworkbook = app.Workbooks.Open(file_path)
eworkbook_count = eworkbook.Worksheets.count

For j = 1 To eworkbook_count
  filepath_path = filepath_save & j & ".txt"
  Set eworksheet = eworkbook.Sheets(j)
  sheetName = eworksheet.Name
  Set obj = New ADODB.Stream     //设置ADODB流
                                   
  With obj
    .Open
    .Charset = "UTF-8"
    .Position = .Size
    .WriteText "helloworld", 1
    .SaveToFile filepath_save
    .Close
  End With

  Set obj = Nothing

  Open filepath_save For Input As #1                                        //消除UTF-8的BOM
  Line Input #1, str
       mm = Replace(str, str, "msgid """"")
  Close #1
  Open filepath_save For Binary As #FileNum
       Put #FileNum, , mm
  Close #FileNum
Next j

Set eworksheet = Nothing
eworkbook.Close
Set eworkbook = Nothing
app.Quit
Set app = Nothing
 