在vb中按降序报告项目。

Question

使用下面的代码，我可以检索所有ModelView名称，跳过8个视图，并使用lw.writeline("Views: " & vw.Name.ToString)打印其他视图

但我想按降序打印其他视图。

电流输出：

Views: gdfgfdg
Views: 15455
Views: NewView

期望输出：

Views: NewView
Views: gdfgfdg
Views: 15455

代码：

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow

Dim displayPart As Part = theSession.Parts.Display
'Dim list As New List(Of String)

Dim ViewNames() As String
Dim views As ModelingViewCollection
views = workPart.ModelingViews

lw.open()
    For Each vw as ModelingView in views
       ' lw.writeline(temp.Name.ToString)
            Select Case vw.Name.ToString
                Case "Back"
                Case "Bottom" 
                Case "Front" 
                Case "Isometric" 
                Case "Left" 
                Case "Right" 
                Case "Top" 
                Case "Trimetric"
                Case Else
                    lw.writeline("Views: " & vw.Name.ToString) ''' Print deleted camera nodes
            End Select 
    Next       
lw.close()

Answer 1

For Each vw as ModelingView in views.OrderByDescending(Function(v) v.Name)

据推测，Name是String类型，因此在这种情况下调用ToString是没有意义的。

编辑：

如果您需要从IEnumerable(Of T)中获取IEnumerable

For Each vw in views.Cast(Of ModelingView)().OrderByDescending(Function(v) v.Name)