如何将一个繁体字的txt文件转换为简体字的txt文件？

[ymk]

如何将一个繁体字的txt文件转换为简体字的txt文件？

[daisy8675]

可以利用VBA的word来处理

也可以利用数据库来转换

如果VBA处理不好，数据库你又没有文件，我觉得可以去利用google翻译去转。

[daisy8675]

补充一个我未验证的 API

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

'简转繁
Public Function JToF(ByVal Str As String) As String
Dim STlen As Long
Dim STf As String
STlen = lstrlen(Str)
STf = Space(STlen)
LCMapString &H804, &H4000000, Str, STlen, STf, STlen
JToF = STf
End Function

'繁转简
Public Function FToJ(ByVal Str As String) As String
Dim STlen As Long
Dim STj As String
STlen = lstrlen(Str)
STj = Space(STlen)
LCMapString &H804, &H2000000, Str, STlen, STj, STlen
FToJ = STj
End Function

[Adai011]

已经验证，API可行的。

[starair]

2楼的方法，有些简体不能转成繁体，比如 丑闻-醜聞，由于-由於，不知道怎么解决？

[y409505]

API（简体转繁体）的方法，在简体系统里看转后繁体文件，没甚么错，但把转后的繁体文件拷贝到繁体系统下会出现乱码，期待有更好的办法

[Tiger_Zhao]

试试将 &H804 换成 &H404

[starair]

[Quote=引用 6 楼 Tiger_Zhao 的回复:]
试试将 &H804 换成 &H404
[/Quote]
我给你验证了一下，还是不行
我是用比较笨的方法解决了，找了简体繁体相对应的两个字库，按字库查找

[Tiger_Zhao]

查表对应法是最准确的，反正是成段对应，没多少代码。