我将如何使用 Array.Find 将以下内容转换为 VB.NET 谓词?
Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo
'
Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
'
For Each Culture As Globalization.CultureInfo In AllCultures
If Culture.TwoLetterISOLanguageName = Code Then
Return Culture
End If
Next
'
Return Nothing
'
End Function
最佳答案
Private Function FindCulture(ByVal Code As String) As Globalization.CultureInfo
Dim AllCultures As Globalization.CultureInfo() = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
Return Array.Find(AllCultures, Function(s) s.TwoLetterISOLanguageName = Code)
End Function
关于VB.NET 谓词数组查找,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/367818/