两组字符串数据,需要比较其中相同的数据,并将其值相加并组成一个新的字符串数据
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 |
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 |
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 redim Preserve ID(q) ID(q) = j q = q + 1 next redim Preserve result(p) result(p) = getSPName(s_array(i)) & "=" & Nums p=p+1 next |
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 |
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 next for each x in result mainhb=mainhb&x&";" next end function |
<% dim result() dim ID() dim p , q , Nums p=0 q= 0 Nums = 0 redim Preserve ID(q) ID(q) = "" s = "sp4=33;sp2=20;sp1=34;sp3=2;sp2=3;sp4=4;" s = left(s,len(s)-1) response.write 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 %> |