Calender

S M T W T F S
      1
2345678
9101112131415
16171819202122
23242526272829
<< February 2020 >>

Categories

Archives

Recent Entries

Recent Comment

Recent Trackback

w closet×JUGEM

-

テストページ

    Dim objRegExp As RegExp 'RegExp:[参照設定]で Microsoft VBScript Regular Expressions 5.5 にチェックを付ける
    Dim strResult As String '置換後の文字列
    Dim Matches
    Dim Match
        
    For ii = 0 To UBound(files) - 1   'yyjjkknnrr.htm
        aY = "20" & Left$(Right$(files(ii), 14), 2)
        aJ = Mid$(Right$(files(ii), 14), 3, 2)
        aR = Mid$(Right$(files(ii), 14), 9, 2)
        aCnt = -1
 

  • 2020.01.22 Wednesday
  • 07:12

Comment
Send Comment