Разбиение строк фиксированной длины из динамической строки Vb.net

Я разрабатываю приложение в VB 2010, в котором я отправляю команду PLC через последовательный порт и получаю данные от PLC в строке.Разбиение строк фиксированной длины из динамической строки Vb.net

Я удалил ненужное содержимое строки, полученные от PLC и получить конечную строку в ReturnStr, как показано ниже:

Dim WriteStr, ChkWrite As String 
Dim ReadStr, ReturnStr, ChkRecd, ChkCalc As String 
Dim ChkComp As Integer 

    WriteStr = String.Concat("01", cmd, Add, Points) 
    ChkWrite = Check(WriteStr) 

    Try 
     sp.WriteLine(":" & WriteStr & ChkWrite & vbCr) 
     ReadStr = sp.ReadLine() 
    Catch ReadErr As Exception 
     Return "0" 
    End Try 

    ChkRecd = ReadStr.Substring((((CInt("&H" & Points)) * 4) + 7), 2) 
    ChkCalc = Check(ReadStr.Substring(1, ((Len(ReadStr) - 4)))) 
    ChkComp = String.Compare(ChkRecd, ChkCalc) 

    If ChkComp <> 0 Then 
     Return "0" 
    End If 

    ReturnStr = (ReadStr.Substring(7)).Remove(CInt("&H" & (Points)) * 4) 
    Return ReturnStr

ReturnStr возвращает строка что-то вроде 006600D000C9006D0013B003A00014C00349, которую я хочу разделить на множество 4 символа.

Мой запрос ReturnStr может содержать данные неопределенной длины (в упаковке 4), так как я могу идти о расщепляющих строках из такой строки и отображения стоимости каждой подстроки в надписях в форме, как это:

lblPt1.Text = CInt("&h" & (ReturnStr.Substring(0, 4))) 
lblPt2.Text = CInt("&h" & (ReturnStr.Substring(4, 4))) 
lblPt3.Text = CInt("&h" & (ReturnStr.Substring(8, 4))) 
lblPt4.Text = CInt("&h" & (ReturnStr.Substring(12, 4))) 
lblPt5.Text = CInt("&h" & (ReturnStr.Substring(16, 4))) 
lblPt6.Text = CInt("&h" & (ReturnStr.Substring(20, 4))) 
lblPt7.Text = CInt("&h" & (ReturnStr.Substring(24, 4))) 
lblPt8.Text = CInt("&h" & (ReturnStr.Substring(28, 4)))

источник

2016-08-05 Prashant

Есть [несколько] (http://stackoverflow.com/questions/8774392/how-to-split-a-string-by-x-amount-of-characters) [примеры] (http://stackoverflow.com/questions/7376987/how-to-split-a-string-into-a-fixed-length-string-array) [in] (http://stackoverflow.com/questions/30385540/how-do -i-split-a-string-every-7th-charecter-in-vb? noredirect = 1 & lq = 1) сайт. –

Dim s = "006600D000C9006D0013B003A00014C00349" 
Dim a = From i In Enumerable.Range(0, s.Length \ 4) Select Mid(s, i * 4, 4)

Update

Для обновленного вопроса

Dim labels = { lblPt1, lblPt2, lblPt3, lblPt4, lblPt5, lblPt6, lblPt7, lblPt8 } 
' or query them from Me.Controls.OfType(Of Label) or just use ListBox or better conrol 
ReturnStr = ReturnStr.PadRight(labels.Length * 4) 

For i = 0 To labels.Length - 1 
    labels(i).Text = Val("&h" & Mid(ReturnStr, i * 4, 4)) 
Next

источник

2016-08-05 12:56:12 Slai

Разбиение строк фиксированной длины из динамической строки Vb.net

ответ

Смежные вопросы