【VBA】获取多文本文件总条数及去重后数量

 以下文本为存放IP文件，每行一条，代码可检查IP总数及是否有重复。“合并后总数”是否等于“去重后总数”

 

Sub CheckIPNum()
On Error Resume Next
Dim arr
Dim j As Integer, all_num As Integer
all_num = 0
Set dic = CreateObject("scripting.dictionary")
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        '多选
        .Filters.Clear
        '清除文件过滤器
        .Filters.add "Excel Files", "*.txt"
        .Filters.add "All Files", "*.*"
        '设置两个文件过滤器
        Dim showOkCancel As Integer
        showOkCancel = .Show
        'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果
您按 Cancel）。
        If showOkCancel = -1 Then
            For i = 1 To .SelectedItems.Count
'                  Debug.Print "您选择的文件是：" & .SelectedItems(i)
                    Open .SelectedItems(i) For Input As #1
            '        把所有内容赋值给数组
                    arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
                    Close #1
'                    把所有内容存入字典内
                    all_num = all_num + UBound(arr) + 1
                    For j = 0 To UBound(arr)
                        dic.add arr(j), ""
                    Next j
            Next i
            MsgBox "检测到IP数：总数" & all_num & "  去重后" & dic.Count & "个"
        End If
    End With


End Sub