以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  字符转换日期  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136418)
--  作者：lfz123
--  发布时间：2019/6/12 22:28:00
--  字符转换日期
如何将EXCEL表中的字符比如20190531复制到fox的日期列时自动进行转换呢
--  作者：有点甜
--  发布时间：2019/6/13 9:43:00
--  

1、你是手动直接复制粘贴的？还是通过代码导入数据的？

 

2、如果是处理粘贴板的内容，参考

 

Dim str As String = "20190506 20190405 20190607" \'模拟粘贴板数据
str = System.Text.RegularExpressions.Regex.Replace(str, "(?<year>\\d{2,4})(?<month>\\d{1,2})(?<day>\\d{1,2})", "${year}-${month}-${day}")
msgbox(str)
--  作者：lfz123
--  发布时间：2019/6/13 10:13:00
--  回复：（有点甜）1、你是手动直接复制粘贴的？还是通过...
是第一种,手动复制粘贴喔
--  作者：有点甜
--  发布时间：2019/6/13 12:51:00
--  

那你就做个按钮，处理粘贴板字符，如

 

Dim str As String = ClipBoard.GetText
str = System.Text.RegularExpressions.Regex.Replace(str, "(?<year>\\d{2,4})(?<month>\\d{1,2})(?<day>\\d{1,2})", "${year}-${month}-${day}")
msgbox(str)
ClipBoard.SetText(str)