以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：相隔固定位置插入字符  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171896)
--  作者：cxmxjwlmq
--  发布时间：2021/9/14 13:53:00
--  求助：相隔固定位置插入字符

各位老师：

我想在下面的代码中实现：在字符串中，每隔25个字符插入一个换行符：

 

Dim s As String = e.Form.Controls("TextBox11").text
If s.Length > 25 And s.Chars(25) = Chr(10) Then
Else
  For bc As Integer = 25 To s.Length   Step 25  \'换行符
      e.Form.Controls("TextBox11").text = s.Insert(bc,Chr(10))
  Next
End If

 

但代码只是在最后一个符合节点的位置上插入了换行符，代码那里有问题，请指教！

谢谢!
--  作者：有点蓝
--  发布时间：2021/9/14 14:07:00
--  
Else
  For bc As Integer = 25 To s.Length   Step 25  \'换行符
      s = s.Insert(bc,Chr(10))
  Next
e.Form.Controls("TextBox11").text = s
End If
--  作者：cxmxjwlmq
--  发布时间：2021/9/14 17:30:00
--  

谢谢老师，完美解决！

再次感谢！