请问怎样将Big5转换成GB,并且可以将GB转换成Big5

[Eastunfail]

最好是用VC++

[zmazmapk]

首先要在工程中加入一个控件Big2GB.OCX （(3.0) 说明文件如下）
Big2GB.ocx是本人编写的BIG5码<=>GB码互换的完全免费的ActiveX控件.
用于VB5.0开发.(在前一个版本的基础上进行了代码优化,使得转换速度比上
一个版本快几十倍).

一个纯文本文件(Big5码),大小599k,转换速度为一秒.再将其装入
RichTextBox,共须八秒.
(测试环境:奔腾MMX 166,内存48M,硬盘4.3G,WIN95 OSR2)

用法如下:
本控件包含两条方法:
1. BigToGB(Big5码=>GB码)
例如: GBStr=ObjectName.BigToGB(BigStr)
'ObjectName-->控件名称
'GBStr-->字符串(转换完毕后的GB字符串)
'BigStr-->字符串(需转换的Big5字符串)

2. GBToBig(GB码=>Big5码)
例如: BigStr=ObjectName.GBToBig(GBStr)
'ObjectName-->控件名称
'GBStr-->字符串(需转换的GB字符串)
'BigStr-->字符串(转换完毕后的Big5字符串)

说明:
本控件可自由发布,有问题可与本人联系.
Email: [e-mail]

）
示例代码如下：
Option Explicit
Public filName As String
Public intTime1 As Integer
Public intTime2 As Integer
Private Sub Command1_Click()

On Error GoTo err1
If intTime1 <> 0 Then
Text1.Text = ""
Text2.Text = ""
End If
cd1.Filter = "文本文件|*.txt"
cd1.DialogTitle = "请选择要打开的BIG5码文件"
'cd1.Left = Form1.Width / 2
'cd1.Top = Form1.Height / 2
cd1.ShowOpen
filName = cd1.FileName
Dim strWord As String
'Dim strWord2 As String
'MsgBox filName
Open filName For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, strWord ' 读入一行数据并将其赋予某变量。
Text1.Text = Text1.Text + strWord + vbCrLf
Loop
Close #1
Text2.Text = Form1.Big2GB1.BigToGB(Text1.Text)
'save
cd1.Filter = "文本文件|*.txt"
cd1.DialogTitle = "请输入要保存的GB码文件名"
'cd1.Left = Form1.Width / 2
'cd1.Top = Form1.Height / 2
cd1.ShowSave
filName = cd1.FileName
Open filName For Output As #1
Write #1, Text2.Text
Close #1
intTime1 = 1


err1:
End Sub

Private Sub Command2_Click()

On Error GoTo err1

If intTime2 <> 0 Then
Text1.Text = ""
Text2.Text = ""
End If
cd1.Filter = "文本文件|*.txt"
cd1.DialogTitle = "请选择要打开的GB码文件"
cd1.ShowOpen
filName = cd1.FileName
Dim strWord As String
'Dim strWord2 As String
'MsgBox filName
Open filName For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, strWord ' 读入一行数据并将其赋予某变量。
Text2.Text = Text2.Text + strWord + vbCrLf
Loop
Close #1
Text1.Text = Form1.Big2GB1.GBToBig(Text2.Text)
'save
cd1.Filter = "文本文件|*.txt"
cd1.DialogTitle = "请输入要保存的BIG5码文件名"
cd1.ShowSave
filName = cd1.FileName
Open filName For Output As #1
Write #1, Text1.Text
Close #1
intTime2 = 1

err1:

End Sub

Private Sub Command3_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Form1.Picture = LoadPicture("")
End Sub

Private Sub mnuExit_Click()
Command3_Click

End Sub

[littleyy]

那里下载?

[Ninputer]

用StrConv一下就可以完成

[estrella]

zg

[Eastunfail]

怎么使用StrConv转换,可否举例?另外：　zmazmapk(安安),我真是不知道你是怎么学VB的,居然读文件还那么复杂,看看我的:
function readfile(filename as string) as string
Dim FreeMem as integer,byt() as byte,s as string
freemem=freefile
open filename for binary as freemem
redim byt(lof(freemem))
get #freemem,,byt
s=strconv(byt,vbunicode)
erase byt
readfile=s
end function

[Eastunfail]

谢谢各位,我已经用VC完成了,

[edogkid]

up