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