以文本方式查看主题

-  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=145309)

--  作者:hongye
--  发布时间:2020/1/15 17:17:00
--  关于文本的代码,请教
比如我有一个文本文件,在Label中显示
我想先检查该文本的字符串长度,如果该文本大于36个字节,那么每36个字节换行
请问这个代码怎么写?

--  作者:有点蓝
--  发布时间:2020/1/15 17:26:00
--  
Dim s As String = "我想先检查该文本的字符串长度,如果该文本大于36个字节,那么每36个字节换行我想先检查该文本的字符串长度,如果该文本大于36个字节,那么每36个字节换行"

Dim sbu As new StringBuilder
Do While s.Length> 36
    sbu.AppendLine(s.SubString(0,36))
    s = s.SubString(36)
Loop
sbu.Append(s)
Output.Show(sbu.ToString)