Raccourcir cette instruction IF

Question

Je n'aime pas le code large, surtout quand il me force à faire défiler. Donc, ayant écrit ceci:

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

Existe-t-il un moyen décent de l'alléger, de le rendre plus élégant?

Answer 1

Extrayez _item.SubItems(pd.perioddate).Text dans une variable locale, par ex.

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

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

Alternativement, vous pouvez extraire l'ensemble vérification dans une méthode distincte:

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

Cela rendrait le code plus lisible et vous permettent de réutiliser la logique de contrôle.

Answer 2

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

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

AUSSI

permettent Chaîne de mots en studio visuel pour cesser d'avoir à faire défiler.

aller à

Outils-> Options-> Texte Editor-> Toutes langues-> Mot chaîne

Ne pas oublier d'activer "Afficher tous les paramètres de

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 

de Cue argument concernant les mérites/maux de WITH :)

Answer 5

S'il y a plusieurs champs qui peuvent contenir N/A, je serais uggest l'approche suivante:

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

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

Ou, si elle est à peu près le défilement, vous pouvez utiliser la ligne VB caractère de continuation _:

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

BTW: Ici, je vous suggère OrElse au lieu de Or.

Answer 6

Comme d'autres l'ont suggéré, vous pouvez utiliser une variable locale. Vous pouvez également raccourcir la ligne en utilisant le caractère line continuation_.

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

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

Answer 7

Je suppgest une classe d'assistance ou ExtensionMethod:

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

Il faut au moins mentionner Select Case

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

Voir également l'extraction d'une fonction d'aide

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

Answer 9

I eu jusqu'à 3 lignes et 63 colonnes. J'ai remplacé le traditionnel If construct par le plus récent If operator. Le code traitera également le cas de Text étant une référence nulle et court-circuera en utilisant l'opérateur OrElse.Si vous êtes prêt à déclarer quelques méthodes d'extension, vous pouvez réduire cela à une ligne courte, mais cela va à l'encontre de l'esprit de ma réponse.

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