Foxtable(狐表)用户栏目专家坐堂 → 字符转换日期


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

主题:字符转换日期

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部