紧急求助 asp怎样合并二维数组

来源：百度知道 编辑：UC知道 时间：2024/09/23 18:28:39
qx(1,1) = "729路"
qx(1,2) = "小东门"
qx(1,3) = "15路"

qx(2,1) = "805路"
qx(2,2) = "小东门"
qx(2,3) = "18路"

qx(3,1) = "729路"
qx(3,2) = "小东门"
qx(3,3) = "18路"

qx(4,1) = "805路"
qx(4,2) = "小东门"
qx(4,3) = "20路"

qx(5,1) = "809路"
qx(5,2) = "小东门"
qx(5,3) = "20路"

qx(6,1) = "729路"
qx(6,2) = "小东门"
qx(6,3) = "8路"

前两项如果相同就合并，形成新的数组为

qx(1,1) = "729路"
qx(1,2) = "小东门"
qx(1,3) = "15路/18路/8路"

qx(2,1) = "805路"
qx(2,2) = "小东门"
qx(2,3) = "18路/20路"

qx(3,1) = "809路"
qx(3,2) = "小东门"
qx(3,3) = "

<%
dim qx()
dim qx_1()
dim tp
dim ict
dim i,j

redim qx(6,3)

qx(1,1) = "729路"
qx(1,2) = "小东门"
qx(1,3) = "15路"

qx(2,1) = "805路"
qx(2,2) = "小东门"
qx(2,3) = "18路"

qx(3,1) = "729路"
qx(3,2) = "小东门"
qx(3,3) = "18路"

qx(4,1) = "805路"
qx(4,2) = "小东门"
qx(4,3) = "20路"

qx(5,1) = "809路"
qx(5,2) = "小东门"
qx(5,3) = "20路"

qx(6,1) = "729路"
qx(6,2) = "小东门"
qx(6,3) = "8路"

ict=6
i=1
while i<6
if qx(i,1)<>"" then
tp=qx(i,3)
for j=i+1 to 6
if qx(i,1)=qx(j,1) and qx(i,2)=qx(j,2) then
tp=tp & "/" & qx(j,3)
qx(j,1)=""
ict=ict-1
end if
next
qx(i,3