文字比較

質問

VB習って2週間です。ソート比較というんでしょうか　今
Dim newLedger(100) as string
Dim oldLedger(100) as string

が、ありそれぞれ文字が入っています。
newLedgerの配列に格納されている文字を
oldLedgerの配列に格納されている文字に
一つづつ比較し、同じ文字があればnum変数に1追加
なければ１減少というプログラムを作成しているのですが、作りかた教えていただけないでしょうか？

回答No.3

maruru01 · ベストアンサー

＞newLedger(0)をoldLedgerの配列の文字列と全て比較して
＞全て比較し終わったらnewLedger(1)とoldLedgerの配列の文字列と比較したいのです。

つまり2変数のマトリックスの全てを比較するということですね。
それなら、Forループを2重にします。

For i = 0 To 100
　　For j = 0 To 100
　　　　If StrComp(newLedger(i), oldLedger(j)) = 0 Then
　　　　　　num = num + 1
　　　　Else
　　　　　　num = num - 1
　　　　End If
　　Next j
Next i

ちなみに、このようにStrComp関数を使用した場合は、newLedgerとoldLedgerで完全に一致するかどうかになります。
どちらかがどちらかを含むというような場合は、さらに複雑になります。

回答No.5

Zeus089

For i = lBound(newLedger) To uBound(newLedger)
For j = lBound(oldLedger) To uBound(oldLedger)
　 num = num + IIf(StrComp(newLedger(i), oldLedger(j)) = 0, 1, -1)
　Next j
Next i

悩め！悩め！！！

回答No.4

TAGOSAKU7

>ソート比較
どこがソートなのだろうかと疑問を感じたので、とりあえず突っ込んで見ました。
もしかして、配列内容は文字列は存在していなくて、数字のみとか？

それ以外にも、
newLedger内部は重複していないデータ(数字と文字の混在)の配列
oldLedger内部は重複していないデータ(数字と文字の混在)の配列
これらの比較をするのであれば、コレクションを使用すると、効率があがると思います。

データの内容によって、最も高速な比較が違います。
マルチに対応するのであれば、maruru01氏の回答のように、全て回すしかないと思います。

回答No.2

imogasi

下記が曖昧なように思うので、補足してください。

＞文字が入っています。
（Ａ）１文字だけが入っているのではないでしょうね。
　例えばＤだけとか。
（Ｂ）ＤＯＧとか文字の語句が入っているのですね。
私なら「文字」と言わないで、「文字列」と表現します。
＞同じ文字があれば
（Ａ）なら、newの文字や語句の中のＤの字がの数を数える
ことになります。
（Ｂ）の場合ＤＯＧだけを数えるのか、ＤＯＧＨＯＵＳＥ
のように、「含まれている」のも考えるのか。
（Ｃ）ＮＥＷ（１）とＯＬＤ（１）だけ、ＮＥＷ（２）とＯＬＤ（２）だけ対応す要素だけ比較するのか。
（Ｄ）ＯＬＤ（１）の語句をＮＥＷ（ｘ）（Ｘが０から
１００まで）を同じ語句のものがないか探すのか。
（Ｅ）一致しない時なぜ１減らすのか、理解に苦しむ。
その効用は何でしょう。

回答No.1

maruru01

こんにちは。maruru01です。

配列のインデックス同じどうしでの比較なら、
こんな感じでしょうか。

Dim i As Long

For i = 0 To 100
　　If StrComp(newLedger(i), oldLedger(i)) = 0 Then
　　　　num = num + 1
　　Else
　　　　num = num - 1
　　End If
Next i

StrComp関数などはヘルプなどを参照して下さい。
ちなみに、同じ文字でなければ1減少だと、100個の場合、50個が同じで50個が違う場合は、差し引きで増減0になるけどそれでいいんですか。

補足

ありがとうございます。
ただ上記の場合ですと、newLedger(i)とoldLedger(i)が一緒に進んでしまいます。
newLedger(0)をoldLedgerの配列の文字列と全て比較して
全て比較し終わったらnewLedger(1)とoldLedgerの配列の文字列と比較したいのです。