软件开发培训班 >> 编程开发 >> ASP

asp两组字符串数据比较合并相同数据

a1="a=2;b=4;d=2;" 
a2="c=1;a=6;e=5;b=2;" 
s=a1&a2

s = left(s,len(s)-1) 
alert mainhb(s)

function mainhb(s) 
s_array = split(s,";") 
  for i = 0 to ubound(s_array) 
    if not IsInID(i) then  
      Nums = getSPNum(s_array(i)) 
      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))) 
          redim Preserve ID(q) 
          ID(q) = j 
          q = q + 1 
        end if 
      next 
       
      redim Preserve result(p) 
      result(p) = getSPName(s_array(i)) & "=" & Nums 
      p = p + 1 
    end if 
    Nums = 0 
  next

for each x in result 
    mainhb=mainhb&x&";" 
  next 
end function

Function getSPName(sp) 
  getSPName = split(sp,"=")(0) 
End Function

Function getSPNum(sp) 
  getSPNum = split(sp,"=")(1) 
end function

function IsInID(j) 
  dim x 
  IsInID = false 
  for each x in ID 
    if x = j then  
      IsInID = true 
      exit function 
    End if 
  Next 
end function 
</script>

技术文章快速查找

类似于iis浏览的功能

ASP常用源代码的总结（下）

ASP模拟POST请求异步提交数据的方法

ASP:ActiveX不能创建Scripting.FileSystemObject对象解决办法

asp字符串连接符&、多个字符串相加、字符串拼接类

ASP 篇（九）

抽取10万条数据，想起GetRows()

asp 随机字符串函数

相关下载

在线教程导航

软件应用
·Windows8	·Windows7	·Word
·Excel	·PPT	·WPS
Web开发
·ASP	·JavaScript	·DIV+CSS
·JSP	·VbScript	·XML
·PHP
开发语言
·VB	·VC	·ASP.NET
·Java	·C++	·Delphi
数据库开发
·MySQL	·MsSQL	·Access
·Oracle	·DB2
手机系统
·Android	·iOS	·WindowsPhone
网站设计
·Flash	·Dreamweaver	·Fireworks
平面设计
·Photoshop	·CorelDraw	·AutoCAD
·3DsMAX	·Illustrator
网络技术
·网站运营	·网络安全	·网络搭建