linzhi403的博客

原创 modbus poll成功回码

原创 toggle-myStopSidebarAutoHide,obsidian功能区自动隐藏禁用开关按钮

然后用commander增加一个按钮在功能区,点一次就执行一次,达到开关CSS的功能;(注意实现上CSS是不关的,使用代码关了需要人手点击才能打开),所以相当于用写空值代替停用。这个文件被执行后将向已开始的这个css文件写入kill-auto-hide 自动隐藏功能区;再执行一次则会写入空文件,从而恢复自动隐藏功能;这个代码,用于Obsidian下,Templater下 在Template hotkeys下加入一个不带快捷键的代码md文件;

原创 minitab横表转纵表,二维表转一维表

原创 10分钟不到写一个最简单的py计算器窗体+逻辑

刚才这段代码来至T1.py,它是一个简易计算器的界面， 现在我希望写一个T2.py ,形成后台的计算逻辑，TEXT1是操作数1，text2是计算符号，text3是操作数2，当点击按钮后，text4得到计算结果；至此一个最简单的计算器就制作出来了，然后就可以打包分发出去了。将其复制进pycharm，并且命名为t1.py；

原创 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 =

转载 将普通表变成交叉表

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

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

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

转载 ASP操作文件

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