質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

6823閲覧

2つの2次元LISTの連結 VB.NET

HidehiroOgata

総合スコア15

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2016/02/20 01:29

こんにちわ、VB初心者です。
不明点があり、質問させていただきます。

<質問内容>
VB.NETで2種類の2D配列があったとき。
たとえば
A)
{{"SN01","aa1","bb1"},{"SN02","aa2","bb2"}}
B)
{{"SN01","cc1","dd1"},{"SN02","cc2","dd2"}}

とあったとき
これらを連結して、

{{"SN01","aa1,"bb1","cc1","dd1"},
{"SN2","aa2","bb2","cc2","dd2"}}
とするには、どうすればよいでしょうか

すなわち SN*をタグにして2つの配列を
連結したいという事です
リストでやろうとしているのですが、
1次元の情報しかなく、ご教授いただけますと
大変助かります。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

一旦、Dictionary に変換してやってみました。
( 二次元配列ではなく、ジャグ配列になってしまいますが。)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a1 As String(,) = {{"SN01", "aa1", "bb1"}, {"SN02", "aa2", "bb2"}} Dim a2 As String(,) = {{"SN01", "cc1", "dd1"}, {"SN02", "cc2", "dd2"}} Dim dict As New Dictionary(Of String, List(Of String)) AddToDict(dict, a1) AddToDict(dict, a2) Dim lst1 As New List(Of String()) For Each kv As KeyValuePair(Of String, List(Of String)) In dict Dim lst2 As New List(Of String) lst2.Add(kv.Key) lst2.AddRange(kv.Value) lst1.Add(lst2.ToArray()) Next Dim a3 As String()() = lst1.ToArray() End Sub Private Sub AddToDict(ByVal dict As Dictionary(Of String, List(Of String)), ByVal a As String(,)) For i As Integer = 0 To a.GetLength(0) - 1 Dim lst As List(Of String) If dict.ContainsKey(a(i, 0)) Then lst = dict.Item(a(i, 0)) Else lst = New List(Of String) dict.Add(a(i, 0), lst) End If For j As Integer = 1 To a.GetLength(1) - 1 lst.Add(a(i, j)) Next Next End Sub

投稿2016/02/20 11:25

blueshadows

総合スコア15

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問