我有个用access写的程序，是在繁体系统用繁体写的，现在想在简体系统上使用它但老是出错。

用SQL语句将数据插入到access数据库中，数据就可以全变成繁体字了

---------------------------------------------------------------------------------------------------------------------

Private Sub Command2_Click()

Dim tTable() As Integer

Dim tString As String

tString = TextGetByFile( "简易版本FormMainfrm ") '源文件

tTable() = GBToBig5TableGetByFile( "GBToBig3TAB ") '读转换表

tString = ReplaceTextGBToBig5(tString, tTable(), Text1)

TextPutToFile "简易版本BG5txt ", tString '写目的文件

End Sub

Function TextPutToFile(ByVal pFileName As String, pText As String)

'写文本到文件

Dim tFileNumber As Integer

Dim tBytes() As Byte

tFileNumber = FreeFile

Open pFileName For Output As #tFileNumber

Close #tFileNumber

Open pFileName For Binary As #tFileNumber

If Not pText = " " Then

tBytes() = StrConv(pText, vbFromUnicode)

Put tFileNumber, 1, tBytes()

End If

Close #tFileNumber

End Function

Function TextGetByFile(ByVal pFileName As String) As String

'从文件获得多行文本。

Dim tOutText As String

Dim tFileNumber As Integer

Dim tBytes() As Byte

tFileNumber = FreeFile

Open pFileName For Binary As #tFileNumber

If CBool(LOF(tFileNumber)) Then

ReDim tBytes(LOF(tFileNumber) - 1)

Get tFileNumber, 1, tBytes()

tOutText = StrConv(tBytes, vbUnicode)

Else

MsgBox "警告：文件 " & pFileName & "是空的！ ", vbOKOnly, "文件无内容 "

End If

Close #tFileNumber

TextGetByFile = tOutText

End Function

Function ReplaceTextGBToBig5(ByVal pString As String, ByRef pTable() As Integer, Optional ByRef pViewText As TextBox = Nothing) As String

'转换GBK文本为Big5码。

Dim tOutString As String

Dim tIndex As Long

Dim tIndexOver As Long

Dim tAscii As Integer

Dim tCacheStr As String

Dim tCacheSize As Long

tIndexOver = Len(pString)

tCacheSize = Sqr(tIndexOver) + 1

For tIndex = 1 To tIndexOver

tAscii = Asc(Mid(pString, tIndex, 1))

tCacheStr = tCacheStr & Chr(pTable(tAscii))

If Not CBool(tIndex Mod tCacheSize) Then

tOutString = tOutString & tCacheStr

tCacheStr = " "

If Not pViewText Is Nothing Then

pViewTextText = (tIndex 100) \ tIndexOver

End If

End If

Next

If Not tCacheStr = " " Then

tOutString = tOutString & tCacheStr

tCacheStr = " "

End If

ReplaceTextGBToBig5 = tOutString

End Function

Function GBToBig5TableGetByFile(ByVal pFileName As String) As Integer()

'读GBK转Big5转换表文件

Dim tOutTable(-32768 To 32767) As Integer

Dim tFileNumber As Integer

tFileNumber = FreeFile

Open pFileName For Binary As #tFileNumber

Get #1, 1, tOutTable()

Close #tFileNumber

GBToBig5TableGetByFile = tOutTable()

End Function

-------------------------------------------------------------------------------------------------------------------

以上代码其实功能很单一：将GBK文本转换为BIG5。之所以能满足你的繁体需要是因为VB工程文件是文本格式的，仅仅可以保证你的工程代码成为繁体。

系统控件以及其他编译后的控件是二进制格式的，很难准确转换。我猜想：系统控件的语言和你安装的系统有关。究竟是不是这样，你自己试验一下就知道了。

根据我平时观察的现象：一些繁体软件在我的系统上用到的系统控件都是简体中文的，因此出现繁体/简体混杂现象，搞得我不得不用南极星“Auto”方式来自动识别。

根据这种现象，可能你的程序做成繁体后会出现如下现象：

1、在简体系统工作：系统控件是简体，程序本身的文字是繁体。

2、在繁体系统工作：系统控件是繁体，程序本身的文字是繁体。

如果打包工具携带有简体控件，并且安装到对方繁体系统下，则现象可能和（1）是相同。不妨先将代码转换之后编译为一个测试品，交给台方繁体系统测试一下就知道了。

寻求彻底的解决办法可以看看MSDN上的“多语言”部分相关内容，我对这部分并不熟悉。

另外，如果你将代码拷贝到繁体系统下以繁体VB编译，我想可以解决问题。因为转换为BIG5码后的代码和在繁体下编写出来的代码性质是一样的。这个办法比较保险一些。

你可以在Word里选中要显示为繁体字的内容,后点击工具栏中的“繁”字按钮，就ok了。如果要在别处显示，你可以用上面的方法转换，然后粘贴过去就行了。

仓颉拼音输入法Cintsetp

微软新仓颉输入法98b的安装程序，微软把它放在简体中文版windows xp中，但埋藏得较深。不过它很有用，安装后就会在windows中新增一个"中文(台湾)"的仓颉输入法，利用它可以在简体中文windows xp上通过输入繁体汉字。这对于从中国港澳台地区至内地工作的人提供了方便。（在 system32＼ime＼cintlgnt文件夹下）

或者换Windows自带的微软拼音或者下载紫光拼音。两个都可以输入简体和繁体的中文。

下载智能陈桥五笔~~在参数设置的汉字输出设置里选中输出繁体汉字即可~~

你的程序是否均以TXT格式保存﹖请将之用内码转换工具批量转换成

GBN2312->Unicode(将简体字转批成繁体字)即可(如东方快车的那个工个,或用2000自带的内码转换器也可﹐只是只能一个个地转换)。或在工程中﹐将每个窗体与包括中文字硬编码的PAS文件拷贝(对于窗体﹐请先

View

as

text﹐将代码拷贝到剪贴板)﹐然后将之粘贴到2000的代码转换工具中﹐将之转换成Unicode(繁体)即可(并不需要转换成BIG5码)﹐然后再贴回来。将以上处理过的工程另存﹐重新build

一次即可(这是最简单﹑快速的方法﹐只是有它的局域性。。。。)

这是软件编码的问题，如果不是unicode编码的中文软件，就不能正常显示。我 *** 作系统英文，原来中文软件都是“□”，后来琢磨了下弄好了。

要这样设置：

控制面板，地区及语言选项，语言标签（选项卡），安装东亚语言支持（大概中文是这个，我用的英文 *** 作系统，不太清楚）。安装这个需要 Windows安装盘，不必是安装系统时用的，随便什么都行。也可以上网下载个东亚语言包。安装之后选择高级标签（选项卡），非unicode编码的程序的语言（大概是这意思，反正是第一个下拉列表），在里面选择Chinese(PRC)。下面的那个列表要怎么选我就不清楚了，我是把有关 Simplified Chinese的都选上了。

现在应该就可以了。

以上就是关于我有个用access写的程序，是在繁体系统用繁体写的，现在想在简体系统上使用它但老是出错。全部的内容，包括:我有个用access写的程序，是在繁体系统用繁体写的，现在想在简体系统上使用它但老是出错。、电脑是xp的程序怎么打繁体字、delphi 现有一程序，要转换成繁体，请问有什么好的方法吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！