asp两组字符串数据比较合并相同数据
来源:asp之家 时间:2011-04-14 11:08:00
a1="sp2=20;sp1=34;"
a2="sp3=2;sp2=3;sp1=4;"
两组字符串数据,将字符串中相同的数据值相加后得到新的一组数据
即“sp3=2;sp2=23;sp1=38”
(p.s 一个简单的应用:商品二原有数量20件,商品一原有数量34件,新进货或者新出售了商品二3件,商品一4件等类型模拟情况下计算出进货量,销售量和库存量,小型的进销存系统可采用这样的方法)
那么如何实现两组字符串数据比较合并相同数据?
第一,将两组字符串数据进行连接组合
a3=a1&a2
那么a3="sp2=20;sp1=34;sp3=2;sp2=3;sp1=4;"
第二,将a3中相同的数据进行值的相加
这里主要解决的是如何寻找到相同的数据
首先因为现在a3就是由 sp2、sp1、sp3、sp2和sp1组成,需要把相同的sp2和sp1单独找出来再进行值得相加。
通过split函数分割“;”为分隔符获得每块数据和值。
即 s_array = split(a3,";")通过for i = 0 to ubound(s_array)循环我们可以获得单独的各项数据及值
其中每项的格式是类似“sp2=20”,要将sp2提取出来才能和同组中的数据进行比较,所以还需要独立函数进行提取
Function getSPName(sp)
getSPName = split(sp,"=")(0)
End Function
Function getSPNum(sp)
getSPNum = split(sp,"=")(1)
end function
分别获得“=”前的数据名称和“=”后的数据值。
其次每块数据都分解下来了,就是如何寻找到相同的数据名称。
我们假设这样的流程,首先将a3数组中的第一元素提取,通过和除第一元素之前以为的数据进行比较,如果有相同则进行相加。
s_array = split(a3,";")
for i = 0 to ubound(s_array)
for j=i+1 to ubound(s_array)
if getSPName(s_array(i)) = getSPName(s_array(j)) then
Nums = Nums + Cint(getSPNum(s_array(j)))
end if
next
next
我们获得了最终的值可以随时将值赋到新的动态数组中,组合成最终的“组合数据”数组
redim Preserve result(p)
result(p) = getSPName(s_array(i)) & "=" & Nums
即
s_array = split(a3,";")
for i = 0 to ubound(s_array)
for j=i+1 to ubound(s_array)
if getSPName(s_array(i)) = getSPName(s_array(j)) then
Nums = Nums + Cint(getSPNum(s_array(j)))
end if
next
redim Preserve result(p)
result(p) = getSPName(s_array(i)) & "=" & Nums
p=p+1
next
这个里面势必会遇到这样的一个情况:当a3数组中的其后的某一元素总会与之前比较的相同的元素进行了运算,所以该元素就不能计入 for i = 0 to ubound(s_array)内的result(p) = getSPName(s_array(i)) & "=" & Nums动态数组中去。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
js更好地截取字符串
asp的日期转换星座函数
从开发人员角度看IE8的开发新特性
正则 global 属性介绍
Oracle10g 安装方法
统一的品牌设计
![](https://img.aspxhome.com/file/UploadPic/20088/7/200887125533323s.jpg)
MySQL中隐藏空间问题浅析
IE下,事件触发那点破烂事儿
asp下查询xml的实现代码
合理关闭XHTML标签
SQL Server 2005 内置工具建审查系统
asp如何对文件进行操作?
![](https://img.aspxhome.com/file/UploadPic/200911/20/20091120184513823s.gif)
TXT.WORD文档下载另存为,而不是在浏览器中打开
提升你设计水平的CSS3新技术[译]
![](https://img.aspxhome.com/file/UploadPic/up/2009080221214142.gif)
ORACLE实例的后台进程
使用 JavaScript 获取本地盘符
![](https://img.aspxhome.com/file/UploadPic/20101/12/1262936624-37s.png)