以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何规范年月日格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188590)
--  作者：ZJZK2018
--  发布时间：2023/9/29 23:25:00
--  如何规范年月日格式
1，在数据导入时年月日写法不规范，如何统一规范，如：
            2022年9月5日       2023/09/8           2022.8.9            2023-9

统一为   2022-09-05          2023-09-08          2022-08-09       2023-09-01    自动增加01

2，下面多了“\\”如何删除

Dim str As String = "2023-10-22   09:30"
Dim st() As String
st = str.Split(" ")

For i As Integer = 0 To st.Length - 1
    Output.Show(st(i).Trim())
Next
Output.Show(String.Join("\\", st))           \'显示：2023-10-22\\\\\\09:30 红色\\\\不要
[此贴子已经被作者于2023/9/30 0:12:10编辑过]
--  作者：wyz20130512
--  发布时间：2023/10/1 19:43:00
--  
Dim str As String = "2023-10-22   09:30"
\'先删除多余的空格
str = str.Trim()
For i As Integer = str.Length To 2 Step - 1 \'此处不能顺着循环
    Dim s As New String(" ", i)
    str = str.Replace(s, " ")
Next


Dim st() As String
st = str.Split(" ")

For i As Integer = 0 To st.Length - 1
    Output.Show(st(i).Trim())
Next
Output.Show(String.Join("\\", st)) 
--  作者：wyz20130512
--  发布时间：2023/10/1 19:46:00
--  
如果数据源是Excel中的数据，可以先用PQ清洗数据，得到规范的日期格式后，再导入。