Question

vb6 求字符串问题

/web/Dataaer/154.asa
/web/tat/12_cn.asa
/web/rew/888a.asa

用VB取出
154.asa
a12_cn.asa
888a_asa
取出这些文件名，怎么做？

Answer 1

我的原则是不给完整的源码，因此在这里只给出思路，有兴趣的朋友可以实践一下。

1、在Init()中，不切割字符串为数组，而是记录每一个分隔符“||”的位置到一个数组spliter(0 To 100)中。假设数据的数量为N，那么spliter(n)记录了第n个分隔符的位置，再设spliter(0)=-1，spliter(N)=len(str1)+1，如果N<100，后面的元素记为与spliter(N)等值。
2、变换页数的时候，可以据此计算出第p页(假设p以1为起始)包含的元素为第(p-1)*20+1个至第(p-1)*20+20（即p*20）个。因此在此页中
第一个元素的起始位置是：
BeginPos=spliter((p-1)*20+1)+2 '2是“||”的长度，我们要跳过它
末尾元素的结束位置是：
EndPos=spliter(p*20)
因此就可以得到此页的子串
substr1=mid(str1, BeginPos, EndPos-BeginPos)

得到了子串，剩下的事情就随便你怎样啦，如果只是为了显示，使用replace函数把substr1的“||”全部替换成换行或者其它字符即可。

Answer 2

我的原则是不给完整的源码，因此在这里只给出思路，有兴趣的朋友可以实践一下。

1、在Init()中，不切割字符串为数组，而是记录每一个分隔符“||”的位置到一个数组spliter(0 To 100)中。假设数据的数量为N，那么spliter(n)记录了第n个分隔符的位置，再设spliter(0)=-1，spliter(N)=len(str1)+1，如果N<100，后面的元素记为与spliter(N)等值。