いつもお世話になっています。
今回VB6でプログラムを作成していて壁にぶち当たってしまいました。
分かる方がいましたらご教授下さい。
タイトル通りなんですが配列の内容の重複をなくした新しい配列を作成したいと考えています。
例
配列A: 1, 1, 2, 6, 5, 2, 3, 3
を
配列B: 1, 2, 6, 5, 3
と配列Aの先頭から順に配列Bに入れていきたいのです。
また、配列を動的配列で宣言していますが、配列Bの終わりが不定なので、最後に終端コード?を入れる
必要があるのか??と思っているのですが”EOF”なのでしょうか?
for i=0 to EOF
配列B[i]
next i
とすればすべて取り出せるのでしょうか?
補足が必要でしたら言ってください。
よろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
ユーザー定義型の配列にすれば動的配列にできますよ。
フォームの中とか標準モジュールに定義します。
「a」とか「b」とかは適当に。
Type UType
a As Integer
b As String
End Type
~~~以下は私の前回回答を修正~~
Dim A(7) As UType
Dim B() As UType
と宣言して、
col.Add A(i).a & "|" & A(i).b, A(i).a & "-" & A(i).b
に変えて下さい。
Set col = Nothingの上に出力処理で
For i = 1 To col.Count
'出力(例ではイミディエトウィンドウに書いてます)
Debug.Print col.Item(i)
Next
みなさんの回答を参考にしながらようやく完成しました。
プログラミングは奥が深いな~
また相談させて頂くかも知れませんがよろしくお願いいたします。
今回は本当にありがとうございました。
No.3
- 回答日時:
No.2さんと似たようなものかな?
Private Sub Command1_Click()
Dim A(7) As Integer
Dim B() As Integer
Dim col As New Collection
Dim i As Integer
A(0) = 1
A(1) = 1
A(2) = 2
A(3) = 6
A(4) = 5
A(5) = 2
A(6) = 3
A(7) = 3
'ここから本題↓
For i = LBound(A) To UBound(A)
'値をキーにしてコレクションに追加してみる
On Error Resume Next
col.Add A(i), CStr(A(i))
If Err.Number = 0 Then
'無事に追加できれば重複してないので配列Bに追加
ReDim Preserve B(col.Count - 1)
B(col.Count - 1) = A(i)
End If
On Error GoTo 0
Next
Set col = Nothing
End Sub
この回答への補足
早速ありがとうございます.
色々知らない関数?もあり目から鱗状態です.一つずつ確認したいと思います.
あれから色々組み入れていると例では足りない?ような考え方になってしまいました.
というのも
配列A: 1, 1, 2, 6, 5, 2, 3, 3
配列C: a, b, a, a, c, c, a, a
のようにそれぞれ対にして一つの意味をもたさなければ?(1-aでペア,1-bとは別もの)ということになりました.
2次元配列なら...と思ったのですが,動的配列ができないようで
1次元配列を2つ作ってやってみようと思い立ちました.
最大でも30程度のデータかと思うので配列A(30,30)としてもいけるのかな??
配列B: 1, 1, 2, 6, 5, 2, 3
配列D: a, b, a, a, c, c, a
のような感じで出力がしたいのです.
(表のイメージ)
1 | a
1 | b
2 | a
. | .
改良して対応することは可能なのでしょうか?
No.2
- 回答日時:
お世話になります。
以下のような方法はいかがでしょうか。
1. まず Dictionary で重複の無いデータを作成します。
2. Dictionary に登録された数分の要素をもつ
配列を作成します。
3. 2 で作成した配列に Dictionary の値を入れます。
Private Sub Command1_Click()
Dim arrayA(7) As Integer
arrayA(0) = 1
arrayA(1) = 1
arrayA(2) = 2
arrayA(3) = 6
arrayA(4) = 5
arrayA(5) = 2
arrayA(6) = 3
arrayA(7) = 3
' Scripting.Dictionary を使用する
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
Dim checkValue As Variant
For Each checkValue In arrayA
If Not dic.Exists(CInt(checkValue)) Then
' 存在していなければ、Dictionary に登録
dic.Add CInt(checkValue), "dummy"
End If
Next
' 結果用の配列
Dim arrayB() As Integer
ReDim arrayB(dic.Count - 1)
Dim key As Variant
Dim index As Integer
index = 0
For Each key In dic.Keys
arrayB(index) = CInt(key)
index = index + 1
Next
Set dic = Nothing
' 作成の配列の内容を出力
Dim value As Variant
For Each value In arrayB
Debug.Print value
Next
End Sub
この回答への補足
早速ありがとうございます.
Scripting.Dictionaryとは初めてしりました. 勉強になります.
あれから色々組み入れていると例では足りない?ような考え方になってしまいました.
というのも
配列A: 1, 1, 2, 6, 5, 2, 3, 3
配列C: a, b, a, a, c, c, a, a
のようにそれぞれ対にして一つの意味をもたさなければ?(1-aでペア,1-bとは別もの)ということになりました.
2次元配列なら...と思ったのですが,動的配列ができないようで
1次元配列を2つ作ってやってみようと思い立ちました.
最大でも30程度のデータかと思うので配列A(30,30)としてもいけるのかな??
配列B: 1, 1, 2, 6, 5, 2, 3
配列D: a, b, a, a, c, c, a
のような感じで出力がしたいのです.
(表のイメージ)
1 | a
1 | b
2 | a
. | .
改良して対応することは可能なのでしょうか?
みなさんの回答を参考にしながらようやく完成しました。
プログラミングは奥が深いな~
また相談させて頂くかも知れませんがよろしくお願いいたします。
今回は本当にありがとうございました。
No.1
- 回答日時:
適当ですが。
。。dim i,i_max as integer 'A
dim j,j_max as integer 'B
dim flg as boolean
i = 0
j = 0
i_max = 20
j_max = 0
for i=0 to i_max step 1
flg = 0
for j=0 to j_max step 1
if A[i] = B[j] then
flg = 1
exit for
end if
next
if flg = 0 then
'
else
j_max = j_max + 1
end if
next
この回答への補足
早速ありがとうございます.
あれから色々組み入れていると例では足りない?ような考え方になってしまいました.
というのも
配列A: 1, 1, 2, 6, 5, 2, 3, 3
配列C: a, b, a, a, c, c, a, a
のようにそれぞれ対にして一つの意味をもたさなければ?(1-aでペア,1-bとは別もの)ということになりました.
2次元配列なら...と思ったのですが,動的配列ができないようで
1次元配列を2つ作ってやってみようと思い立ちました.
最大でも30程度のデータかと思うので配列A(30,30)としてもいけるのかな??
配列B: 1, 1, 2, 6, 5, 2, 3
配列D: a, b, a, a, c, c, a
のような感じで出力がしたいのです.
(表のイメージ)
1 | a
1 | b
2 | a
. | .
追加して対応することは可能でしょうか?
みなさんの回答を参考にしながらようやく完成しました。
プログラミングは奥が深いな~
また相談させて頂くかも知れませんがよろしくお願いいたします。
今回は本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
ちょっと先の未来クイズ第4問
11月ごろに発表される、2024年の「新語・流行語大賞」にノミネートされる言葉を書けるだけ書いてください。
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
VB6にて、テキストファイルの内容を更新したいのですが。。
Visual Basic(VBA)
-
VB6 配列を初期化したい
Visual Basic(VBA)
-
VBのReturnの使い方
Visual Basic(VBA)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
順列の作成
-
VBのFunctionで、配列を引数...
-
配列変数の添字が範囲外ですと...
-
VBA 1次元配列を2次元に追加する
-
《エクセル2000》A列・B列の商...
-
2次元配列について、教えてくだ...
-
subの配列引数をoptionalで使う...
-
for each の現在の配列ポインタ...
-
Excel VBA TREND関数について
-
アルゴリズム、配列のフローチ...
-
RPG E仕様書について
-
2次元動的配列の第一引数のみを...
-
delphiで配列を、コピーするには。
-
VBAで近似曲線の係数取得
-
配列を任意の数値で埋める方法
-
ArrayListの初期値に二次元配列...
-
OutlookVBAでサブフォルダ一括作成
-
MATLABにて場合分け関数を定義...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
配列変数の添字が範囲外ですと...
-
特定のセル範囲で4文字以上入力...
-
VBA 1次元配列を2次元に追加する
-
ListViewで、非表示列って作れ...
-
subの配列引数をoptionalで使う...
-
for each の現在の配列ポインタ...
-
VB6 配列を初期化したい
-
エクセルで最小値から0を除く方法
-
2次元動的配列の第一引数のみを...
-
VBのFunctionで、配列を引数...
-
配列を任意の数値で埋める方法
-
Dim は何の略ですか?
-
Excel-VBAの配列「Public Const...
-
配列内の内容を全て表示する方法
-
Excel VBA配列をFunctionに渡す
-
[VB.net] StringからByte配列へ...
-
《エクセル2000》A列・B列の商...
-
ヤマ括弧でくくられたテキスト...
おすすめ情報