Сокращение этого оператора IF

Question

Мне не нравится широкий код, особенно когда он заставляет меня прокручивать. Поэтому, написав это:

If _item.SubItems(pd.perioddate).Text = "N/A" Or _item.SubItems(pd.perioddate).Text = String.Empty Then 
      dtpDeadlineforAP.Checked = False 
End If 

Есть ли достойный способ похудеть, сделать его более элегантным?

Answer 1

Извлечь _item.SubItems(pd.perioddate).Text в локальную переменную, например.

String text = _item.SubItems(pd.perioddate).Text 

If text = "N/A" Or text = String.Empty Then 
      dtpDeadlineforAP.Checked = False 
End If 

В качестве альтернативы, вы можете извлечь всю проверку в отдельный метод:

If isNotFilled(_item.SubItems(pd.perioddate)) Then 
      dtpDeadlineforAP.Checked = False 
End If 

Это позволит сделать код более читаемым и позволяет повторно использовать логику проверки.

Answer 2

string obj = _item.SubItems(pd.perioddate).Text; 

If obj = "N/A" Or obj = String.Empty Then 
      dtpDeadlineforAP.Checked = False 
End If 

ТАКЖЕ

включить слово Деформация в визуальной студии, чтобы остановить прокручивая.

перейти к

Tools-> Options-> Текст editor-> Все Языки-> Слово Деформация

не забывайте включить 'Показать все настройки'

Answer 3

Dim date as String = _item.SubItems(pd.perioddate).Text 

If date = "N/A" Or date = String.Empty Then 
      dtpDeadlineforAP.Checked = False 
End If 

Answer 4

With _item.SubItems(pd.perioddate) 
    If .Text = "N/A" Or .Text = String.Empty Then 
     dtpDeadlineforAP.Checked = False 
    End If 
End With 

Cue аргумент относительно достоинств/зол WITH :)

Answer 5

Если есть несколько полей, которые могут содержать N/A, я бы uggest следующий подход:

Dim invalidValues As String() = {"N/A", String.Empty} 

If invalidValues.Contains(_item.SubItems(pd.perioddate).Text) Then 
    dtpDeadlineforAP.Checked = False 
End If 

Или, если это только о прокрутки, вы можете использовать VB символ продолжения строки _:

If _item.SubItems(pd.perioddate).Text = "N/A" _ 
Or _item.SubItems(pd.perioddate).Text = String.Empty Then 
    dtpDeadlineforAP.Checked = False 
End If 

КСТАТИ: Вот, я предлагаю OrElse вместо Or.

Answer 6

Как и другие, вы можете использовать локальную переменную. Вы также можете укоротить линию, используя символ line continuation_.

String period = _item.SubItems(pd.perioddate); 

If period = "N/A" Or _ 
    period = String.Empty Then 
     dtpDeadlineforAP.Checked = False 
End If 

Answer 7

Я suppgest в Helper класса или метод расширения:

If StringIsNullOrEmptyOrNA(stringval) Then 
    ... 
End If 


If stringval.IsNullOrEmptyOrNa() Then 
    .... 
End If 


Public Function StringIsNullOrEmptyOrNA(ByVal input as String) as Boolean 
    return String.IsNullOrEmpty(input) OrElse input.Equals("N/A") 
End Function 


<System.Runtime.CompilerServices.Extension()> 
Public Function IsNullOrEmptyOrNa(ByVal input As String) 
    return String.IsNullOrEmpty(input) OrElse input.Equals("N/A") 
End Sub 

Answer 8

Мы должны, по крайней мере, упомянуть Select Case

Select Case _item.SubItems(pd.perioddate).Text  
    Case "N/A", "" 
    dtpDeadlineforAP.Checked = False 
End Select 

рассмотреть также извлекая вспомогательную функцию

Function IsNotApplicable(ByVal s As String) As Boolean 
    Return (s = "N/A") Or (s = "") 
End Function 

Answer 9

I получил это до 3 строк и 63 столбца. Я заменил традиционный If construct новее If operator. Код также будет обрабатывать случай Text, являющийся нулевой ссылкой, и будет замыкаться на короткое замыкание с помощью оператора OrElse.Если вы хотите объявить пару методов расширения, вы можете уничтожить это до одной короткой строки, но это противоречит духу моего ответа.

Dim tx = _item.SubItems(pd.perioddate).Text 
Dim dtp = dtpDeadlineforAP 
dtp.Checked = If(tx = "N/A" OrElse tx = "", False, dtp.Checked)