[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
kkk000

Rank: 1

帖子
3 
积分
15 
技术
0  
捐助
0  
注册时间
2017-8-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-8-31 19:08 | 只看该作者

[问题求助] VBS指定一个范围的数，随机抽取其中一个数输入到一个表格中

指定一个范围的数，随机抽取其中一个数输入到一个表格中，然后循环这个步骤，因为有很多excel表格，下面这个代码是30-35之间的范围，不知道怎么搞的，批处理的时候所有填入的随机数都是一样的，我要怎么才能填入不一样的数
  1. Dim x

  2.     Randomize 

  3.     x= Int((35-30 * Rnd) + 30)

  4.  

  5. Dim objSFO

  6.      Dim objFolder

  7.      Dim objFiles

  8.      Dim objFile

  9.      address="A1" 

  10.     Value=x

  11.  

  12.     set fso=createobject("scripting.filesystemobject") 

  13.     set excel=createobject("excel.application") 

  14.     Set objFolder = fso.GetFolder("C:\Users\Administrator\Desktop\新建文件夹 (4)")

  15.      Set objFiles = objFolder.Files     

  16.     For Each objFile In objFiles

  17.          If Right(objFile.Name, 4) = ".xls" Then

  18.             excel.visible=false

  19.            set w=excel.workbooks.open(objFile.path) 

  20.            excel.Sheets("sheet1").Range(address).Value=Value 

  21.             W.SAVE 

  22.             W.CLOSE

  23.         End If

  24.      Next

  25.     MsgBox "完成。", vbInformation
复制代码
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14770 
积分
45944 
技术
847  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2017-8-31 23:43 | 只看该作者
你这是VBS还是BAT呢？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

kkk000

Rank: 1

帖子
3 
积分
15 
技术
0  
捐助
0  
注册时间
2017-8-22 
3楼
发表于 2017-9-13 01:22 | 只看该作者
回复 2# Batcher
这个是vbs

TOP

slore

Rank: 5Rank: 5

帖子
281 
积分
1063 
技术
22  
捐助
0  
注册时间
2008-9-12 
4楼
发表于 2017-9-13 09:15 | 只看该作者
本帖最后由 slore 于 2017-9-13 10:38 编辑

再创建一个字典，把x存进去，Scripting.Dictionary
如果字典里面有了，就再随机取下x，直到不重复为止。

内容不多的话，用一个字符串保存也行。  used_x = ";35;32;"
用instr(1, used_x, ";" & x & ";")来查找，如果存在重新取，不存在就直接添加到used_x。

用一个数组也也行。

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
5楼
发表于 2017-9-13 09:25 | 只看该作者
本帖最后由 523066680 于 2017-9-13 09:40 编辑

随机不重复，蜜汁语法糖 （Perl）
  1. my @array = (1 .. 20);

  2. my @new_array = map { splice( @array, int(rand($#array+1)), 1 ) } ( 0 .. $#array );
复制代码
翻了以前写的 VBS，还真有，2012年。改自某种排序算法：
  1. dim array(20)

  2. dim last, idx, rand_num, str

  3. 

  4. last = ubound(array) - 1

  5. 

  6. for idx = 0 to last

  7.     array(idx) = idx + 1

  8. next

  9. 

  10. randomize()

  11. 

  12. for idx = last to 0 step -1

  13.   rand_num = int( idx * rnd )

  14.   str = str & array( rand_num ) & " "

  15.   array(rand_num) = array( idx )

  16. next

  17. 

  18. msgbox str
复制代码
9 7 17 19 1 16 20 14 8 2 5 3 4 13 10 12 11 6 15 18
FuniCode 编程论坛

TOP

slore

Rank: 5Rank: 5

帖子
281 
积分
1063 
技术
22  
捐助
0  
注册时间
2008-9-12 
6楼
发表于 2017-9-13 09:48 | 只看该作者
本帖最后由 slore 于 2017-9-13 09:50 编辑

回复 5# 523066680


    论糖还是ruby甜。 
  1. [*30..35].sample(6) #从30到35的数组中取样 
复制代码
  1. (1..10).each { p [*30..35].sample(6)}
复制代码
结果:
[34, 30, 32, 33, 31, 35]
[32, 33, 35, 31, 30, 34]
[35, 30, 33, 31, 32, 34]
[30, 32, 33, 35, 34, 31]
[34, 35, 30, 33, 32, 31]
[34, 32, 35, 33, 30, 31]
[33, 32, 30, 35, 34, 31]
[35, 31, 34, 32, 30, 33]
[34, 31, 30, 33, 35, 32]
[33, 31, 34, 35, 30, 32]
1

评分人数

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14770 
积分
45944 
技术
847  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2017-9-14 20:54 | 只看该作者
回复 3# kkk000


    那我把帖子移动到VBS版块了
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
8楼
发表于 2017-9-14 22:33 | 只看该作者
在第 19 行插入以下代码：
  1. Randomize 

  2. x= Int((35-30 * Rnd) + 30)

  3. Value=x
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表