0

我正在寻找 VBScript 中的任何集合对象，它能够在一组字符串中找到特定的字符串（可以是 Excel 内容行）。如果目标字符串中的搜索值出现多次，那么所有匹配的值应该需要更换一个更换器。该功能应该与 Excel 中的类似Application.Match()。

编辑

  Elements to be removed -> (14,25,99,78)' in an 1D Array
  ArrayList objects hold -> (11,14,23,14,56,67,25,14,112,21,25,14,99,44,33,99,78)
  Fatser process I want which will process the above Arraylist object and give me the 
  list as - > (11,23,56,67,112,21,44,33)

谢谢，奥雅纳

4

1 回答 1

1

如果字符串可以用逗号分隔，那么您可以使用split. 然后你可以搜索，ArrayList因为它允许你添加重复的项目。

您还可以Replace在更方便的级别使用。

Dim strInput as String
strInput = "mystring values are too many values
Replace (strInput, "values", "items")
Msgbox  strInput '-- returns "mystring items are too many items"

根据 Array 中的值删除 ArrayList 中的元素的代码片段： 请根据您的数据需要更改代码。登录保持不变。

Sub removeInLists()
Dim vArray As Variant
Dim d As Object
Dim arrayList As Object
Dim i As Integer

Set d = CreateObject("Scripting.Dictionary")
Set arrayList = CreateObject("System.Collections.ArrayList")

'--populate array from Range with deletion keywords
vArray = Application.WorksheetFunction.Transpose(Sheets(1).Range("B2:B10"))

arrayList.Add "countries"
arrayList.Add "cities"
arrayList.Add "numbers"
arrayList.Add "hola"
arrayList.Add "decimals"
arrayList.Add "hola"
arrayList.Add "decimals"
arrayList.Add "numbers"

'--put arrayList into the dictionary to get unique values
For i = 0 To arrayList.Count - 1
    If Not d.Exists(arrayList(i)) Then
        d.Add arrayList(i), i
    End If
Next

'--output original arrayList
Sheets(1).Range("C2").Resize(arrayList.Count, _
1) = Application.Transpose(arrayList.toArray)

'-- remove data
For i = LBound(vArray) To UBound(vArray)
    '--remove from dictionary
    If d.Exists(vArray(i)) Then
        d.Remove (vArray(i))
    End If
    '--remove from arrayList
    If arrayList.Contains(vArray(i)) Then
        arrayList.Remove vArray(i)
    End If
Next i

'-- if you want you may save it as a array list or keep it as a dicionary or an array
'--vArray = d.Keys

'--output ArrayList
Sheets(1).Range("D2").Resize(arrayList.Count, _
1) = Application.Transpose(arrayList.toArray)

'-- output final dictionary after deletions
Sheets(1).Range("E2").Resize(d.Count) = Application.Transpose(d.keys)

Set arrayList = Nothing
Set d = Nothing
End Sub

工作表中的输出：

在此处输入图像描述

于 2012-12-26T13:07:45.773 回答