如何才能做到取分号前面的和后面的值呢？

yanwei82123300

请问各位老师我如何才能做到取分号前面的和后面的值呢？谢谢";"
字段：co_ln的值
WACO-140880;001
CO-141552;002

tzh1600

前：left(co_ln,Instr(1，co_ln，“；”)-1)

后：right(co_ln,len(co_ln)-Instr(1，co_ln，“；”))


InStr 函数可返回一个字符串在另一个字符串中首次出现的位置。
语法InStr([start,]string1,string2[,compare])

参数	描述
start	可选的。规定每次搜索的起始位置。默认是搜索起始位置是第一个字符。如果已规定 compare 参数，则必须有此参数。
string1	必需的。需要被搜索的字符串。
string2	必需的。需搜索的字符串。
compare	必需的。规定要使用的字符串比较类型。默认是 0 。可采用下列值： 0 = vbBinaryCompare - 执行二进制比较。 1 = vbTextCompare - 执行文本比较。

yanwei82123300

谢谢帮助!

wx0000888

=split(co_ln,";")(1)

yanwei82123300

tzh1600 发表于 2014-7-9 16:41
前：left(co_ln,Instr(1，co_ln，“；”)-1)

后：right(co_ln,len(co_ln)-Instr(1，co_ln，“；”))

老师再问您一下如果值是这样的呢？
coln
WACO-140880;001;CI0002
CO-141552;002;CI0067
WACO-140880为订单号，001行号，CI0002客户代码，请问如何提取这三个数据，谢谢

盗梦

用Split函数分组

yanwei82123300

盗梦 发表于 2014-7-10 09:32
用Split函数分组

盗梦老师我没用过，请您看看这个例子如何应用，谢谢

盗梦

yanwei82123300 发表于 2014-7-10 12:18
盗梦老师我没用过，请您看看这个例子如何应用，谢谢

Split([co_ln],";")(0)  获取分号前面的值
Split([co_ln],";")(1)  获取分号后面的值

Split 函数 已第二个参数为标准，对第一个参数进行分组。相关的东西，你可以百度一下

yanwei82123300

zmt 发表于 2014-7-10 20:56
如WACO-140880为订单号，001行号，CI0002客户代码的长度固定，就好办理

老师：
coln
WACO-140880;001;CI0002
CO-141552;002;CI0067
WACO-140880为订单号，001行号，CI0002客户代码，
基本固定成这个格式

yanwei82123300

煮江老师做的自定义函数，用于提取；号数据，但是有错，请大家看看
public function GetArr(byval str as string)

      dim arr


arr=split(str,";")

GetArr=arr

end function