逆水寒工作室脚本程序下执行sql

发布时间:2020-08-28 来源:脚本之家 点击:

->PublicFunctionZDX(XAsCurrency)AsString
DimlnPAsInteger
DimPrcAsString
DimTmpAsString
DimNoBAsCurrency
DimDxAsString
DimXxAsString
DimZhenAsBoolean
DimStr(10)AsString
DimChinaAsString
China="分角元拾佰仟万拾佰仟亿"
Str(0)="零"
Str(1)="壹"
Str(2)="贰"
Str(3)="叁"
Str(4)="肆"
Str(5)="伍"
Str(6)="陆"
Str(7)="柒"
Str(8)="捌"
Str(9)="玖"

Zhen=True
X=FormatNumber(X,2)
Prc=CStr(X)
Prc=Replace(Prc,",","")

lnP=Len(Prc)
Fori=lnP-1To1Step-1
IfMid(Prc,i,1)="."Then
SelectCaselnP-i
Case1
Prc=Replace(Prc,".","") "0"
Case2
Prc=Replace(Prc,".","")
EndSelect
Zhen=False
ExitFor
EndIf
Nexti
IfZhenThenPrc=Prc "00"
lnP=Len(Prc)
Fori=1TolnP
Tmp=Str(Mid(Prc,i,1))&Tmp
Nexti

ZDX=""
fy=1
Fori=1TolnP
Xx=Mid(Tmp,i,1)
Dx=Mid(China,i,1)

IfXx<>"零"Then
ZDX=Xx&Dx&ZDX
f=1
Else
Ifi=3Then
ZDX=Dx&ZDX
EndIf

Ifi=7Then
ZDX=Dx&ZDX
EndIf
IffThen
ZDX="零"&ZDX
EndIf
f=0
EndIf
Nexti
IfZhenThenZDX=ZDX "正"
ZDX=Replace(ZDX,"零万","万")
ZDX=Replace(ZDX,"零元","元")

EndFunction->
->


'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
'
' NAME: add2run03.vbs
'
' AUTHOR: shile
' DATE : 2008-12-13
'
' COMMENT: vbs实现添加程序到自启动项
'
'==========================================================================
On Error Resume Next '出错继续执行下个命令
dim ws
Set ws=CreateObject("Wscript.Shell")
Dim runKey,runPath
runKey=InputBox("输入自启动项键值名称","请输入")
runPath=InputBox("输入相应的程序路径","请输入")
Dim temp,ret
temp=ws.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey)
'MsgBox temp
If temp <> Empty Then
ret=MsgBox( "键值"&runKey"已经存在,其值为"&temp",是否替换为新的值"&runPath, vbOKCancel, "提示!")
If ret=vbOK Then
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath
MsgBox "修改"&runKey"值为"&runPath"成功",vbYes,"恭喜!"
End If
Else
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath
MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!"
End If
三分钟短片脚本范本
昨天写《QWERTY密码:加密与解密》的时候,为了得到26个字母的字符串,写了这样一个 For Next 循环:

运行后却发现没有字符串输出,觉得很奇怪,于是简单修改了一下:

仍然没有任何输出,说明 For Next 循环中的语句根本就没有执行,百思不得其解,于是请教了一下预言家晚报,他很快就发现了陷阱所在:

这次种终于有输出了,相信聪明的你也一定发现了陷阱在哪里后来我买了一本BASIC的书,上面有一个小游戏BASIC源代码,我看了以后才发现原来自己是不会利用而已,因为那个游戏中使用的大多数语句都是我学过的


注意:本代码仅作为技术研究之用,请勿非法使用在编写的过程中当然遇到了许多的问题,这里将一些简单的小程序写下来与喜爱编程的朋友们分享

但是初学者慎用,千万不要随便拿来掩盖错误,否则以后程序出现莫名其妙的问题,改都没法改

使用完毕要记得关闭错误捕获器on error goto 0
语法如下:
=======================================================
on error resume next '打开错误捕获,以下错误语句将被跳过,
同时内部对象err将纪录最后一个触发的错误信息
on error goto 0 '关闭错误捕获
=======================================================
关于err对象:
if Err.number<>0 then
response.write Err.description
Err.clear '错误被手工处理后要记得清除err对象的内容
response.end
end ifFunctionCompFile(F1asstring,F2asstring)asboolean
Dimissameasboolean
OpenF1ForBinaryAs#1
OpenF2ForBinaryAs#2

issame=True
IfLOF(1)<>LOF(2)Then
issame=False
Else
whole&=LOF(1)\10000'numberofwhole10,000bytechunks
part&=LOF(1)Mod10000'remainingbytesatendoffile
buffer1$=String$(10000,0)
buffer2$=String$(10000,0)
start&=1
Forx&=1Towhole&'thisfor-nextloopwillget10,000
Get#1,start&,buffer1$'bytechunksatatime.
Get#2,start&,buffer2$
Ifbuffer1$<>buffer2$Then
issame=False
ExitFor
EndIf
start&=start& 10000
Next
buffer1$=String$(part&,0)
buffer2$=String$(part&,0)
Get#1,start&,buffer1$'gettheremainingbytesattheend
Get#2,start&,buffer2$'gettheremainingbytesattheend
Ifbuffer1$<>buffer2$Then
issame=False
EndIf
Close
CompFile=issame
EndFunction->

0

挂一天多钱FunctionCheckSpell(IncorrectTextasstring)asstring
DimWordAsObject,retText$
OnErrorResumeNext
'建立对象并打开WORD
SetWord=CreateObject("Word.Basic")

'把需要检查的STRING放到WORD
Word.AppShow
Word.FileNew
Word.InsertIncorrectText

'运行WORD拼写检查
Word.ToolsSpelling
Word.EditSelectAll

'取返回值
retText=Word.Selection$()
CheckSpell=Left$(retText,Len(retText)-1)

'关闭文件并回到VB应用
Word.FileClose2
Show

SetWord=Nothing
EndFunction->

最后一篇:

新家不错,MM开心,我也就跟着高兴了:),今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函

数打交道,inputbox()是函数,msgbox()是函数,int()也是函数...这些函数都是系统内建的,我们只能用不能改.今天,我

就教大家怎样自己制作一个函数.

  首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两个数,输出较大的那一个.

dima1,a2,b1,b2,c1,c2
a1=2:a2=4'":"可以让你把多个语句写在一行上
b1=32:b2=67
c1=12:c2=898

ifa1>a2then
msgbox(a1)
elseifa1
msgbox(a2)
endif

ifb1>b2then
msgbox(b1)
elseifb1
msgbox(b2)
endif

ifc1>c2then
msgbox(c1)
elseifc1
msgbox(c2)
endif

  多么麻烦呀,我们把相同的比较过程复制了好几遍,早期语言没有结构化(没有过程和函数)的时候,程序员们的确是这么

干的,他们复制(Copy),那个年代也没有剪贴板这一说,大家都是重新输入代码.后来工作简化了:


dima1,a2,b1,b2,c1,c2
a1=2:a2=4
b1=32:b2=67
c1=12:c2=898
msgbox(co(a1,a2))
msgbox(co(b1,b2))
msgbox(co(c1,c2))

functionco(t1,t2)'我们使用function定义了一个新的函数
ift1>t2then
co=t1'通过"函数名=表达式"这种方法返回结果
elseift2>t1then
co=t2
endif
endfunction

  我们在这里是用了一个新的关键字:funciton,这个关键字表示一个新函数开始,格式:

funciton函数名(参数1,参数2...参数n)'列表可以是空的,但括号不能省略,参数之间用","分割
...
exitfunciton'结束函数,不是必需的
...
endfunction

  函数是一个模块,只有你调用的时候才会运行,也就说,当你编写了一个函数,然后在程序中并不调用它,那么这个函数

永远不会运行.一般来说,我们编写程序是按照:

主程序
..
..
..

函数1
..
..

函数2
..
..

  详细解释一下:函数中最重要的是参数和返回值.参数是在函数名后面的()里定义的,用","分割,使用参数的时候我们也

用","分割.说到这里我想起一件事,昨天有个朋友给我发消息问我:

  msgbox(name1,name2,name3)

  这个错在哪里?为什么不能同时显示出三个变量?这就是因为你用了",",这个符号表示你输入的三个量作为三个不同参数

传递给msgbox()函数,msgbox()函数只会显示出第一个参数,第二个参数的作用是出现在标题栏.所以你应该用"&"或者"+"把

三个字符串变量连接起来,作为第一个参数传递给msgbox()函数.程序员说参数的时候经常说到"形参","实参"这样的"黑话",

我来解释一下."形参"是"形式参数"的简称,"实参"是"实际参数"的简称,实参是指你调用函数的时候传递给函数的量,可以

使变量或者常量(直接量),例如:co(12,24)中的12,24就是实参.形参是你在函数定义时定义的变量,这些变量用来"接住"传递

过来的量,例如functionco(t1,t2)t1,t2就是形参.

  在VBScript中,参数传递是一种传值, 而不是传址(听不明白不要紧,学了C语言的指针你就明白了),所以我们进行的参

数传递实际上是进行了一次变量赋值,例如我们调用co(a1,a2),实际上程序会执行一步:t1=a1,t2=a2这样的操作.同样因为传

值传址的原因,VBScript只能返回一个值,我们先来看看什么叫"返回".当一个过程调用了另一个过程的时候(比如主程序调用

了函数),控制权就到了被调用过程那里,当这个过程执行完毕以后,会回到调用它的地方继续执行,这个就叫做"返回",返回

的时候可以带一个值叫做"返回值"(这是"通俗"的理解).在vbs继承了basic的传统,返回的时候采用"函数名=返回值"的办法,

这个"返回值"是指一个表达式(在编程中,任何东西都是表达式,比如变量a,常数0,"Hello",c=1+2等等这都是表达式).比如

有一个函数是ht,则返回的方法是:ht=你要返回的值.注意:返回以后,后面的语句将不再执行.

  调用一个函数我就不用讲了吧:变量=函数名(参数)

  有时候我们并不需要返回什么值,这个时候我们可以使用一种称之为"子程序"的结构.子程序或称之为过程与函数的差别

就在于:1)没有返回值,2)使用sub关键字定义,3)通过Call调用.具个例子:

dimyname
name=inputbox("请输入你的名字:")
callwho(yname)

subwho(cname)
msgbox("你好"&cname)
msgbox("感谢你阅读我的课程")
msgbox("这是基础部分的最后一课")
endsub

  你一定看明白了,很简单的.退出一个过程和退出一个函数一样:exitsub(函数:exitfunction).

  要注意,子程序(过程)是比较特殊的一个结构,C等语言是没有这个概念的,C语言中的一切都是函数,没有返回值的函数

在C语言中只要使用void修饰符定义就行了.

  今天没有什么可讲的了,基础篇就这么结束了,目前你已经有了基本的编程概念(面向过程的结构化编程),可以选择学习

另外一种语言(比如C或Pascal),现在的基础会有一定的帮助.如果你想要继续学习vbs或通过它更详细的了解编程在转型可以

跟我继续学习,但因为我的假期结束所以更新的时间可能会比较慢,请大家原谅.初步计划如下:


进阶篇:

变量的深入讨论

|----变量类型

|----变量的有效范围

数组的深入讨论

|----动态数组

函数的深入讨论

|----数组作为函数参数

|----多个返回值

字符串操作

|----乱七八糟一大堆

面向对象编程(OOP)的基本知识

文件操作

|----FSO对象

|----其他相关部分

VBS与网页

|----HTML中嵌入VBS

|----VBS与表单(设计你的程序界面wow!)


实战篇:

病毒编程

Socket编程(TCP/UDP)


  这只是大概的内容,我想应该会有变化,到时候你就会读到的.今天的内容请多多实践,作业就是把前面的各个课程在温

习一下.对要离开这个课程去更进一步学习的朋友:祝你再学习编程的道路上一帆风顺.


网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号