VBS 正则判别素数(质数)_vbs

利用正则判别素数，来源于网络，神人！

复制代码 代码如下:

Set regex = New RegExp
regex.Pattern = "^1?$¦^(11+?)\1+$"
For i = 1 To 100
 If Not regex.Test(String(i,"1")) Then
  WScript.Echo i
 End If
Next

看到标题你一定会不屑一顾，枚举质数谁不会？

复制代码 代码如下:

For i = 1 To 100
 For j = 2 To i
  If i Mod j = 0 Then Exit For
 Next
 If j = i Then WScript.Echo i
Next

几行代码就能搞定，如此简单。那就看看下面这个程序吧！

复制代码 代码如下:

Set regex = New RegExp
regex.Pattern = "^1?$|^(11+?)\1+$"
For i = 1 To 100
 If Not regex.Test(String(i,"1")) Then
  WScript.Echo i
 End If
Next

用正则表达式判断质数，神一样的人物。

来源：
http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533

时间： 2024-10-25 08:24:06

VBS 正则判别素数(质数)_vbs的相关文章

VBS 正则判别素数(质数)

利用正则判别素数,来源于网络,神人! 复制代码 代码如下: Set regex = New RegExp regex.Pattern = "^1?$¦^(11+?)1+$" For i = 1 To 100  If Not regex.Test(String(i,"1")) Then   WScript.Echo i  End If Next 看到标题你一定会不屑一顾,枚举质数谁不会? 复制代码 代码如下: For i = 1 To 100  For j = 2 T

java求100之内的素数(质数)简单示例_java

质数又称素数.一个大于1的自然数,如果除了1和它自身外,不能被其他自然数整除的数:否则称为合数.根据算术基本定理,每一个比1大的整数,要么本身是一个质数,要么可以写成一系列质数的乘积:而且如果不考虑这些质数在乘积中的顺序,那么写出来的形式是唯一的.下面是一个java求100之内的素数简单示例 复制代码 代码如下: public class test {  public static void main(String[] args) {  int i,n,k=0;     for (n = 3;

ASP,vbs正则轮翻在文章段落后加上网址等内容_应用技巧

<script language ="vbs">  '函数名称:RegExpTest  '参数: strng-->要处理的字符串;patrn-->以|隔开的各种结尾标志如:<br/>|</p>|<br>; patrn2-->要替换成的字符串,也以|隔  开   '作者:柳永法(yongfa365)'Blog  '功能:将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容  Function Re

vbs获取当前路径的代码_vbs

CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

VBS中常用脚本代码_vbs

将域用户或租添加到本地组 Set objGroup = GetObject("WinNT://./Administrators") Set objUser = GetObject("WinNT://testnet/Engineers") objGroup.Add(objUser.ADsPath) 修改本地管理员密码 Set objcnlar = GetObject("WinNT://./administrator, user") objcnla.

使用VBS修改二进制文件HEX数据_vbs

可用之处还是有的,如:隐藏快捷方式中目标文件位置:破解XP中TCP/IP连接数限制:去掉RAR右键解压菜单等等. 复制代码 代码如下: Public BinaryData If (lcase(right(wscript.fullname,11))="wscript.exe") Then WScript.Quit(0)End If If wscript.arguments.count<4 Then Wscript.Echo "Change File Hex. By: lx

灵活实用的VBS入门教程基础篇_vbs

我们常听说VBS功能很强大,也很简单,大家是否也想了解VBS呢,现在让我们一起来学习VBS吧. VBS只是英文的缩写而已,全称是Visual Basic Script Edition,也就是说VBS是Visual Basic的脚本版,很多人说VBS是VB的一个子集.因为VBS在编程语法.函数上基本上与Visual Basic是一致的.Visual Basic能实现的一般功能,VBS同样也可以实现,实现的过程也比Visual Basic容易,因为只要一个文本编辑器就可以完成VBS编程了,而且Win

VBS Runas 自动输入密码, 明文_vbs

复制代码 代码如下: Set Shell = CreateObject("WScript.Shell") Shell.Run "cmd /c @runas /user:administrator CMD" WScript.Sleep 2000 Shell.SendKeys "password{ENTER}exit{ENTER}" WScript.Sleep 1000 Shell.SendKeys "@echo off&cls&a

vbs复制文件的脚本_vbs

复制代码 代码如下: parentfolder = "c:\" sourcefile = "c:\windows\log.log" targetfolder = parentfolder & date & "\" set objshell = createobject("shell.application") set objfolder = objshell.namespace(parentfolder) ob