输液室火灾应急预案脚本永恒之塔费

发布时间:2020-07-25来源:脚本之家点击:

当你在窗体上加入Timer控件时,它只出现在设计时,而不会在运行时出现可见的控件图标我没有在哪本书上看到过,参考手册上也没有任何说明

lol脚本挂下载
WMI 通过编程和脚本语言为日常管理提供了一条连续一致的途径
    2.右击该HierarchicalFlexGrid,然后从快捷菜单中选择“查看代码”


Option Explicit
'这个脚本只用来分割文本文件,脚本需要3个参数
'参数列表
'文件名 参数1 参数2
'梦想工作室
'示例 参数1 参数2 参数意义
' S 5 等分为5个文件
' E 1024 按照1024的大小分割文件
' F 1024 取最前面的1024字节存为一个文件
' L 1024 取最后面的1024字节存为一个文件

Dim tf,sf,fname,souFile,desFolder ,sOption , sNum , FSO , fs, sfs

If WScript.Arguments.Count < 3 Then
WScript.Echo "参数有误!"
WScript.Quit
Else
souFile=WScript.Arguments(0)
sOption=WScript.Arguments(1)
sNum=WScript.Arguments(2)
End If

Set FSO=CreateObject("Scripting.FileSystemObject")
Set tf=FSO.GetFile(souFile)
fs=tf.Size
Set tf=fso.OpenTextFile(souFile, 1)

Dim x
Select Case sOption
Case "S"
sfs=Int ( fs / sNum )
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "E"
sfs=sNum
sNum=Int ( fs / sfs) + 1
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "F"
SaveSubFile "file_" & 0 &".txt", 0 , sNum
Case "L"
SaveSubFile "file_" & 0 &".txt", fs - sNum , sNum
End Select

tf.Close

Sub SaveSubFile(s,b,l)
Dim sfile,content
WScript.Echo s & ":" & b &":" & l
Set sfile=fso.CreateTextFile(s, TRUE)
If b>0 Then
tf.Skip(b)
End If
content=tf.Read(l)
sfile.Write(content)
sfile.Close
End Sub
对于由主机应用程序定义的窗体、报表、宏以及模块,可以建立KeepLocal属性并把它添加到表示该对象的Document对象的属性集合中


Zip "D:\test.iso", "D:\test.zip"
Zip "D:\test", "D:\test.zip"
Msgbox "OK"

Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) <> "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType="Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType="File"
FileName=fso.GetFileName(mySourceDir)
FolderPath=Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f=fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
f.Close
Set objShell=CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource=objShell.NameSpace(mySourceDir)
Set objFolderItem=objSource.Items()
Case "File"
Set objSource=objShell.NameSpace(FolderPath)
Set objFolderItem=objSource.ParseName(FileName)
End Select
Set objTarget=objShell.NameSpace(myZipFile)
intOptions=256
objTarget.CopyHere objFolderItem, intOptions
Do
WScript.Sleep 1000
Loop Until objTarget.Items.Count > 0
End Sub

具体的制作方法是:把预先选好的背景图案装入封面窗体中,窗体命名为CAI

果然成功定制哪个平台好假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读

表单画面

'表单部分
'-------------------------------------------------------------
Form.Name="Form1"
Caption="Form1"
CommandButton.Name=Command2
Caption="停止测试"
CommandButton.Name=Command1
Caption="开始测试"
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1'True
Label.Name=Label1
AutoSize=-1'True
Caption="欲送出的资料-按下[Enter]送出"
Label.Name=Label3
BorderStyle=1'单线固定
Label.Name=Label2
AutoSize=-1'True
Caption="折返显示"

'程式部分
'-------------------------------------------------------------
OptionExplicit
'设一个此表单的区域变数,来作终止读取通讯埠的指标
DimbStopAsBoolean
'设一个区域变数,来作读取通讯埠的暂存区
DimInStringAsString

PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
'设定通讯埠号,可依照您的需求更改
.CommPort=2
'设定传输速率等,可依照您的需求更改
.Settings="14400,N,8,1"
'将通讯埠打开
.PortOpen=True
EndWith
'假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
'通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
'如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=""
'暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub

PrivateSubCommand2_Click()
'按下「停止测试」钮时,把bStop设为「真」(True)
'如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
'把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=""
KeyAscii=0
EndIf
EndSub->

FunctionfSortArray(aSortThisArray)
DimoArrayList,iElement
SetoArrayList=CreateObject("System.Collections.ArrayList")
ForiElement=0ToUBound(aSortThisArray)
oArrayList.AddaSortThisArray(iElement)
Next
oArrayList.Sort
setfSortArray=oArrayList
EndFunction

myarray=Array(50,20,30)
MsgBoxmyarray(0)
MsgBoxfSortArray(myarray)(0)

'CreateObject("System.Collections.ArrayList")调用了mscoree.dll,是.NETFramework相关组件。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
myyshop是什么平台?如何加入myyshop?MyyShop批量采集刊登软件东方海洋股票 有哪些股票到年底有可能翻三倍?中国卫星股票 中国卫星历史最高股价亚太天能 朋友说亚太天能这牌子不错,还有用过的吗?lof基金是什么意思 LOF基金是什么意思啊股票投资网 如何找一个股票投资平台?21亿老鼠仓案:跟踪私募明星账户为何属于“利用未公开信息”?公司治理 什么叫公司治理结构?包括什么?000035 电脑棒 安装Windows 10 64bit报错0xc000035a,但是安装32 bit就一切正002777 这只股票什么时间才能上市? 002777会计准则 常用的会计准则有哪些b股指数 股票中的B股是什么