str1="中文1,中文2,中文3,中文4,中文5,中文6"
str2="num1,mun2,num3,num4,num5,num6"
上面两个字符串是对应的:
num1对应着中文1
num2对应着中文2
num3对应着中文3
........................
str3="num3,num5"
如何根据上面的三个字符串得到
str4="中文3,中文5"
str5="中文1,中文2,中文4,中文6,"
--------------------------------------------------------------------------------------------------
dim str1,str2,str3,str4,str5
str1 = "中文1,中文2,中文3,中文4,中文5,中文6"
str2 = "num1,num2,num3,num4,num5,num6"
'type参数是搜索str3在str1或者str2,1是在str1,2是在str2
function getSplit(str3,ReType)
str4="":str5=""
dim ss1,ss2,ss3,i,index
ss1=split(str1,",")
ss2=split(str2,",")
ss3=split(str3,",")
for i=0 to ubound(ss3)
if ReType=1 then
index=getIndex(ss1,ss3(i))
if index<>-1 then
str5=str5&","&ss2(index)
ss2(index)=""'消除这个的值
end if
else
index=getIndex(ss2,ss3(i))
if index<>-1 then
str5=str5&","&ss1(index)
ss1(index)=""
end if
end if
next
if ReType=1 then
for each s in ss2
if s<>"" then str4=str4&","&s
next
else
for each s in ss1
if s<>"" then str4=str4&","&s
next
end if
str4=right(str4,len(str4)-1)
str5=right(str5,len(str5)-1)
end function
'获取ss3中的值在ss1或者ss2中的下标位置
function getIndex(ss,Value)
dim k
for k=0 to ubound(ss)
if ss(k)=Value then
getIndex=k
exit function
end if
next
getIndex=-1
end function
getSplit "num3,num5",2
response.Write "str4="""&str4&"""<br/>"
response.Write "str5="""&str5&"""<br/>"
response.Write "<br/>"
getSplit "中文3,中文5",1
response.Write "str4="""&str4&"""<br/>"
response.Write "str5="""&str5&"""<br/>"
----------------------------------------------------------------------------
http://topic.csdn.net/u/20071220/22/33b8dddb-f6da-4417-a95c-e05060e3c527.html?seed=977250335