以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]按字数分割文本  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142128)

--  作者：天一生水 --  发布时间：2019/10/19 9:34:00 --  [求助]按字数分割文本 蓝老师好！我想把剪贴板获取的内容，分割为每20个字符依次显示，怎样分割？ 请老师指教。谢谢！ Dim str As String = ClipBoard.GetText()    \'获取剪贴板字符 Dim Parts() As String = str.                   \'按照每20个字符数，分割全部内容 For Each part As String In parts    \'按顺序依次显示     msgbox(part) Next

--  作者：有点蓝 --  发布时间：2019/10/19 10:19:00 --   Dim str As String = ClipBoard.GetText()    \'获取剪贴板字符 Do While str.Length > 20     Dim part As String = str.SubString(0,20)                   \'按照每20个字符数,分割全部内容     msgbox(part)     str = str.SubString(20) Loop msgbox(str )