如何将“2004-07-28 22:18:16”这样的字符串转为“2004072822131816”将数字留下符号删去？

Question

如何将“2004-07-28 22:18:16”这样的字符串转为“2004072822131816”将数字留下符号删去？

Answer 1

将字符串的每个字符单独取出（mid），判断是否为数字，不是的去除，否则保留，即可

Answer 2

format("2004-07-28 22:18:16","yyyymmddhhmmss")

Answer 3

format("2004-07-28 22:18:16","yyyyMMddhhmmss")请注意后面字体的大小写

Answer 4

Private Sub Command1_Click()
    Dim s As String
    s = "2004-07-28 22:18:16"
    s = Format(s, "yyyyMMddhhmmss")
    MsgBox s
End Sub

Answer 5

//请注意后面字体的大小写这个好像与大小写没有关系啊？
我debug的结果也是20040728221816

Answer 6

不知道这样可以不可以呢
呵呵Private Sub Command1_Click()
    Dim s1 As String, s2 As String, s3 As String
    s1 = "2004-07-28 22:18:16"
    s2 = Format(s1, "yyyyMMddhhmmss")
    s3 = Replace(Replace(Replace(s1, "-", ""), ":", ""), " ", "")
    MsgBox s2
    MsgBox s3
End Sub

Answer 7

a=format("2004-07-28 22:18:16","yyyymmddhhmmss")  ’---做字符串格式化

Answer 8

nn代替mm：
MsgBox Format("2004-07-28 22:18:16", "yyyymmddhhnnss")

Answer 9

看看正则表达式
'引用 microsoft VBScript Regular Expressions 5.5
Private Sub Form_Load()
    Dim s As String
    Dim re As New RegExp
    
    s = "2004-07-28 22:18:16"
    re.Global = True
    re.Pattern = "\D"
    s = re.Replace(s, "")
    MsgBox s
End Sub

Answer 10

online(龙卷风V2.0--再战江湖) 的方法最有新意，好，可否解释一下？
//re.Global = True
    re.Pattern = "\D"
    s = re.Replace(s, "")
这几句什么意思？还有，正则表达式是干什么用的？

Answer 11

dim S as String
S=Format(Year(Now), "0000") & Format(Month(Now), "00") & Format(Day(Now), "00") & Format(Hour(Now), "00") & Format(Minute(Now), "00") & Format(Second(Now), "00")
msgbox s

Answer 12

//online(龙卷风V2.0--再战江湖) 的方法最有新意，好，可否解释一下？
http://74.com.cn/article/1814.shtml

Answer 13

MsgBox Format(CDate("2004-07-28 22:18:16"), "yyyymmddhhmmss")

Answer 14

msgbox format("2004-07-28 22:18:16","yyyymmddHhNnSs")
'时间格式中的小时/分钟/秒必须使用Hh/Nn/Ss,否则没有前导0

Answer 15

其实上面的朋友都说得很清楚了，方法有三个：
第一个，用replace(replace(replace(now," ",""),"-",""),":","")
第二个，用format(now,"yyyymmddhhnnss")
第三个，用format(now,"yyyyMMddhhmmss")三者都是可以的，应该没有比这更简单的了，可以结贴了（当然我是最后一个说，自然不敢要求楼主给我分：）
当然还有龙卷风的一个，但我没有试过这样做，不敢说行不行！相信是行的，毕竟他是两个星的人物了：）

Answer 16

format(cdate("2004-07-28 22:18:16"),"yyyyMMddHHmmss")

Answer 17

format("2004-07-28 22:18:16","yyyymmddhhmmss")

Answer 18

Dim mstr1, mstr2   As String
    Dim i       As Integer
    
    mstr1 = "2004-07-28 22:18:16"
    mstr2 = Space$(0)
    For i = 1 To Len(mstr1)
        If Mid$(mstr1, i, 1) >= "0" And Mid$(mstr1, i, 1) <= "9" Then
            mstr2 = mstr2 & Mid$(mstr1, i, 1)
        End If
    Next i刚为你编写好并运行成功的代码,结果在mstr2中

Answer 19

在导航栏选择某一个小类(底层节点),右边界面出现如下文字
刷新 | 全文检索 | 搜索 | 提问| 未解决 | 已解决 | 精华区 | FAQ | 专题 | 帮助 |  
点击那个"提问"就是了

Answer 20

很简单啊，看我的，另类解法!
dim tmpStr() as string
dim tmpMyStr as stringtmpmystr="2004-07-28 22:18:16"
'去空格
tmpStr=split(tmpmystr," ")
tmpmystr=join(tmpStr,"")
'去-号
tmpStr=split(tmpmystr,"-")
tmpmystr=join(tmpStr,"")
'去:号
tmpStr=split(tmpmystr,":")
tmpmystr=join(tmpStr,"")这样就搞定了^_^!!