InstrRev怎么查找不确定的字符【格式确定】

InstrRev如何查找不确定的字符【格式确定】
lastPos = InStrRev(Text1.Text, "[")
在text1.text里面查找“[”最后一次出现的位置

我现在想查找[2012.01.01]这个格式的字符串（最后出现的位置），就是说日期不一定，但是字符串格式是一样的。

请问该如何做呢？

------解决方案--------------------

VB code


Private Sub Command1_Click()
Dim a As String, i As Integer
Dim b, c
a = "如果最后一个[****]不是这样的数字格式，[2011.11.11]那就找倒数第二个，[2011.11.12]依次类推[2011111112][****][****]"
b = Split(a, "[")
For i = UBound(b) To 0 Step -1
  If InStr(b(i), "]") = 11 Then
     c = Split(Mid(b(i), 1, 10), ".")
     If UBound(c) = 2 And IsNumeric(c(0)) Then
       If IsNumeric(c(1)) And IsNumeric(c(2)) Then
          Debug.Print "[" & Mid(b(i), 1, 11)
          Exit For
       End If
     End If
  End If
Next

     
End Sub

------解决方案--------------------

关键是你的文本中会不会出现象 [2012.15.03] 这样的非法日期串……

如果有，你自己写代码排除这些‘不合法的’内容啊。 -_-!

InstrRev怎么查找不确定的字符【格式确定】

相关推荐