如何判断字符的编码

odqpbo

由于工作原因,经常需要将中文翻译成日文．但是常常发生这样的情况——一些中文字符忘记被翻译成日文，在纯日文的环境下看起来就是乱码。不知道有没有办法判断一个字符到底是日文还是中文。不希望通过Font.Name来判断，因为各种字体的名字实在太多。请大家指教，谢谢。

odqpbo

简单的来说就是如何判断一个字符是不是中文。

守柔

如何判断是CJK统一汉字？也就是说这个字符既是汉字，又是日文？

请上传一个文档，我们实地看一下。

odqpbo

多谢守柔斑竹回复。 请参见附件。

2G2XCv7f.rar (2.34 KB, 下载次数: 25)

2006-9-23 08:21 上传

点击文件名下载附件

[此贴子已经被作者于2006-9-23 8:21:54编辑过]

守柔

QUOTE:

以下是引用odqpbo在2006-9-23 8:11:27的发言：

多谢守柔斑竹回复。 请参见附件。
   

请参考，注意语言查找，Word2003版本也许更好一些，有关语言查找的内容，可以搜索一下我以前的贴子。

 

odqpbo

多谢斑竹的回答。我正准备写一个检查工具，现在有了新的思路，真得很感谢。

odqpbo

斑竹，请帮忙看一下。

写了一个检查工具，但是有一点问题。

是在日文字符的语言属性被设定为“中文(中国)”的时候，明明是日文但是还是会被当成中文，不知道有什么好办法。参见sample.doc文件

代码如下：

Function markChinese()
    With Selection.Find
        .LanguageID = wdSimplifiedChinese
        .Text = "(?)"
        .Replacement.Text = "\1"
        .Replacement.Font.Color = wdColorRed
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    markChinese = Selection.Find.Execute(Replace:=wdReplaceAll)
End Function

Sub chkChinese()
    Dim rgnStory As Range
    Dim found As Boolean
    
    found = False
    
    For Each rgnStory In ActiveDocument.StoryRanges
        rgnStory.Select
        If (markChinese = True) Then found = True
        
        Do While Not (rgnStory.NextStoryRange Is Nothing)
            Set rgnStory = rgnStory.NextStoryRange
        Loop
        
    Next rgnStory

    If found Then
        MsgBox "Found Chinese fonts!", vbCritical, "Warning"
    Else
        MsgBox "No Chinese fonts found!", vbInformation, "Congratulations!"
    End If

    ActiveWindow.View.Type = wdPrintView
End Sub

Ko6nkIsp.rar

(3.64 KB, 下载次数: 13)



2006-9-23 12:43 上传
点击文件名下载附件

[此贴子已经被作者于2006-9-23 12:54:02编辑过]

守柔

你发一个非常具有代表性的文档上来，我具体研究一下正确的做法，尽可能复杂些，尽可能把你所能出现的情况反应出来，把是日文的标识一下，以免我搞错。

OK？

odqpbo

守柔斑竹。将现在能够考虑到的情况归纳了一下，请参见附录。谢谢！！ ECLxDv5A.rar (5.91 KB, 下载次数: 16)

2006-9-23 19:14 上传

点击文件名下载附件

[此贴子已经被作者于2006-9-23 19:14:23编辑过]

守柔

这个问题，我感觉有些困难，因为我无法区分在CJK统一汉字中，哪个是中文哪个是日文，因为它们是共有的，除了楼主语言识别和字体的识别外，我暂时想不出更好的办法。