access 从字符串中 筛选数据

Question

”S1:CDQ2B100-40DZ
S2:CDQ2WB100-40DZ“
这样一行字符串
想筛选出
CDQ2B100-40DZ
CDQ2B100-40DZ
这两条数据应该怎么做

Answer 1

用两次split函数。

Dim LString As String
Dim LArray() As String
Dim RltArray() As String

LString = ”S1:CDQ2B100-40DZ S2:CDQ2WB100-40DZ“
LString = Trim(LString) //去掉首尾空格

LArray = Split(LString)  //以空格分隔

MsgBox LArray(0) // S1:CDQ2B100-40DZ
MsgBox LArray(1) // S2:CDQ2WB100-40DZ

RltArray() = Split(LArray(0),":")  //以:分隔
MsgBox RltArray(1) //CDQ2B100-40DZ

RltArray() = Split(LArray(1),":")  //以:分隔
MsgBox RltArray(1) //CDQ2WB100-40DZ

如果对您有帮助，请采纳答案好吗，谢谢！