با سلام
Dim txt As String = "bootloader) version-cpld:None" + vbCrLf + _
"bootloader) version-microp:0622" + vbCrLf + _
"bootloader) version-main:2.37.415.1"
Dim Lnt, Ind As Byte
For Each s As String In txt.Split(Chr(13))
Ind = s.IndexOf(":") + 1
Lnt = s.Length
Me.ListBox1.Items.Add(s.Substring(Ind, Lnt - Ind))
Next
توی کدی که نوشتم، فرض بر این است که رشته شما سطرهاش با enter از هم جدا شدن.
در این کد برای تعداد سطرها محدودیتی وجود ندارد.
اگه شما فقط همین سه سطر رو دارین، و قرار به کنترل های از قبل تعیین شده مقدار بدین، می تونین از کد زیر استفاده کنین:
Dim txt As String = "bootloader) version-cpld:None" + vbCrLf + _
"bootloader) version-microp:0622" + vbCrLf + _
"bootloader) version-main:2.37.415.1"
Dim Lnt, Ind As Byte
Dim s() As String = txt.Split(Chr(13))
' TextBox1
Ind = s(0).IndexOf(":") + 1
Lnt = s(0).Length
Me.TextBox1.Text = s(0).Substring(Ind, Lnt - Ind)
' TextBox2
Ind = s(1).IndexOf(":") + 1
Lnt = s(1).Length
Me.TextBox2.Text = s(1).Substring(Ind, Lnt - Ind)
' TextBox3
Ind = s(2).IndexOf(":") + 1
Lnt = s(2).Length
Me.TextBox3.Text = s(2).Substring(Ind, Lnt - Ind)