专家坐堂-[求助]备注列文字第50个字符位置换行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]备注列文字第50个字符位置换行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179526)

--  作者：miaoqingqing
--  发布时间：2022/8/28 14:55:00
--  [求助]备注列文字第50个字符位置换行
求助备注列一行50个字符串，便于导出txt记事本不用换行

--  作者：程兴刚
--  发布时间：2022/8/28 16:10:00
--
说明白点！

--  作者：miaoqingqing
--  发布时间：2022/8/28 18:03:00
--  回复：（程兴刚）说明白点！
就是备注列一个单元格里面很多字，想一个按钮把备注列一个单元格里面的很多字实现每50个字符一行（空格换行）
假如备注列一个单元格里有108个字符串，自动换行成3行，字符串数分别是50
50
8

[此贴子已经被作者于2022/8/28 18:14:18编辑过]

--  作者：有点蓝
--  发布时间：2022/8/28 20:44:00
--

Dim s As String = r("备注列")
Dim n As Integer = 50
Dim lst As New List(Of String)
Do While s.Length > n
Dim s1 As String = s.Substring(0, n)
s = s.Substring(n)
lst.Add(s1)
Loop
lst.Add(s)

Dim sn As String = String.Join(vbcrlf, lst.ToArray)
Output.Show(sn)

--  作者：miaoqingqing
--  发布时间：2022/8/29 9:29:00
--  回复：（有点蓝）Dim s As String = r("备注列")Dim n...
蓝总，上楼代码放在表列改变属性、窗口按钮、命令窗口 3个位置都报错：
r是一个类型，不能用作表达式