StrConv 内码转换

StrConv(string,conversion,LCID)

string，预转换的字符串了(也可以使用byte数组)。

Conversion: 是一个整数，只决定转换方式，VB里定义了一些常量，如VBFromUnicode、VBUnicode等等，这些不用我解释大家应该也明白了吧。

LCID:长整数， 可以指定编码方式， 如&H404，即Big5码， &H804即GBK码，合理运用这个参数，就可以写出一个非常简单的内码转换工具!

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