[求助]从有规律的字符串中截取一部分的问题

wssf

各位老师们：求教：在如下的有一定规律的字符串中截取一部分的通用代码

    A20060325-01-02-003

监字20061102-04-28-026

   AB20060426-02-03-001-001

     B20060530-01-12-112-2

监字20060812-02-15-033-03

截取红色部分（第一个"-"前部分字数有差别，第一个"-"、第二个"-"后面均为2个字符,第三个"-"后面3个字符.黑色部分有无不定）

谢谢！

fan0217

Split函数



返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

[此贴子已经被作者于2006-9-11 17:45:20编辑过]

fan0217

Function MySplit(Str As String) As String
Dim MyArray
    MyArray = Split(Str, "-", -1)
    MySplit = MyArray(0) & "-" & MyArray(1) & "-" & MyArray(2) & "-" & MyArray(3)
End Function

wssf

非常好！谢谢Fan0217版主。以前知道split这个函数，就是不知道怎样表达第几个“-”位置。现在明白了。非常感谢!光顾论坛，每天都跟大师们学到很多知识。