[求助]请问如何统计不重复的字数？

未来

以下是引用[I]守柔[/I]在2006-4-4 12:00:04的发言：[BR]

TO KONGGS

你的修改很好。

我们再来优化一下，把二次循环变为一次循环，你看如何？

Sub 不重复字符知多少()
Dim AllText As String, B As String
Dim i As Long, StartTime As Single
Dim OnlyText As String
StartTime = Timer
AllText = ActiveDocument.Content.Text
For i = 1 To Len(AllText)
B = Mid(AllText, i, 1)
If B Like "[一-龥]" Then '如果属于汉字字符(CJK统一汉字字符集)
If OnlyText = "" Then
OnlyText = B '为变量赋初值
ElseIf VBA.InStr(OnlyText, B) = 0 Then
'如果在OnlyText变量中,没有出现过的字符,则加入该变量字符集中
OnlyText = OnlyText & B
End If
End If
Next
MsgBox Len(OnlyText), vbOKOnly, Timer - StartTime
End Sub

老大，这玩意儿的确好，可是怎么用呢？我一点儿都不懂编程，又该如何用？

pumasarel

上面的程序我试过了，统计中文果然管用，但如何统计英文呢？我这个菜鸟弄了一整天想自己修改一下，不行呵，不懂就是不懂，没办法，只好请教了！

52zyz

 高，实在是高！！！顶一下[em08]

未来

QUOTE:

以下是引用守柔在2006-4-4 12:00:04的发言：

TO KONGGS

你的修改很好。

我们再来优化一下，把二次循环变为一次循环，你看如何？

Sub 不重复字符知多少()
    Dim AllText As String, B As String
    Dim i As Long, StartTime As Single
    Dim OnlyText As String
    StartTime = Timer
    AllText = ActiveDocument.Content.Text
    For i = 1 To Len(AllText)
        B = Mid(AllText, i, 1)
        If B Like "[一-龥]" Then    '如果属于汉字字符(CJK统一汉字字符集)
            If OnlyText = "" Then
                OnlyText = B    '为变量赋初值
            ElseIf VBA.InStr(OnlyText, B) = 0 Then
                '如果在OnlyText变量中,没有出现过的字符,则加入该变量字符集中
                OnlyText = OnlyText & B
            End If
        End If
    Next
    MsgBox Len(OnlyText), vbOKOnly, Timer - StartTime
End Sub

我也想知道楼主的方法，可是版主，我不懂VB，不明白这样的代码，在Word中如何用？简直是看天书。

[em04]

菊石泽露

谁说说Excel里vba的用法，谢谢了！

菊石泽露

既然各位大虾太忙，我就只好自己瞎摸了。

光统计字数有点不实用，怎样把这些字保存一个文本文件？