2020-02-16 标签:vbs,sort,引发,net,framework,之间,关系,说明,问题,就这么,结束,也就,不会有,这篇文章,怪我,google,输入

如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在Google中输入“vbs sort”，回车，看到一段代码，顿时泪流满面。 实现代码如下： Set outputLines = _ CreateObject("System.Collections.ArrayList") 'add lines

2020-02-16 标签:vbs,字符串,连接,性能,问题,少量,效率,并没有,程序,造成,多大,影响,现在,让我们,考虑,极端,100000,之间,数字

当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。 最简单的解决方案是直接使用&连接： 实现代码如下： begin = Timer For i = 1 To 100000 str = str &

2020-02-16 标签:vbs,精确,计算,100,次方,代码,既然,python,那么我,就要,实现,效率,10000,用了,009013,120

既然Python可以计算2的100次方，那么我就要用VBS实现。不过这个效率嘛，计算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一个等级的，我就不多说什么了。 直接上代码： 实现代码如下： 'Date: 2010/10/27 'Author: Demon

2020-02-16 标签:vbs,实现,zip,压缩,unzip,解压缩,函数,代码,如下,d,test,iso,msgbox,ok,sub,byval,mysourcedir,myzipfile,set

压缩代码: 实现代码如下： Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateOb

2020-02-16 标签:vbs,调用,windows,api,函数,代码,那天,无意中,搜索,一篇,wincc,利用,excel,文章,不知道,是什么,google,好像,西门子,自动化

那天无意中搜索到一篇《WinCC VBS利用EXCEL调用Windows API函数》的文章，不知道WinCC是什么，Google了一下好像跟西门子自动化有关。WinCC是什么并不重要，重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA，一种传说比VB还要VB的语

2020-02-16 标签:vbs,shell,application,获取,图片,分辨率,简单,google,未果,发邮件,请教,很快,就有,回复,实现,代码,如下,path,c,test

简单Google了一下，未果，于是发邮件请教了一下，很快就有了回复。 实现代码如下： Path = "C:\test.jpg" arr = Split(Path,"\") FileName = arr(Ubound(arr)) FolderPath = Left(Path, Len(Path) -

2020-02-16 标签:vbs,uac,用户,帐户,控制,实现,代码,很多人,功能,鸡肋,角度,来看,多多少少,有点,用的,限制,直接,双击,文件,只能在

虽然很多人觉得这个功能很鸡肋，但是以VBS的角度来看，UAC还是多多少少有点用的。在UAC的限制下，直接双击VBS文件只能在标准用户权限下运行，很多事情是做不了的，比如复制自身到windows文件夹，或者写入注册表的开机启动项等等。在XP下非常猖獗的暴风一号病毒，放到Win7下也就只能改改文件夹属性

2020-02-16 标签:vbs,字符串,操作,效率,分析,总结,根本,类似于,这样的,东东,哥们,想办法,优化,正文,写了,几段,代码,做了

可vbs根本就没有类似于StringBuilder这样的东东，所以咱哥们只能自己想办法优化了。正文: 我写了几段代码做了测试，得出以下结果： '普通字符串连接 StringLinkTest1() '性能最差，大约耗时20秒(最要命的是在这20秒内，整个CPU几乎是100%满负荷在运行) '普通字符串

2020-02-16 标签:vbs,字符串,日期,操作,相关,函数,asc,x,chr,转换,字符,filter,搜寻,数组,特定,格式

1. Asc(x),Chr(x):转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter(x,s[,include[,compare]]) 实例： Dim x()={"kjwang","wangkj","peter"} Dim v v=filter(x,"kj")

2020-02-16 标签:asp,静态,情况下,实现,utf,文件,缓存,代码,如下,language,vbscript,codepage,65001,response,charset,程序,通过,使用

实现代码如下： TimeDelay Then'超过 List=getHTTPPage(GetUrl()) WriteFile(FileName) Else List=ReadFile(FileName) End If Set FSO = nothing Response.Write(List)