下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
'revstr:要翻转的字符串
'返回值:翻转后的字符串
DimdoreverseAsLong
reversestring=""
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next
EndFunction->
If Flag=0 Then
GetIPAddress="Get IP Address Time Out ..."
Else
Source=GetIPObj.documentElement.innerText
Set Rep=New RegExp
Rep.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each result in Rep.Execute(Source)
GetIPAddress=result
Exit For
Next
End If
End Function
（是的，我们知道：集合中只有一项mailto:tonyki@citiz.net
模块MdlLanMgr.bas：
AttributeVB_Name="ModuleLanMgr"
OptionExplicit
PrivateDeclareFunctionGetPrivateProfileString&Lib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)
PrivateLanguageFileNameAsString
'选择语言
PublicSubSelectLanguage(LanNameAsString)
OnErrorResumeNext
SelectCaseLanName'根据用户选择的语言的名称，分别读取不同的语言文件
Case"English":
LanguageFileName=AddSplash(App.Path)&"English.Lan"
Case"Chinese(Simplify)":
LanguageFileName=AddSplash(App.Path)&"ChineseS.Lan"
Case"Chinese(Traditional)":
LanguageFileName=AddSplash(App.Path)&"ChineseT.Lan"
CaseElse:
LanguageFileName=""
EndSelect
EndSub
'翻译文字
PublicFunctionTranslateStr(sSectionAsString,sKeyAsString,sDefValAsString)AsString
DimsValueAsString*128
DimNAsLong
OnErrorResumeNext
TranslateStr=sDefVal
IfNotFileExists(LanguageFileName)Then
ExitFunction
EndIf
N=GetPrivateProfileString(sSection,sKey,sDefVal,sValue,127,LanguageFileName)
IfN>0Then
TranslateStr=Left(sValue,N)
EndIf
EndFunction
'自动转换Form上的一些基本控件（也可自行扩展，目前支持CommandButton,Label,OptionButton,CheckButton）
PublicSubTranslateForm(FrmAsForm)
DimIAsLong
OnErrorResumeNext
Frm.Caption=TranslateStr(Frm.Name,"Caption",Frm.Caption)
ForI=0ToFrm.Controls.Count-1
If(TypeOfFrm.Controls(I)IsCommandButton)Or(TypeOfFrm.Controls(I)IsLabel)_
Or(TypeOfFrm.Controls(I)IsOptionButton)Or(TypeOfFrm.Controls(I)IsCheckBox)Then
Frm.Controls(I).Caption=TranslateStr(Frm.Name,Frm.Controls(I).Name,Frm.Controls(I).Caption)
EndIf
NextI
EndSub
->
on error resume Next
Set ie=WScript.CreateObject("InternetExplorer.Application")
set arg=wscript.arguments
if arg.count=0 then wscript.quit
ie.visible=false
ie.navigate arg(0)
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
For i=12 To ie.Document.links.length-2
data=ie.Document.links(i).innerText
If data <>13 Then
wscript.echo data
wscript.echo ie.Document.links(i).alt
End if
next
msgbox "转换完毕"
FunctionCompFile(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->
作者:slightboy
看到好多同学权限判断都是用字符串然后或分割或截取
其实对于允许/不允许(true/false)这种的权限,用逻辑运算再恰当不过了
声明下:本文针对入门和为掌握的同学,如果已经懂了那可以无视了
可能意思表达的不是很清楚,敬请原谅.
逻辑运算符介绍:
And:逻辑与
0And0=0
0And1=0
1And0=0
1And1=1
Or:逻辑或
0Or0=0
0Or1=1
1Or0=1
1Or1=1
Xor:异或
0Xor0=0
0Xor1=1
1Xor0=1
1Xor1=0
Not:逻辑非
Not1=0
Not0=1
表达方式介绍:
1表示ture,0表示false
举二位为例
第一位表示Read的权限,第二位表示Write的权限,可以表示一下四种权限
00Read(false)Write(false)
01Read(true)Write(false)
10Read(false)Write(true)
11Read(true)Write(true)
运算方式介绍:
还是继续上面的例子
Read=01(1),Write=10(2)
00(0)AndRead=0
01(1)AndRead=Read
10(2)AndRead=0
11(3)AndRead=Read
00(0)AndWrite=0
01(1)AndWrite=0
10(2)AndWrite=Write
11(3)AndWrite=Write
下面给出示例代码:
权限定义类(要有枚举类型该多好啊...)
ClassPermissionType
PublicRead
PublicWrite
PublicDelete
PrivateSubClass_Initialize
Read=1
Write=2
Delete=4
EndSub
EndClass
权限类
ClassPermissionSetComponent
PrivateintValue
PublicPropertyGetRead()
Read=GetValue(Permission.Read)
EndProperty
PublicPropertyLetRead(arg)
CallSetValue(Permission.Read,arg)
EndProperty
PublicPropertyGetWrite()
Write=GetValue(Permission.Write)
EndProperty
PublicPropertyLetWrite(arg)
CallSetValue(Permission.Write,arg)
EndProperty
PublicPropertyGetDelete()
Delete=GetValue(Permission.Delete)
EndProperty
PublicPropertyLetDelete(arg)
CallSetValue(Permission.Delete,arg)
EndProperty
PublicPropertyGetValue()
Value=intValue
EndProperty
PublicPropertyLetValue(arg)
intValue=arg
EndProperty
PublicFunctionGetValue(intType)
GetValue=(ValueandintType)=intType
EndFunction
PublicSubSetValue(intType,boolValue)
IF(boolValue)Then
Value=ValueOrintType
Else
Value=ValueAnd(NotintType)
EndIF
EndSub
EndClass
运用示例代码:
DimPermission:SetPermission=newPermissionType
DimPermissionSet:SetPermissionSet=newPermissionSetComponent
PermissionSet.Value=0
w("Read:")
PermissionSet.Read=false
w(PermissionSet.Value&""&PermissionSet.Read)
PermissionSet.Read=true
w(PermissionSet.Value&""&PermissionSet.Read)
w("Write:")
PermissionSet.Write=false
w(PermissionSet.Value&""&PermissionSet.Write)
PermissionSet.Write=true
w(PermissionSet.Value&""&PermissionSet.Write)
w("Delete:")
PermissionSet.Delete=false
w(PermissionSet.Value&""&PermissionSet.Delete)
PermissionSet.Delete=true
w(PermissionSet.Value&""&PermissionSet.Delete)
Functionw(o)
Response.Write("<br/>"&o)
EndFunction
今天的课程就到这里,大家可以举一反三,下课...
禁用js提醒回事AutoCAD可以写不同高宽比、不同角度、不同颜色的TEXT", vbYesNo + vbQuestion, "後知後覺")=vbYes Then
Wshell.Run ""
End if
。
