0

我一直在搜索,我发现了一些类似的问题,但它们都不是我的解决方案,所以我需要的是 Visual Basic 中的这个:

我有一个文本(字符串),我有两个这样的数组:

Dim data_array_one As String() = {"One", "Two", "Three", "Four"}
Dim data_array_two As String() = {"Five", "Six", "Seven", "Eight"}

我需要将文本中的每个“<em>One”替换为“<em>Five”,将每个“<em>Two”替换为“<em>Six”,等等......我一直在使用一个简单的替换功能:

text1 = text1.Replace("One", "Five")
text1 = text1.Replace("Two", "Six")
...

但是现在数组包含 24 个元素,并且每天它都会自动递增,所以我需要从数组中自动执行它,而不是实际的方式......在此先感谢。

4

1 回答 1

1

你可以试试这个作为一个简单的修复。

dim i as single

For i = 0 to data_array_one.getlength(0)
text1 = text1.Replace(data_array_one(i), data_array_two(i))
next

但是,它的效率不是很高,正如 tcarvin 在对您的问题的评论中所说,这可能会导致在“十四”中替换“四”的问题。

于 2013-02-04T17:06:10.520 回答