种子视频脚本油猴编 GM_

发布时间:2021-06-09 来源:脚本之家 点击:

->OptionExplicit
PrivateSubCommand1_Click()
DimIAsLong,JAsLong,KAsLong
DimPrintStringAsString
ForI=0ToData1.Recordset.RecordCount-1
IfK=DBGrid1.VisibleRowsThen
DBGrid1.Scroll0,DBGrid1.VisibleRows
K=0
EndIf
ForJ=0ToDBGrid1.Columns.Count-1
PrintString=PrintString&
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
Next
Printer.PrintPrintString
PrintString=""
K=K 1
DoEvents
Next
EndSub

PrivateSubForm_Activate()
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
EndSub->
->

shell脚本读取文件每一行

示例:

但是,使用Replace函数,可以巧妙地解决这个问题


wdFormatXPS 18 XPS 格式在编写的过程中当然遇到了许多的问题,这里将一些简单的小程序写下来与喜爱编程的朋友们分享

'OnErrorResumeNext
DimiRemote,iLocal
iRemote=InputBox("请输入远程文件路径:")
SetxPost=CreateObject("Microsoft.XMLHTTP")
xPost.Open"GET",iRemote,0
xPost.Send()
Setstream=CreateObject("ADODB.Stream")
stream.Mode=3
stream.Type=1
stream.Open()
stream.Write(xPost.responseBody)
if(stream.size<10240)then
MsgBox("远程文件不存在
  (2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1


read

  二、对驱动器的操作

  对驱动器的操作主要通过Drive对象并配合FileSystemObject对象,FSO不支持进行创建或删除驱动器的操作,而只允许收集关于系统所用驱动器的信息Ture 覆盖, False 跳过
'*
'* Output: 返回复制的文件个数
'*
'********************************************************************
Function XCopy(fso, source, destination, overwrite)
Dim s, d, f, l, CopyCount
Set s=fso.GetFolder(source)

If Not fso.FolderExists(destination) Then
fso.CreateFolder destination
End If
Set d=fso.GetFolder(destination)

CopyCount=0
For Each f In s.Files
l=d.Path & "" & f.Name
If Not fso.FileExists(l) Or overwrite Then
If fso.FileExists(l) Then
fso.DeleteFile l, True
End If
f.Copy l, True
CopyCount=CopyCount + 1
End If
Next

For Each f In s.SubFolders
CopyCount=CopyCount + XCopy(fso, f.Path, d.Path & "" & f.Name, overwrite)
Next

XCopy=CopyCount
End Function

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