Dim iReadNumber As Integer '读文件号
    Dim iWriteNumber As Integer '写文件号
    Dim mem() As Byte 'byte数组
    Dim strFileName As String '文件名
    Dim lLength As Long '文件长度

'`将文件内容读入mem byte数组
    iReadNumber = FreeFile
    strFileName = TextFileName.Text
    lLength = FileLen(strFileName)
    ReDim mem(lLength) As Byte
    Open strFileName For Binary As #iReadNumber
    Get #iReadNumber, , mem
    Close #iReadNumber
   
  '`将mem数组转换为Big5码所对应的Unicode码
    mem = StrConv(mem, vbUnicode, &H404)
    '`再将Unicode码转换为GBK编码
    mem = StrConv(mem, vbFromUnicode, &H804)
   
    '`写到源文件里去
    iWriteNumber = FreeFile
    Kill strFileName
    Open strFileName For Binary As #iWriteNumber
    Put #iWriteNumber, , mem
    Close #iWriteNumber
    '`结束

你是轉在繁體

是啊

你是不會用還是不會寫啊

不会用 也不会写 这个是COPY别人的  HEHE

我想把一个VLX繁体文件转换成简体的啊  请帮帮我吧  谢谢

其實你去網上下一個BIG5GB的應用程序何必自己寫呢它一樣可以轉化

好像这个只能在 ANSI 和 UNICODE 之间互转, 语言还是同一种的. 任何不同语言的转换应该叫做翻译, 恐怕这个是不行的.

请教VB内码转换语言怎么使用

提供几个Unicode和ASCII码转换的API函数：


[[it] 本帖最后由 flyue 于 2008-7-2 18:18 编辑 [/it]]