混合字串 拆分问题

Question

abc本书是对软件调试180技术在过去50年中所取得成就的全面展示，也是对作者本人在软件设计和系统开发第一线奋战10多年的经验总结。
abc本书是对软件调试180技术
在过去50年中所取得成就的全
面展示，也1581Z@##@!是对作
者本人在软#$#@$$#ffdsf件设
和系统开发第一线奋战10多年
的经验总结。
如上所示 拆分成同等长度的字串，储存在数组里面

Answer 1

Private Sub Command1_Click()
    Dim i As Integer, s As String
    Dim iLine() As String, iLen As Integer
    Dim Row_Line As Integer, tmp As String
    
    Const sN As Integer = 13 '每行字数,英文2个算一个,(((注意:此值设置不合理时会有乱码)))
    
    s = "abc本书是对软件调试180技术在过去50年中所取得成就的全面展示，也是对作者本人在软件设计和系统开发第一线奋战10多年的经验总结。"
    tmp = StrConv(s, vbFromUnicode)
    iLen = Len(tmp)
    
    Row_Lines = IIf(iLen / sN <> iLen \ sN, Int(iLen / sN) + 1, iLen / sN)
    ReDim iLine(1 To Row_Lines)
    
    For i = 1 To Row_Lines
      iLine(i) = StrConv(Mid(tmp, i * sN - (sN - 1), sN), vbUnicode)
      Debug.Print iLine(i)
      
    Next
    
End Sub

Answer 2

强帖Len 可以返回字符数量。