以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数字格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97672)

--  作者:cd_tdh
--  发布时间:2017/3/16 15:50:00
--  数字格式
老师,我数字很多,比如银行账户,怎么设置格式可以显示这样的效果(每隔四位中间间距加宽,但不是加一个空格字符):
1234 5678 9012 1234 546

已在论坛找到类似问题,已解决,谢谢。
[此贴子已经被作者于2017/3/16 16:04:09编辑过]

--  作者:有点色
--  发布时间:2017/3/16 16:03:00
--  

这个就是字符,不是数字,哪有那么大的一个数字。

 

设置掩码咯 http://www.foxtable.com/webhelp/scr/3100.htm

 


--  作者:cd_tdh
--  发布时间:2017/3/16 16:06:00
--  
就是银行卡账号,四位分开好核对,在论坛找到类似解决办法了。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=9770&skin=0

--  作者:有点色
--  发布时间:2017/3/16 16:31:00
--  

 设置掩码一劳永逸。参考2楼。


--  作者:cd_tdh
--  发布时间:2017/3/16 17:00:00
--  
谢谢有点色老师,回去了试试。
--  作者:cd_tdh
--  发布时间:2017/5/2 9:31:00
--  
大色,卡号位数不确定,掩码怎么设置呢?
--  作者:有点色
--  发布时间:2017/5/2 9:55:00
--  
以下是引用cd_tdh在2017/5/2 9:31:00的发言:
大色,卡号位数不确定,掩码怎么设置呢?

 

那这个没办法,如果不确定卡号,掩码不能设置,必须用代码处理


--  作者:cd_tdh
--  发布时间:2017/5/2 10:56:00
--  

代码怎么写呢?看了论坛里面的,用正则表达式的,还是没整出来。


--  作者:有点蓝
--  发布时间:2017/5/2 11:35:00
--  
贴出你的代码看看


Dim s As String = "1234567890123456789"
Dim p As String = ".{4}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Output.Show(rgx.Replace(s, "$0 "))

--  作者:cd_tdh
--  发布时间:2017/5/2 15:15:00
--  
以下是引用有点蓝在2017/5/2 11:35:00的发言:
贴出你的代码看看


Dim s As String = "1234567890123456789"
Dim p As String = ".{4}(?!$)"
Dim rgx = New System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Output.Show(rgx.Replace(s, "$0 "))

有点蓝老师,这个代码放哪儿?我放到TextBox的时间里面,不起作用呢?