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


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

主题：[求助]中英文混编的字符串长度
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]中英文混编的字符串长度  发帖心情 Post By：2018/8/2 21:38:00 [显示全部帖子]

老师，
    动态添加控件的长度，不够的用空格不齐，全部是中文的可以对齐，出现应为就不行了，怎么处理？



[此贴子已经被作者于2018/8/3 10:48:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/8/2 21:40:00 [显示全部帖子]



代码


[此贴子已经被作者于2018/8/3 0:14:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/8/2 23:02:00 [显示全部帖子]

老师，
没弄好，劳烦您给看看，为什么呢？例子在一楼，打开FA0101窗口对不齐
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/8/2 23:07:00 [显示全部帖子]

这句 怎么替换 获取最长字段的长度
  len=dt.sqlCompute("max(len(poutcaption))","[vformid]='"& frmname &"' and [ctlid]='"& sendername &"' and [Countryid]='"& ylanguage &"'")
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/8/2 23:26:00 [显示全部帖子]

为什么就是不行呢？
例子在一楼 还有新的问题了
点击窗口1主窗口“剪切”，打开的FA0101窗口的字段LABLE 为何没有标注红色，单独打开FA0101是可以标注红色的？

[此贴子已经被作者于2018/8/2 23:29:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/8/2 23:32:00 [显示全部帖子]


[此贴子已经被作者于2018/8/3 10:42:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/8/2 23:34:00 [显示全部帖子]

老师，
代码看了多少遍了，关键的这句，为什么就是不能实现，不明白图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询