Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]备注列文字第50个字符位置换行


  共有7434人关注过本帖树形打印复制链接

主题：[求助]备注列文字第50个字符位置换行
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]备注列文字第50个字符位置换行  发帖心情 Post By：2022/8/28 14:55:00 [只看该作者]

求助备注列一行50个字符串，便于导出txt记事本不用换行

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2022/8/28 16:10:00 [只看该作者]

说明白点！

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（程兴刚）说明白点！  发帖心情 Post By：2022/8/28 18:03:00 [只看该作者]

就是备注列一个单元格里面很多字，想一个按钮把备注列一个单元格里面的很多字实现每50个字符一行（空格换行）
假如备注列一个单元格里有108个字符串，自动换行成3行，字符串数分别是50
50
8
[此贴子已经被作者于2022/8/28 18:14:18编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112361 积分：572061 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）Dim s As String = r("备注列")Dim n...  发帖心情 Post By：2022/8/29 9:29:00 [只看该作者]

蓝总，上楼代码放在表列改变属性、窗口按钮、命令窗口 3个位置都报错：
r是一个类型，不能用作表达式
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112361 积分：572061 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/8/29 9:42:00 [只看该作者]

r("备注列")改为您自己的备注列值

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询