以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]如何用代码实现字符串每8个字符换一行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169980)

--  作者：昱飞哥 --  发布时间：2021/7/8 10:44:00 --  [求助]如何用代码实现字符串每8个字符换一行 Dim s As String = "9999999999999999999" For i As Integer = 1 To s.Length - 1 If CInt(i / 8) = i / 8 Then \'代码写到这里不知道怎么写了

--  作者：有点蓝 --  发布时间：2021/7/8 11:00:00 --   Dim s1 As new stringbuilder Dim s As String = "12345678901234567890123" Do While s.length > 8     s1.AppendLine(s.substring(0,8))     s = s.SubString(8) Loop s1.Append(s) Output.Show(s1.ToString)

--  作者：昱飞哥 --  发布时间：2021/7/8 11:12:00 --   高手，看不懂

--  作者：有点蓝 --  发布时间：2021/7/8 11:13:00 --   都是编程基础里的东西，多看看

--  作者：有点蓝 --  发布时间：2021/7/8 11:15:00 --   Dim s1 As new stringbuilder Dim s As String = "12345678901234567890123" Do While s.length > 8 \'如果长度大于8继续处理     s1.AppendLine(s.substring(0,8)) \'截取前8个字符     s = s.SubString(8) \'去掉前8个字符 Loop s1.Append(s) \'添加剩余字符 Output.Show(s1.ToString)