0

私は検索してきましたが、同様の質問をいくつか見つけましたが、どれも私にとって解決策ではないため、Visual Basic で必要なのは次のとおりです。

テキスト(文字列)があり、次のような 2 つの配列があります。

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が質問へのコメントで述べたように、これにより、「Four」が「Fourteen」に置き換えられるという問題が発生する可能性があります。

于 2013-02-04T17:06:10.520 に答える