[求助]中英文混编的字符串长度 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]中英文混编的字符串长度

共有2368人关注过本帖树形打印复制链接主题：[求助]中英文混编的字符串长度

blsu33

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/8/2 23:32:00 [只看该作者]

[此贴子已经被作者于2018/8/3 10:42:49编辑过]

blsu33

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/8/2 23:34:00 [只看该作者]

老师，

代码看了多少遍了，关键的这句，为什么就是不能实现，不明白图片点击可在新窗口打开查看

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/3 9:28:00 [只看该作者]

1、字符问题

lb.text = dr3("poutcaption").padright(len) & ":"

2、颜色问题，测试了一下，这个不清楚原因，暂时无法解决。

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/3 9:51:00 [只看该作者]

1、主窗口、停靠窗口等，都不正常。动态添加的控件label都不正常。

2、你要重新设置各个label的字体颜色才行，如 e.Form.controls("label3").foreColor = Color.red

blsu33

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2018/8/3 10:26:00 [只看该作者]

老师，

为何结果不是我要的

Dim s1 As String="测试ID" '6位

Dim s2 As String="我的编码规则" '12位

Dim s3 As String

Dim len1,len2,len3 As Integer

len1= Encoding.default.getbytes(s1).length

len2= Encoding.default.getbytes(s2).length

len3=len2-len1

s3= s1.padright(len3,"0")

Output.Show(s1 & "+" & len3 & "个0=" & """" & s3 & """")

结果应该是：测试ID0000 +4个0

[

[此贴子已经被作者于2018/8/3 10:42:38编辑过]

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/3 10:37:00 [只看该作者]

Dim s1 As String="测试ID" '6位
Dim s2 As String="我的编码规则" '12位
Dim s3 As String
Dim len1,len2,len3 As Integer
len1= Encoding.default.getbytes(s1).length
len2= Encoding.default.getbytes(s2).length
len3=len2-len1
s3= s1 & "".PadLeft(len3,"0")
msgbox(s3)

下一主题 >> << 上一主题

总数 16 上一页 1 2

主题：[求助]中英文混编的字符串长度