查找字符串是否按照一定的格式?????求助

Question

VB中如何实现,从一批字符串中查找按照规定格式编制的字符串,例如格式是:"01-1-测试",前两位表示顺序,用两位数字表示,中间一位表示操作的内容,用一位数字表示,最后的字符用户自定义,没有要求,只是前5位有意义,中间用"-"隔开.
请各位高手赐教,有没有比较简单易行的方法????

Answer 1

dim a(100)
for i=1 to 100
    if mid(a(i),3,1)="-" and mid(a(i),5,1)="-" and isnumeric(mid(a(i),4,1)) and  isnumeric(mid(a(i),1,2)) then
       '处理
    endif
next

Answer 2

如果只是通过"-"格开的话也可以先通过split函数分割成一个数组，然后按顺序一个一个来判断。