| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- vba如何实现字符串截取？ (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=51655) |
| -- 作者：vba -- 发布时间：2013/5/4 11:07:25 -- vba如何实现字符串截取？ 有一串字符为TA1309_XX_XX，我希望把第一个“_”以前的字符截取出来，即最后得到的结果是TA1309，请老师帮忙看看！ |
| -- 作者：guotx2010 -- 发布时间：2013/5/4 11:55:51 -- 使用instr函数，获取_所在的位置，然后使用mid函数获取字串。 如： iPos1=instr(1,"TA1309_XX_XX","_",vbTextCompare) iPos2=instr(iPos1+1,"TA1309_XX_XX","_",vbTextCompare)
sTest=mid("TA1309_XX_XX",1,iPos1-1) & mid("TA1309_XX_XX",iPos1+1,iPos2-iPos1-1) & mid("TA1309_XX_XX",iPos2+1,len("TA1309_XX_XX")-iPos2)
[此贴子已经被作者于2013-5-4 12:03:43编辑过]
|
| -- 作者：梦想 -- 发布时间：2013/5/4 12:51:22 -- strSou= "TA1309_XX_XX" ary=Split(
strSou ,
"_") ary(0)就是你想要的结果
|