none
請教,這段 C# 的 LINQ語法如何轉成 VB.NET 語法 RRS feed

  • 問題

  • 在練習  101 LINQ Samples 時,一直無法將此段轉成 vb.net 語法
    敬請各位,能否協助轉換
    萬分感謝
    public class CaseInsensitiveComparer : IComparer<string> 
        public int Compare(string x, string y) 
        { 
            return string.Compare(x, y, true); 
        } 
     
    public void Linq31() { 
        string[] words = { "aPPLE", "AbAcUs", "bRaNcH", "BlUeBeRrY", "ClOvEr", "cHeRry"}; 
         
        var sortedWords = words.OrderBy(a => a, new CaseInsensitiveComparer()); 
             
        ObjectDumper.Write(sortedWords);// 此段可以略過 



    2009年2月5日 上午 01:04

解答

  • 您可以參考下列語法:

    Sub Linq31()  
     
        Dim words As String() = {"aPPLE""AbAcUs""bRaNcH""BlUeBeRrY""ClOvEr""cHeRry"}  
     
        Dim sortedWords = words.OrderBy(Function(a) a, New CaseInsensitiveComparer())  
     
     
    End Sub 
     
     
    Public Class CaseInsensitiveComparer  
        Implements IComparer(Of String)  
     
        Public Function Compare(ByVal x As StringByVal y As StringAs Integer Implements System.Collections.Generic.IComparer(Of String).Compare  
            Return String.Compare(x, y, True)  
        End Function 
    End Class 

    微軟技術支援中心(CSS) - http://twitter.com/msdn_taiwan
    2009年2月5日 上午 01:27

所有回覆

  • 您可以參考下列語法:

    Sub Linq31()  
     
        Dim words As String() = {"aPPLE""AbAcUs""bRaNcH""BlUeBeRrY""ClOvEr""cHeRry"}  
     
        Dim sortedWords = words.OrderBy(Function(a) a, New CaseInsensitiveComparer())  
     
     
    End Sub 
     
     
    Public Class CaseInsensitiveComparer  
        Implements IComparer(Of String)  
     
        Public Function Compare(ByVal x As StringByVal y As StringAs Integer Implements System.Collections.Generic.IComparer(Of String).Compare  
            Return String.Compare(x, y, True)  
        End Function 
    End Class 

    微軟技術支援中心(CSS) - http://twitter.com/msdn_taiwan
    2009年2月5日 上午 01:27
  • Dear Geek.Lee..

    放了幾天假(沒有錢的)
    回來就看到你的回應
    很感謝
    經測試是ok
    再次感謝你
    2009年2月11日 上午 12:48