複数のif文が文字列と短縮の長さを確認する

Question

これらの複数のIf文を書くより良い方法があるのでしょうか？私はそこにいると確信しています、私はちょうどそれが何であるかを理解できません。本質的にコードは文字列を単に短縮しています。

   If text = "-----------------" Then 
        text = "-" 
       End If 
       If text = "----------------" Then 
        text = "-" 
       End If 
       If text = "---------------" Then 
        text = "-" 
       End If 
       If text = "--------------" Then 
        text = "-" 
       End If 
       If text = "-------------" Then 
        text = "-" 
       End If 
       If text = "------------" Then 
        text = "-" 
       End If 
       If text = "-----------" Then 
        text = "-" 
       End If 
       If text = "----------" Then 
        text = "-" 
       End If 
       If text = "---------" Then 
        text = "-" 
       End If 
       If text = "--------" Then 
        text = "-" 
       End If 
       If text = "-------" Then 
        text = "-" 
       End If 
       If text = "------" Then 
        text = "-" 
       End If 
       If text = "-----" Then 
        text = "-" 
       End If 
       If text = "----" Then 
        text = "-" 
       End If 
       If text = "---" Then 
        text = "-" 
       End If 
       If text = "--" Then 
        text = "-" 
       End If 

ご協力いただきまして誠にありがとうございます。

Answer 1

あなたは、LINQを使用することができます。

If text.Length > 0 AndAlso text.All(Function(c) c = "-"c) Then text = "-" 

要求された説明は、（私はこの実際にはかなり理解できるが見つかっ）：

を文字列を使用して、文字のコレクションのようにそれを使用することができますIEnumerable(Of Char)実装しているので。 LINQ拡張メソッドEnumerable.Allは、シーケンス/コレクション内のすべてのアイテムが指定されたpredicate（Trueを返す）と一致するかどうかを判断します。この場合、述部は、指定されたcharが"-"cであるかどうかをチェックします（末尾のcはoption strict onで、これは文字ではなくcharであることをコンパイラーに伝えます）。したがって、文字列内のすべての文字が負である場合のみ、このメソッドはTrueを返します。 Allが異なる文字を見つけるとすぐに、Falseが返されます。

Trueを返した場合、1-nのマイナスがあり、それ以外の文字はないので、変数textは"-"になります。

Answer 2

Dim maxLengthOfStringYouCompareTo As Integer = 17 

Dim xxx As String = "" 

Dim text As String = If((xxx.All(Function(charrr) charrr.ToString() = "-") OrElse xxx.Length <= maxLengthOfStringYouCompareTo), "-", "otherValue") 

？：についての何が、あなたは正規表現を使用することができ

xxx.Length <= maxLengthOfStringYouCompareTo 

Answer 3

While text.Contains("--") 
    text = text.Replace("--","-") 
End While