以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  LIKE匹配  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107169)
--  作者：漂亮美眉vszh
--  发布时间：2017/9/22 14:14:00
--  LIKE匹配

Dim st2 As String = "2017年7月_37周_25"
Dim st As String =  st2.Replace("年","-").Replace("月_\'%" & Like & "\'%周_","-")
Output.Show(st)

老师，我想把上面的字符替换为日期 即 2017-7-25  其中37周是变量，可能是38周。40周。。。。这样写语句不对，麻烦老师指点下谢谢
--  作者：有点甜
--  发布时间：2017/9/22 14:22:00
--  
Dim st2 As String = "2017年7月_37周_25"
Dim ary() As String = st2.Split("_")
Dim st As String =  ary(0).replace("年", "-").Replace("月", "-") & ary(2)
msgbox(st)