Первая очевидная мысль:
Public Function CheckStrings(ByVal input As String()) As Boolean
For Each s As String In input
If s.Length > 0 Then Return True
Next
Return False
End Function
Я уверен, что есть более простой способ, чем этот.По крайней мере, проще с точки зрения кода, если не обязательно производительности.
Конечный результат:
Ну, вы, ребята, довольно хорошо упростили работу.Отлично сработано.Я думаю, что я все еще буду использовать расширение, чтобы сделать его намного проще в основном коде.Окончательный результат сам по себе не так уж и плох.
Вот мой окончательный код:
<Extension()> _
Public Function AnyNonZero(ByVal value As String()) As Boolean
If Not value.All(Function(x) String.IsNullOrEmpty(x)) Then Return True
Return False
End Function