以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一大串数字 如何 输入完成后 自动 4位自动空一格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169676)

--  作者:31803263
--  发布时间:2021/6/25 16:43:00
--  一大串数字 如何 输入完成后 自动 4位自动空一格
一大串数字  如何 输入完成后  自动 4位自动空一格
--  作者:有点蓝
--  发布时间:2021/6/25 17:28:00
--  
Dim s As String = "1234567890001"
Dim d As Integer = s.Length  -  s.Length Mod 4
For i As Integer = d To 1 Step -4
    s = s.Insert(i," ")
Next
Output.Show(s)

--  作者:31803263
--  发布时间:2021/6/28 16:22:00
--  
老大  这段代码到哪里去
--  作者:有点蓝
--  发布时间:2021/6/28 16:30:00
--  
在哪用就放到哪里。表格比如datacolchanging事件,文本框比如textchanged事件