IO.DirectoryInfo 속성을 매개 변수로 함수에 전달 하시겠습니까?

Question

이 함수는 버블 알고리즘을 사용하여 속성으로 IO.DirectoryInfo의 목록을 정렬합니다.

매개 변수에 목록을 정렬 할 속성을 어떻게 지정할 수 있습니까? 예를 들어

: "드라이브", "이름", "Name.Length", "Directory.Parent", 등 ... 내가 좋은 생각 (어쩌면 좋지 않다, 나는 돈처럼 생각했던

얼마나 많이 향상시킬 수 있는지 알지 못합니다.) 매개 변수를 문자열로 전달한 다음 문자열을 ...으로 캐스팅하는 것입니까? 여기 내가 잃어버린 곳이있다.

Public Shared Function BubbleSort_List(list As List(Of IO.DirectoryInfo), ByVal SortByProperty As ...) As List(Of IO.DirectoryInfo) 
    Return list.Select(Function(s) New With { _ 
     Key .OrgStr = s, _ 
     Key .SortStr = System.Text.RegularExpressions.Regex.Replace(_ 
         s.Name, "(\d+)|(\D+)", _ 
         Function(m) m.Value.PadLeft(list.Select(Function(folder) folder.Name.Length).Max, _ 
         If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _ 
    }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList 

End Function 

UPDATE :

공지 사항 위의 코드의이 부분 :

list.Select(Function(folder) folder.Name.Length).Max 

내가 필요하면 내가 대신 "이름"속성을 원하는 속성을 지정하는 함수를 호출하는 것입니다.

UPDATE 2

@Sriram Sakthivel 용액을 사용하려고하지만 MemberExpression UnaryExpression 사이에 호환 주조 대한 [등록] 변수에 예외를 던진다.

Imports System.Reflection 
    Imports System.Linq.Expressions 


Private Sub Test(sender As Object, e As EventArgs) Handles MyBase.Shown 

    ' Here I create the list 
    Dim Folders As List(Of IO.DirectoryInfo) = _ 
     IO.Directory.GetDirectories("E:\Música\Canciones", "*", IO.SearchOption.TopDirectoryOnly) _ 
     .Select(Function(p) New IO.DirectoryInfo(p)).ToList() 

    ' Here I try to loop the list at the same time I try to sort it, 
    ' specifying the property I want using @Sriram Sakthivel solution, 
    ' This part does not work because the second parametter is wrong. 
    For Each folderinfo In BubbleSort_List(Folders, Function() Name) 
     MsgBox(folderinfo.Name) 
    Next 

End Sub 


    Private Function BubbleSort_List(list As List(Of IO.DirectoryInfo), exp As Expression(Of Func(Of Object))) As List(Of IO.DirectoryInfo) 

     Dim [property] As PropertyInfo = DirectCast(DirectCast(exp.Body, MemberExpression).Member, PropertyInfo) 

     Return list.Select(Function(s) New With { _ 
      Key .OrgStr = s, _ 
      Key .SortStr = System.Text.RegularExpressions.Regex.Replace(_ 
          s.Name, "(\d+)|(\D+)", _ 
          Function(m) m.Value.PadLeft(list.Select(Function(folder) DirectCast([property].GetValue(folder, Nothing), String).Length).Max(), _ 
          If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _ 
     }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList 

    End Function 

Answer 1

내가 정확히 원하는 것을 이해했다면, Sriram Sakthivel 코드는 필요한 부분을 설정하지만 원하는 것을 전달할 수 없습니다.

For Each folderinfo In BubbleSort_List(Folders, "Name") 
    MsgBox(folderinfo.Name) 
Next 

당신은 target 속성 ("이름", "CREATIONTIME", 등)의 이름을 가진 문자열 타입의 인수를 설정하고, 목록 항목 중 하나 (첫 번째에서이 속성을 검색 할 수 있습니다 예를 들어 GetProperty을 통해); LINQ 쿼리는 전체 목록이 아니라 항목을 참조 함을 명심하십시오.

Private Function BubbleSort_List(list As List(Of IO.DirectoryInfo), propName As String) As List(Of IO.DirectoryInfo) 

    Dim curProperty As PropertyInfo = list(0).GetType().GetProperty(propName) 

    Return list.Select(Function(s) New With { _ 
     Key .OrgStr = s, _ 
     Key .SortStr = System.Text.RegularExpressions.Regex.Replace(_ 
         s.Name, "(\d+)|(\D+)", _ 
         Function(m) m.Value.PadLeft(list.Select(Function(folder) DirectCast(curProperty.GetValue(folder, Nothing), String).Length).Max(), _ 
         If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _ 
    }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList 

End Function 

참고 : 내가 이해 한대로 원하는 것을 얻을 수 있도록 코드를 수정하려고합니다. 나는 기본적으로 Reflection에 의존 할 것을 권유하지 않습니다 (.GetValue은 매우 느립니다).

Answer 2

최대 레벨은 MemberExpression입니다. obj.Prop.Prop2 구문 오류가있을 수 있습니다 UnaryExpression

Private Shared Sub DoSomething(list As List(Of DirectoryInfo), exp As Expression(Of Func(Of Object))) 
    Dim member As MemberExpression 

    If (TypeOf exp.Body Is UnaryExpression) Then 
     member = DirectCast(DirectCast(exp.Body, UnaryExpression).Operand, MemberExpression) 
    Else 
     member = DirectCast(exp.Body, MemberExpression) 
    End If 

    Dim [property] As PropertyInfo = DirectCast(member.Member, PropertyInfo) 

'You could then use it like 
list.Select(Function(folder) DirectCast([property].GetValue(folder, Nothing), String).Length).Max() 
End Sub 

Private Shared Sub Main() 
Dim dir = New DirectoryInfo("somedirectory") 
DoSomething(list, Function() dir.Parent) 
    DoSomething(list, Function() dir.Name) 
    DoSomething(list, Function() dir.FullName) 

    DoSomething(list, Function() dir.Parent.Name)'Requires additional effort 
End Sub 

의 사용을 필요로한다. 기본적으로 C# 프로그래머입니다. Vb.net

에 대한 그냥 사용 변환기 도구

편집 : 당신은 디렉토리 목록을 가지고 있기 때문에

당신은 문제가 실제로 dir.Name 단지의 PropertyInfo을 캡처 전달하지 않습니다 dir.Name 매개 변수를 전달하는 방법 의심의 여지가 그것.

New DirectoryInfo("somedirectory").Name을 전달하면됩니다. 다음을 시도하십시오.