当前位置: 代码迷 >> ASP >> 随机位置批量插入内容 如何实现?
  详细解决方案

随机位置批量插入内容 如何实现?

热度:479   发布时间:2012-08-10 12:19:33.0
随机位置批量插入内容 怎么实现??
随机位置批量插入内容 怎么实现??
例:表1有字段1(ID)、字段2(内容)

原有数据:

字段1(ID)――字段2(内容)
1――2、3、4、5、6、7、8
2――2、3、4、5、6、7、8
3――2、3、4、5、6、7、8
4――2、3、4、5、6、7、8
5――2、3、4、5、6、7、8

定义a,b, 批量更新后为:

字段1(ID)――字段2(内容)
1――2、a3、4、5、b6、7、8
2――2、b3、4、a5、6、7、8
3――2、a3、4、5、b6、7、8
4――2、b3、4、5、a6、7、8
5――2、3、b4、5、6、a7、8

就是批量在字段2随机位置插入2个定义好的内容

老师高手能给个具体代码 带注释那种吗,我搞了好几天了,不知道怎么弄??


------解决方案--------------------
VBScript code

'str---原字符串
'instr_str---需要随即插入的字符串,每个词请用都好隔开
'instr_len---插入的个数
function random_instr(str,instr_str,instr_len)
if trim(str)="" then '为空情况下的处理
    random_instr=""
   exit function
end if
if trim(instr_str)="" then '为空情况下的处理
    random_instr=""
   exit function
end if
if trim(instr_len)="" or not isnumeric(instr_len) then '为空情况下的处理
    instr_len=1
end if
random_arr=split(instr_str,",")'分割需要随即插入的字符串
if UBound(random_arr)+1<instr_len then'当需要随即插入的字符串的个数小于设定的个数的时候,取需要随即插入的字符串的个数
    instr_len=UBound(random_arr)+1
end if
eninser=""'保存已插入的字符串
for i=1 to instr_len
RANDOMIZE
random=round(len(str)*rnd())'随即插入的位置
inser_stred= eninser_str(instr_str,eninser)
if trim(eninser)="" then'保存已插入的字符串
    eninser=inser_stred
else'保存已插入的字符串
    eninser=eninser& "," &inser_stred
end if
stemp=left(str,random)
if random=0 then stempd=inser_stred & str else stempd= stemp&inser_stred end if 'random等于0时插入在第一个位置
str=replace(str,stemp,stempd)'顺序插入
next
random_instr=str
end function

function eninser_str(ByRef instrstrd,ByRef eninser)
random_arrs=split(instrstrd,",")'分割需要随即插入的字符
RANDOMIZE
randomd=round(UBound(random_arrs)*rnd())'随即取得要插入的字符串
strd=random_arrs(randomd)
if eninser="" then '为空情况下的处理
    eninser_str=strd
   exit function
end if
if instr(","& strd &",",","& eninser &",")>0 then'判断是否已插入数据
    eninser_str instrstrd,eninser
else
    eninser_str=strd
    exit function
end if
end function
response.Write random_instr("2、3、4、5、6、7、8","A,F,D",2) 
  相关解决方案