文字列内の単語を一致させます。単語が文中で繰り返されると、メッセージ "Match"が返され、そうでなければ "No match"というメッセージが返されます。

Question

文章を入力して別の単語を分割するプログラムを作っています。今度は単語を比較し、単語が繰り返されるとメッセージの一致を返します。それ以外の場合は一致しません。しかし同じものを実行すると、MsgBoxは表示されません。

Dim sent 
Dim i 
Dim j 
Dim k 
sent = "Its a good day but every day is a good day" 
words = Array(Split(sent)) 
For i = LBound(words) To UBound(words)-1 
    For j = LBound(words)+1 To UBound(words) 
    k = StrComp(words(i), words(j)) 
    If k=0 Then 
     MsgBox ("Match") 
    Else 
     MsgBox ("No Match") 
    End If 
    Next 
Next 

Answer 1

UBound(words)が0を返しますのでForループが実行されることはありません：

これは私が書いたスクリプトです。

Split()関数がArrayを返すため、余分なArray()呼び出しが必要であるため、別の配列を含む1つの要素の配列が返されるためです。

ソリューションは、あなたの最初の問題を解決します

words = Split(sent) 

に

words = Array(Split(sent)) 

を変更することですが、あなたはそれが正常に動作する前に対処する必要があります。コードを他の問題があります。

Answer 2

タイプ/認識のトークンを分類/カウントするためのVBScriptのツールは、Dictionaryです。

デモ：

Option Explicit 

Dim a : a = Split("Its a good day but every day is a good day") 
Dim d : Set d = CreateObject("Scripting.Dictionary") 
Dim w 
For Each w In a 
    d(w) = d(w) + 1 
    If 1 < d(w) Then 
     WScript.Echo "more than one " & w & " - could 'Exit For'" 
    End If 
Next 
For Each w In d.Keys() 
    WScript.Echo w, d(w) 
Next 

（、ネストされたループをミリアンペアを見ていない！）

出力：

cscript 42004404.vbs 
more than one day - could 'Exit For' 
more than one a - could 'Exit For' 
more than one good - could 'Exit For' 
more than one day - could 'Exit For' 
Its 1 
a 2 
good 2 
day 3 
but 1 
every 1 
is 1