Office中国论坛/Access中国论坛

标题: 请教一个字符串截取的办法 [打印本页]

---

作者: pq318    时间: 2013-1-22 19:02
标题: 请教一个字符串截取的办法
各位大侠：
         现在的问题是23/26.7/28.66/26/29.3/如何依次取出/前面的不固定位数的数字，谢谢大家了！

---

作者: 笑嘻嘻哦    时间: 2013-1-22 21:13
你的办法还是不错的

---

作者: yzt880    时间: 2013-1-22 22:12
lift（）,2

---

作者: roych    时间: 2013-1-23 11:47
用Split分成数组，再逐个取出来，大体方法如下

1. Sub test()
   
2. dim A
   
3. Dim s As string
   
4. s="23/26.7/28.66/26/29.3/"
   
5. A=Spit(s,"/")
   
6. for i=0 to ubound(s)
   
7. debug.print a(i)
   
8. Next
   
9. end sub

复制代码

---

作者: pq318    时间: 2013-1-23 21:40
谢谢版主，已经搞定，看看什么时候，把解决的算法贴出来，这个是一个如果有空白，就向前追溯填充

---

作者: roych    时间: 2013-1-24 10:40

pq318 发表于 2013-1-23 21:40
谢谢版主，已经搞定，看看什么时候，把解决的算法贴出来，这个是一个如果有空白，就向前追溯填充

算法思路是需要视实际情况而定的。如果要贴出算法的话，烦请上传2003版本的案例文件（手头上没有2010版本Office）。

---

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

Powered by Discuz! X3.3