Question

vb怎样过滤掉重复的数字和不是数字的内容，并保留其中百分之十？

如下代码可以过滤掉重复的数字和不是数字的内容。如何修改，使代码过滤掉重复的数字和不是数字的内容后，只保存过滤数据中30%的内容？比如。过滤后有100个数字，保存到文本文件中的数字是其中前30个（也可以是其中任意30个）。
Option Explicit
Private Sub Command1_Click()
Dim arr, mark, dic, i
mark = "zhidao"
arr = "京(6699) 上海(4789) 美国(87968)……(6699)……当然并不(123)都是怎(456)样把"
arr = fc(arr, mark)
Set dic = CreateObject("scripting.dictionary")
For i = LBound(arr) To UBound(arr)
If Not dic.Exists(arr(i)) Then dic.Add arr(i), ""
Next
arr = dic.keys
Print Join(arr)
Open "c:\a.txt" For Output As #1
Print #1, Join(arr)
Close #1
Set dic = Nothing
End Sub
Function fc(s, mark)
Dim arr, brr(), i, n, str
If InStr(s, "(") > 0 Then
arr = Split(s, "(")
For i = 0 To UBound(arr)
If InStr(arr(i), ")") > 0 Then
str = Split(arr(i), ")")(0)
If IsNumeric(str) Then
ReDim Preserve brr(n)
brr(n) = Split(arr(i), ")")(0) & mark
n = n + 1
End If
End If
Next
End If
fc = brr
End Function

Answer 1

arr = fc(arr, mark)

下面插入一行
ReDim Preserve arr(UBound(arr) * 0.3)

追问

不行啊

追答

那我就没法帮你了，反正我试了是可以的。

追问

不行啊。另外，如果30%不是整数，要变成整数

追答

会自动取整的
还有，究竟是怎么个不行法啊？有什么出错提示没有？光说不行我怎么知道是怎么不行呢？男人不能随便说不行的哦，呵呵

追问

任何提示没有，但过滤结果和没有加你说的那行代码完全一样。

追答

那就奇怪了。
还有一种方法是：
把
For i = LBound(arr) To UBound(arr)
改为
For i = LBound(arr) To UBound(arr) * 0.3

追问

我把ReDim Preserve arr(UBound(arr) * 0.1)放到arr = dic.keys的后面终于可以了。。但发现一个问题，67条数据按10%保留的话，应该是7条，但最后是8条。试了多次，不管原来数据多少，最后都是多一条数据

追答

这样试试：
ReDim Preserve arr(UBound(arr) \ 10)

追问

呵呵，ReDim Preserve arr(UBound(arr) \ 10)可以了。但ReDim Preserve arr(UBound(arr) \ 11)又不行，不能四舍五入。怎样四舍五入？
另外但为什么这行代码插入到arr = dic.keys后面终于可以，而插入arr = fc(arr, mark)后不可以呢？

追答

这个是通用的：
ReDim Preserve arr(Round(UBound(arr) * 百分数, 0) - 1)

比如
ReDim Preserve arr(Round(UBound(arr) * 0.09, 0) - 1)