linzhi403-CSDN博客

原创 Excel_getPassWord亲测可用

Public Sub Password_cracking()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _" Author - jnxxhzz "Const HEADER As String = "Password_cracking"Const VERSION As String =

2020-05-30 08:49:05 326

转载将普通表变成交叉表

Sub zz() Dim d1 As New Dictionary, d2 As New Dictionary, d3 As New Dictionary, ar ar = Sheet1.Range("A1").CurrentRegion For i = 2 To UBound(ar) d1(ar(i, 2)) = ar(i, 3): d2(ar(i, 4)) = ar(i, 5) d3(ar(i, 4) & ar(i, 2)) = d3(ar

2020-05-24 22:17:57 342

转载 ASP 如何读写一个文本文件

利用Active Server Pages脚本，你就几乎完全可以控制服务器的文件系统。需要如下的组件：■FileSystemObject：这个对象包括了一些基本的对文件系统进行操作的方法，比如说，复制和删除文件夹或者文件■TextStream：这个对象用来读写文件■File：它的方法和属性被用来处理单独的文件。■Folder：它的方法和属性被用来处理文件夹。这部分介绍如何读写一个文本文件。...

2018-11-02 21:52:15 3162

转载 ASP操作文件

实例一：写入文件语法 object.CreateTextFile([要建立的文件],[如存在，是否替代]) <% Set fs =Server.CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(server.MapPath("ss.txt"), True) ’a = fs.Cr...

2018-11-02 21:43:48 224