Office中国论坛/Access中国论坛

标题: [求助]从有规律的字符串中截取一部分的问题 [打印本页]

作者: wssf 时间: 2006-9-12 01:26
标题: [求助]从有规律的字符串中截取一部分的问题
各位老师们：求教：在如下的有一定规律的字符串中截取一部分的通用代码

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 时间: 2006-9-12 01:36
Split函数

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

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

作者: fan0217 时间: 2006-9-12 01:45
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 时间: 2006-9-12 15:58
非常好！谢谢Fan0217版主。以前知道split这个函数，就是不知道怎样表达第几个“-”位置。现在明白了。非常感谢!光顾论坛，每天都跟大师们学到很多知识。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)