请教一个字符串截取的办法

pq318

各位大侠：
         现在的问题是23/26.7/28.66/26/29.3/如何依次取出/前面的不固定位数的数字，谢谢大家了！

笑嘻嘻哦

你的办法还是不错的

yzt880

lift（）,2

roych

用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

谢谢版主，已经搞定，看看什么时候，把解决的算法贴出来，这个是一个如果有空白，就向前追溯填充

roych

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

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