随机批量添加数字 怎么实现？？

[sarahjenny]

随机批量添加数字 怎么实现？？
例：表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

批量更新后为：

字段1（ID）——字段2（数字）
1——2、23、4、5、36、7、8
2——2、43、4、55、6、7、8
3——2、33、4、5、46、7、8
4——2、53、4、5、66、7、8
5——2、3、24、5、6、37、8

就是批量在字段2中随机位置添加定义好的数字

求高手给段代码 学习一下

[never exists]

没表述清楚 字段2貌似是数组 不是数字

[sarahjenny]

是 字段2 每条记录里 有多个数字

[never exists]

那就把定义好的数字组成的数组 随机后 插入字段2中

[sarahjenny]

换个方式表述

随机批量添加数字 怎么实现？？
例：表1有字段1（ID）、字段2（字母）

字段1（ID）——字段2（字母）
1——a,b,c,d,e,f
2——a,b,c,d,e,f
3——a,b,c,d,e,f
4——a,b,c,d,e,f
5——a,b,c,d,e,f

定义3个数字5|6|8批量更新后为：


字段1（ID）——字段2（字母）
1——a,5b,c,8d,e,f
2——a,5b,c,d,8e,f
3——a,6b,c,5d,e,f
4——a,5b,c,d,6e,f
5——a,8b,c,d,5e,f

就是批量在字段2中随机位置添加定义好的数字

[sarahjenny]

求高手帮忙写个代码 学习一下

[never exists]

2个数组 在长度最大的数组里 做循环
循环里 对定义好的数组随机排序 然后取出该数组元素和 较大数组中的元素 进行字符串相加

[sarahjenny]

改一下描述

随机位置批量添加内容 怎么实现？？
例：表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

批量更新后为：

字段1（ID） 字段2（内容）
1 2、23、4、5、36、7、8
2 2、43、4、55、6、7、8
3 2、33、4、5、46、7、8
4 2、53、4、5、66、7、8
5 2、3、24、5、6、37、8

就是批量在字段2随机位置添加2个定义好的数字

求高手给段代码 学习一下

[sarahjenny]

这个打印出的自定义内容 会重复显示
怎么能不重复显示定义好的数字

2,43,44,45,6,7,8

怎么不重复显示

如
2,43,4,5,56,7,8

[一把编程的菜刀]

http://topic.csdn.net/u/20120614/16/829fa081-d966-4698-8f0f-48259ba6e748.html?8346
使用程序实现的可以看

[never exists]

<%
'字段2 strarry="2,3,4,5,6,7,8"
'定义的好数字 字符串 strdim="4,5"
strarry="2,3,4,5,6,7,8"
strarry1="2,3,4,5,6,7,8"
strdim="4,5"
strarry=split(strarry,",")
strarry1=split(strarry1,",")
strdim=split(strdim,",")
dimlen=UBound(strdim)
arrylen=UBound(strarry)

for i=0 to arrylen
randomize
j=int(rnd()*(arrylen+1))
k=int(rnd()*(dimlen+1))
if strarry1(j)=strarry(j) then
strarry(j)=strdim(k)&strarry(j)
end if
Next


For i=0 To arrylen
response.write strarry(i)&"<br>"
next
%>

[never exists]

<%
'字段2 strarry="2,3,4,5,6,7,8"
'定义的好数字 字符串 strdim="4,5"
strarry="2,3,4,5,6,7,8"
strarry1="2,3,4,5,6,7,8"
strdim="4,5"
strarry=split(strarry,",")
strarry1=split(strarry1,",")
strdim=split(strdim,",")
dimlen=UBound(strdim)
arrylen=UBound(strarry)

for i=0 to dimlen
randomize
j=int(rnd()*(arrylen+1))

if strarry1(j)=strarry(j) then
strarry(j)=strdim(i)&strarry(j)

else
i=i-1
end if
Next


For i=0 To arrylen
response.write strarry(i)&","
next
%>
囧 还木有结束 纠结额