0

私のエンジニアリングの仕事のための本当にクールなユーティリティを考えましたが、残念なことに、私が簡単だと思っていたものに問題がありました。私の目標は、均一なフィールドに不等間隔を簡単に適用することです...解決策のように聞こえるため、パディングを調査しましたが、最終的には次のように同じ出力が得られました。

RichTextBox2.Text = "HOSTNAME       IP       LOCAL       REMOTE    PLATFORM "
                     & vbNewLine

Dim largest = 0
For Each host In hostnames
        If host.ToString.Length > largest Then
            largest = host.ToString.Length
        End If
Next

For count As Integer = 0 To hostnames.Count - 1
        Dim space = largest - hostnames(count).ToString.Length
        RichTextBox2.AppendText(hostnames(count).ToString)

   For x = 0 To space -1
            RichTextBox2.AppendText(" ")
   Next 
Next

IM が得ているものの例を次に示します。

SW_1123_TEST              1123.45.6.78
SW_2        123.4
SW_3+4_T         23.123.41.21
S_1        123.4.5.67
4

2 に答える 2