关于串口接受字符串换行问题

Question

↑：68 88 00 00 00 00 00 68 01 02 53 C4 72 16 
↑：68 88 00 00 00 00 00 68 01 02 64 E9 A8 16 
↑：68 88 00 00 00 00 00 68 01 02 65 E9 A9 16 
↑：68 88 00 00 00 00 00 68 01 02 66 E9 AA 16 
↑：68 88 00 00 00 00 00 68 01 02 84 E9 C8 16 
↑：68 88 00 00 00 00 00 68 01 02 85 E9 C9 16 
↑：68 88 00 00 00 00 00 68 01 02 86 E9 CA 16 
↑：68 10 00 00 00 00 00 68 01 04 33 B3 33 33 31 16 
↑：68 03 00 00 00 00 00 68 01 04 33 B3 33 33 24 16 
我现在已经实现了串口监听单片机发出字符串的功能，但是我想把这些字符串按照我上面写的格式给换行，有没有人能够帮我一下，谢谢了

Answer 1

用vbCrLf或vbNewLine去换行，想换几行加几个。
如：
debug.print "a a a a a" & vbnewline & vbnewline & "b b b b b b"

Answer 2

s = 接收字符串()
s = replace(s, "↑：", vbCrLf & "↑：")

Answer 3

你好，你说的很对，可是我箱在listbox中实现这个换行的功能，就是我出现上面的那种格式，我很想知道他们是如何实现这样的功能的，能不能附一些代码给我呢?xiexie 

Answer 4

可是我想在listbox中实现这个换行的功能
那就使用
AddItem 方法
用于将项目添加到 ListBox AddItem 方法示例
本示例使用 Addltem 方法增加 100 项给一个列表框。要检验此示例，可将本例代码粘贴到一个带有被命名为 List1 的 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click ()
   Dim Entry, I, Msg   ' 声明变量。
   Msg = "Choose OK to add 100 items to your list box."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 100   ' 计数值从 1 到 100。
      Entry = "Entry " & I   ' 创建输入项。
      List1.AddItem Entry   ' 添加该输入项。
   Next I
   Msg = "Choose OK to remove every other entry."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 50   ' 确定如何
      List1.RemoveItem I   ' 每隔一项
   Next I   ' 删除。
   Msg = "Choose OK to remove all items from the list box."
   MsgBox Msg   ' 显示信息。
   List1.Clear   ' 清除列表框。
End Sub

Answer 5

1 用 Split 函数将你的数据逐条分开。
2 循环，用 List1.AddItem 将分割开的行加入到 ListBox 中。

Answer 6

Private Sub Command1_Click()
    tj
End SubPrivate Sub tj()
    Dim Entry, I
    For I = 1 To 10 ' 计数值从 1 到 100。
        If I Mod 3 = 0 Then
            Entry = "↑：68 10 00 00 00 00 00 68 01 04 33 B3 33 33 31 16"  ' 创建输入项。
            List1.AddItem Entry ' 添加该输入项。
        Else
            List1.AddItem ""
        End If
    Next I
End Sub