ae脚本无效in 数字

发布时间:2019-11-01 来源:脚本之家 点击:

只要熟练,即便是最简单的四连斩都可以做到招招红刀,威力大幅强化",64,"提示":WScript.Quit

Dim objFSO
Set objFSO=CreateObject("Scripting.FileSystemObject")
TreeStr=TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,""
Set objFile=objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile=Nothing
Set objFSO=Nothing
MsgBox "查看当前目录下的OutTree.txt",vbInformation,"完成 - vbsTree"
Sub Tree(Path,SFSpace)
Dim i,TempStr,FlSpace
FlSpace=SFSpace & " "
Set CrntFolder=objFSO.GetFolder(Path)
i=0:TempStr="├─"
For Each ConFile In CrntFolder.Files
i=i + 1
If i=CrntFolder.Files.Count And CrntFolder.SubFolders.Count=0 Then TempStr="└─"
TreeStr=TreeStr & FlSpace & Tempstr & ConFile.name & FormatSize(ConFile.size) & vbCrLf
Next
i=0:TempStr="├─"
For Each SubFolder In CrntFolder.SubFolders
i=i + 1
If i=CrntFolder.SubFolders.Count Then
TempStr="└─"
SFSpace=FlSpace & " "
Else
SFSpace=FlSpace & "│"
End If
TreeStr=TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & vbCrLf
Tree SubFolder,(SFSpace)
Next
End Sub
Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i=i + 1
SZ=SZ \ 1024
Loop
FormatSize=" (" & SZ & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function


Function BFF(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, oStr
Set oShell=WScript.CreateObject("Shell.Application")
Set oItem=oShell.BrowseForFolder(&H0, title, flag, dir)
oStr=oItem.Title
If Err <> 0 Then
Set oShell=Nothing
Set oItem=Nothing
Exit Function
End If

If InStr(oStr, ":") Then
BFF=mid(oStr,InStr(oStr, ":")-1, 2)
Else
Select Case oStr
Case "桌面"
BFF=WS.SpecialFolders("Desktop")
Case "我的文档"
BFF=WS.SpecialFolders("MyDocuments")
Case "我的电脑"
MsgBox "无效目录

shell脚本不满足条件退出

OptionExplicit
OnErrorResumeNext
Subinclude(vbs)
Dimfso:Setfso=CreateObject("scripting.FileSystemObject")
Dimp:p=Split(Wscript.ScriptFullName,"")
p(UBound(p))=vbs
p=Join(p,"")
Dimf:Setf=fso.OpenTextFile(p)
Executef.ReadAll()
'ExecuteGlobalf.ReadAll()
f.Close()
Setf=Nothing
Setfso=Nothing
'Wscript.Echo(p)
EndSub

include("1.vbs")
include("2.vbs")
'IfErrThen
'Wscript.Echo(Err.description)
'Wscript.Quit()
'EndIf
Wscript.Echo(a+b)

1.vbs
a=3

2.vbs
b=4


开局玩法及生存技巧:


如果您希望能够将数据保存到一个文本文件并可以使用ADO读取此数据,就按我们讲过的去做;或者也可以只使用VBScript的字符串处理功能来将每行分成若干单个记录

吞食孔明传星彩怎么加入?游戏中有些玩家一直没有找到星彩,对这个武将的实力也不是非常的了解,这里给大家带来了吞食孔明传星彩入队方法及实力评价,一起看下文中介绍吧


Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
下面的每一行都是一个不错的命令,请说出运行下列每个语句的效果

<!--#includevirtual="/include/conn.inc"-->
<%
'*********************************
'*classname:ADOXDBOPR
'*制作人:刘晓逸
'*作用:用adox进行数据库的操作
'*版本:1.0
'* 脚本之家
'**********************************
ClassADOXDBOPR

dimobjADOX

PrivateSubClass_Initialize
SetobjADOX=Server.CreateObject("ADOX.Catalog")
endsub

PublicPropertyletConnection(objCONN)
objADOX.ActiveConnection=objCONN
EndProperty

publicfunctionarrTName
dimarrTNames()
dimi:i=1
foreachobjtabinobjADOX.tables
ifobjtab.type="TABLE"then
redimPreservearrTNames(i)
arrTNames(i-1)=objtab.name
i=i+1
endif
next
arrTName=arrTNames
endfunction

publicfunctionarrfinfo(szTName)
dimarrf()
SetobjTAdox=objADOX.tables.item(szTName)
fori=0toobjTAdox.columns.count-1
SetdicInfo=Server.CreateObject("Scripting.Dictionary")
redimpreservearrf(i+1)
dicInfo.add"name",objTAdox.columns.Item(i).name
dicInfo.add"type",type_int2str(objTAdox.columns.Item(i).type)
Setarrf(i)=dicInfo
SetdicInfo=nothing
next
arrfinfo=arrf
endfunction

publicsubdel_table(szTName)
objADOX.tables.deleteszTName
EndSub

publicsubadd_table(szTName)
Setobj_tab=Server.CreateObject("ADOX.Table")
obj_tab.Name=szTName
Setobj_tab.ParentCatalog=objADOX
objADOX.tables.Appendobj_tab
Setobj_tab=nothing
EndSub

publicsubdelColumns(arrColumns,szTName)
Setobj_tab=objADOX.tables.item(szTName)
ifisarray(arrColumns)then
fori=0toubound(arrColumns)
obj_tab.columns.deletearrColumns(i)
next
else
obj_tab.columns.deletearrColumns
endif
endsub

publicsubadd_columns(arrColumns,szTName)
SetobjTab=objADOX.tables.item(szTName)
fori=0toubound(arrColumns)
objTab.columns.appendarrColumns(i,0),arrColumns(i,1),arrColumns(i,2)
next
endsub

functiontype_int2str(int_value)
selectcaseint_value
case3:
type_int2str="数字"
case202:
type_int2str="文本"
caseelse:
type_int2str=int_value
endselect
endfunction

PrivateSubClass_Terminate
SetobjADOX=nothing
EndSub

Endclass
%>
关于少先队数字故事

崩溃bug原因说明

例如,您–以及其他几个人–想要知道如何在一个按钮的onClick参数中指定多个子例程

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