C# と VB.NET の質問掲示板

jiioiと申します。
今、VB2005を勉強しているところです。
環境　Visual Studio 2005 Professional Edition
WindowsXP Professional です。
下記のC#のコードをVBに置き換えているのですが、どうしても匿名メソッドのところが分かりません。
お分かりになられる方、どうか御教授お願いいたします。



C#のコード


public abstract
class  Arraylib {
	public delegate bool  DSearchArray<T>( T[]  array, int  index );
	private delegate void  DSplit_AddToList( int  iSubStart, int  iSubEnd );
	public static
	T[][]  Split<T>( T[]  array, DSearchArray<T>  delimit ) {
		// 部分配列のリスト
		System.Collections.Generic.List<T[]>  list = new System.Collections.Generic.List<T[]>();
		bool  hasData = false;
		int   iStart  = -1;
		
		// 部分配列を抜き出してリストに追加するデリゲート
		DSplit_AddToList  addToList = delegate( int  iSubStart, int  iSubEnd ) {
								int  subcnt = iSubEnd - iSubStart;
								T[]  arraySub = new T[subcnt];
								Array.Copy( array, iSubStart, arraySub, 0, subcnt );
								list.Add( arraySub );
							};
		
		// ソース配列を走査する
		for( int  i = 0; i < array.Length; i++ ) {
			if( delimit(array, i) ) {
				// 区切り位置を見つけた
				if( hasData ) {
					// 部分配列を抜き出してリストに追加する
					addToList( iStart, i );
					hasData = false;
				}
			} else if( ! hasData ) {
				iStart  = i;
				hasData = true;
			}
		}
		if( hasData ) {
			// 部分配列を抜き出してリストに追加する
			addToList( iStart, array.Length );
			hasData = false;
		}

		return  list.ToArray();
	}
	
}

VBに置き換えているコード

   Public MustInherit Class Arraylib
        Public Delegate Function DSearchArray(Of T)(ByVal array As T(), ByVal index As Integer) As Boolean
        Private Delegate Sub DSplit_AddToList(ByVal iSubStart As Integer, ByVal iSubEnd As Integer)

         Public Shared Function Split(Of T)(ByVal array As T(), ByVal delimit As DSearchArray(Of T)) As T()()
            ' 部分配列のリスト
            Dim list As New System.Collections.Generic.List(Of T())()
            Dim hasData As Boolean = False
            Dim iStart As Integer = -1

            ' 部分配列を抜き出してリストに追加するデリゲート
            Dim addToList As DSplit_AddToList
            addToList = New DSplit_AddToList(AddressOf AddList())

            ' ソース配列を走査する
            For i As Integer = 0 To array.Length - 1
                If delimit(array, i) Then
                    ' 区切り位置を見つけた
                    If hasData Then
                        ' 部分配列を抜き出してリストに追加する
                        addToList.Invoke(iStart, i)
                        hasData = False
                    End If
                ElseIf Not hasData Then
                    iStart = i
                    hasData = True
                End If
            Next
            If hasData Then
                ' 部分配列を抜き出してリストに追加する
                addToList.Invoke(iStart, array.Length)
                hasData = False
            End If

            Return list.ToArray()

        Private Sub AddList(ByVal iSubStart As Integer, ByVal iSubEnd As Integer)
            Dim subcnt As Integer = iSubEnd - iSubStart
            Dim arraySub As T() = New T(subcnt - 1) {}
            array.Copy(array, iSubStart, arraySub, 0, subcnt)
            list.Add(arraySub)
        End Sub
     End Function

    End Class

具体的にどこが分からないのでしょうか。

ちなみに、このC#の匿名メソッドは、匿名（デリゲート）である必要を感じません。
要するにこういう関数があれば良いはずなので。

private static void AddToList<T>(T[] array, List<T[]> list, int iSubEnd, int iSubStart)
{
    int subcnt = iSubEnd - iSubStart;
    T[] arraySub = new T[subcnt];
    Array.Copy(array, iSubStart, arraySub, 0, subcnt);
    list.Add(arraySub);
}

これをヒントにVB.NETのコードを書き起こせば良いのではないですか。

■No19845 (jiioi さん) に返信
> C#のコード
このコードは何故、わざわざ匿名メソッドを用いて実装されているのでしょう?
　DSplit_AddToList  addToList = delegate( int  iSubStart, int  iSubEnd ) { … }
で用意された匿名メソッドを、後から
　addToList( iStart, i );
で呼び出しているようですが、それならば最初から
　static void AddToList<T>(int iSubStart, int iSubEnd, T[] array, List<T[]> list) { … }
のようなメソッドを作っておいて、ループ中で
　AddToList<T>( iStart, i, array, list );
としておいても良いような。


> VBに置き換えているコード
DSplit_AddToList デリゲートを使わない実装に直した方が良いような気がしますが、
あえて元コードの仕様をそのまま残すのであれば、こうかな。


Public MustInherit Class Arraylib
    Private Class anonymous(Of T)
        Private tArray() As T
        Private tList As List(Of T())
        Public Sub New(ByVal array() As T, ByVal list As List(Of T()))
            tArray = array
            tList = list
        End Sub
        Public Shared Narrowing Operator CType(ByVal o As anonymous(Of T)) As DSplit_AddToList
            Return AddressOf o.AddToListCallback
        End Operator
        Private Sub AddToListCallback(ByVal iSubStart%, ByVal iSubEnd%)
            Dim subcnt As Integer = iSubEnd - iSubStart
            Dim arraySub(subcnt - 1) As T
            Array.Copy(tArray, iSubStart, arraySub, 0, subcnt)
            tList.Add(arraySub)
        End Sub
    End Class

    Public Shared Function Split(Of T)(ByVal array As T(), ByVal delimit As DSearchArray(Of T)) As T()()
        ' 部分配列のリスト
        Dim list As New System.Collections.Generic.List(Of T())()
        Dim hasData As Boolean = False
        Dim iStart As Integer = -1

        ' 部分配列を抜き出してリストに追加するデリゲート
        Dim addToList As DSplit_AddToList = New anonymous(Of T)(array, list)
          ：
        …略…
          ：
    End Function
       ：
     …略…
       ：
End Class

■No19852 (jiioi さん) に返信
> 匿名メソッドが出てきてどうしても変換方法がわかりませんでした。
VB には匿名メソッドが無いですからね。

で、C# の場合、匿名メソッドが IL へとコンパイル際には、一時的なクラスが
作成され、そのメソッドをデリゲートとしているようです。それを模倣したのが、先のコード。


>>　static void AddToList<T>(int iSubStart, int iSubEnd, T[] array, List<T[]> list) { … }
>>のようなメソッドを作っておいて、ループ中で
>>　AddToList<T>( iStart, i, array, list );
>>としておいても良いような。
> みなさん、同じことをおっしゃっているとおもいますが、実際VBで組むにはどのようにしたらよいでしょう。

まずは C# で組むと、こう。

public abstract class  Arraylib
{
  // 元々は、匿名メソッドにしていた部分
  private static void AddToList<T>(int iSubStart, int iSubEnd, T[] array, List<T[]> list)
  {
    int  subcnt = iSubEnd - iSubStart;
    T[]  arraySub = new T[subcnt];
    Array.Copy( array, iSubStart, arraySub, 0, subcnt );
    list.Add( arraySub );
  }

  public static T[][]  Split<T>( T[]  array, DSearchArray<T>  delimit )
  {
    // 部分配列のリスト
    System.Collections.Generic.List<T[]>  list = new System.Collections.Generic.List<T[]>();
    bool  hasData = false;
    int   iStart  = -1;

    // ソース配列を走査する
    for( int  i = 0; i < array.Length; i++ )
    {
        …略…
        // 部分配列を抜き出してリストに追加する
        /*
           addToList( iStart, i ); // 匿名メソッドの呼び出し
        */ 
        AddToList<T>( iStart, i, array, list );
        …略…
     }
        …略…
     return  list.ToArray();
  }
}


それを VB 化すると、こうかな。

Private Shared Sub AddToList(Of T)(iSubStart%, iSubEnd%, array() As T, list As List(Of T()) )
   Dim subcnt As Integer = iSubEnd - iSubStart
   Dim arraySub(subcnt - 1) As T
   Array.Copy(tArray, iSubStart, arraySub, 0, subcnt)
   tList.Add(arraySub)
End Sub

Public Shared Function Split(Of T)(ByVal array As T(), ByVal delimit As DSearchArray(Of T)) As T()()
   Dim list As New System.Collections.Generic.List(Of T())()
   Dim hasData As Boolean = False
   Dim iStart As Integer = -1

   For i As Integer = 0 To array.Length - 1
      …略…
      ' 部分配列を抜き出してリストに追加する
      '' addToList.Invoke(iStart, i)
      AddToList(Of T)( iStart, i, array, list )
      …略…
   Next
   …略…
   Return list.ToArray()
End Function

> Private Shared Sub AddToList(Of T)(iSubStart%, iSubEnd%, array() As T, list As List(Of T()) )
> このメソッドは引数が値渡しになってて、処理しても呼び出し元が変更されてないのではないのでしょうか？
その辺は参照型と値型の違いによってややこしくなっています。

List(Of T)や配列はクラスで参照型です。ByValで渡そうと、List(Of T)や配列の中身を変更できます。

では、ByValとByRefは何が変わるか？
呼び出し元のその変数がどのList(Of T)や配列を指し示すのかを変更できるかどうかです。
ByRefの場合に新しい配列をその変数に入れると、呼び出し元でもその配列が使われます。

http://msdn.microsoft.com/ja-jp/library/eek064h4.aspx

参考
具体的な説明はしませんが、出力結果からなぜそうなるかを考えてみて下さい。

Sub Test1(ByVal array() As Integer)
    array(1) = 123
    ReDim array(100)
    array(2) = 234
End Sub

Sub Test2(ByRef array() As Integer)
    array(1) = 345
    ReDim array(100)
    array(2) = 456
End Sub

Sub Main()
    Dim b(10) As Integer
    b(1) = 25
    b(2) = 30
    Console.WriteLine("First")
    Console.WriteLine("b.Length:" & b.Length.ToString())
    Console.WriteLine("b(1):" & b(1).ToString())
    Console.WriteLine("b(2):" & b(2).ToString())

    ' ByVal
    Test1(b)
    Console.WriteLine("After Test1")
    Console.WriteLine("b.Length:" & b.Length.ToString())
    Console.WriteLine("b(1):" & b(1).ToString())
    Console.WriteLine("b(2):" & b(2).ToString())

    ' ByRef
    Test2(b)
    Console.WriteLine("After Test2")
    Console.WriteLine("b.Length:" & b.Length.ToString())
    Console.WriteLine("b(1):" & b(1).ToString())
    Console.WriteLine("b(2):" & b(2).ToString())

End Sub