平淡如茶

原创 PHP数据库增删改查（极简版）

 近期做了一个小程序《文本整理器》，还有在线文本整理器wbzlq.com，欢迎使用。<?php// 修改代码后，执行会有延迟，需等1分钟左右，至于原因，我也不清楚$servername = "servername";$username = "username";$password = "password";$dbname = "dbname";$con = mysql...

原创 python递归函数最通俗易懂的过程解释

结果=2*(2*(2*(1)))

原创 tkinter布局，主窗体自适应控件大小，上面两个文本框，下面5×5个按钮 by chatgpt

我们将文本框放置在第一行，将按钮放置在第二行和之后的行中，使用`row`和`column`参数指定行和列的位置，并使用`padx`和`pady`参数指定控件之间的间距。然后，我们使用`columnconfigure()`和`rowconfigure()`方法设置主窗口自适应控件大小。为了实现你的需求，我们可以使用`grid()`方法将按钮和文本框放置在主窗口中，并使用`columnconfigure()`和`rowconfigure()`方法使主窗口自适应控件大小。# 将文本框放置到主窗口中。

原创 python函数可以通过列表索引放到button事件 by chatgpt

请注意，在这个例子中，我们使用了`lambda`表达式来创建一个匿名函数，以便将`call_function`函数和按钮索引绑定到按钮事件上。由于`lambda`表达式是一个可调用对象，因此它可以作为`Button`对象的`command`参数传递，从而将事件处理函数与按钮关联起来。在按钮事件处理函数中，你可以使用`event.widget`属性获取触发事件的按钮，然后使用`grid_info()`方法获取按钮的行和列索引，最后使用索引从列表中获取函数并调用它。# 定义函数调用函数。

原创 VBA陷阱

为什么UBound(VBA.Filter(Array(2,10,18,27), 6))=-1UBound(VBA.Filter(Array(2,10,18,26), 6))=0，有人知道吗？

转载 VB&VBA/VBScript读取和保存UTF-8文件方案

=============================== VB&VBA Code===============================Public Function SaveFile(FileName As Variant, strFileBody As Variant) As Boolean Dim ADO_Stream As Object...

转载 vlookup从右往左查找

从右往左查找，怎么做。这时可以利用if（{1,0}，）来实现，调换工号列和姓名列的位置。输入公式=VLOOKUP(A9,IF({1,0},B2:B5,A2:A5),2,0)https://jingyan.baidu.com/article/e6c8503c051dcbe54f1a1800.html...

转载 LINK : fatal error LNK1123: 转换到 COFF 期间失败: 文件无效或损坏

LINK : fatal error LNK1123: 转换到 COFF 期间失败: 文件无效或损坏转自https://www.cnblogs.com/soulgon/p/3726801.html突然之间，我的VS2010在编译的时候出现了如上的错误，赶紧度之。有以下解决方法：在电脑里面搜索发现C:\Program Files\Microsoft Visual Studio...

原创 php数据库内容在漂亮表格呈现

  先上图：<?php    $servername = 服务器地址;    $username = 用户名;    $password = 数据库密码;    $dbname = 数据库名称;    $con = mysql_connect($servername,$username,$password ,$dbname ) or die('error:'.mysq...

原创 php获取当前日期与时间24小时制式

echo date('Y-m-d H:i:s',time());

原创 匹配数值（正负整数/正负浮点数）正则表达式

 强大之处：1、仅正负整数/正负浮点数2、不匹配IP（10.152.69.52），日期（2018.12.25）(?!<\.)(+?(\d+|\.\d+|\d+\.\d+)|-?(\d+|\d+\.\d+))(?!\.)

转载 【VBA】判断文件或文件夹是否存在

 一、判断文件或文件夹是否存在Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True Early...

原创 【VBA】【增强版】【收藏备用】遍历文件夹内所有文件模块V5

 N次修改了，此模块应该比较健壮吧，特点：1、可遍历目录下所有文件2、可筛选文件类型，可限定文件名关键词3、遍历目录（文件夹）允许存在小数点.4、一步到位，不用编写2次循环（即先遍历出目录，再遍历文件）Sub searchFile()' ---------------遍历文件夹内所有文件----------------------------- FileTy...

转载 Octave/Matlab Tutorial（吴恩达机器学习第6课）

http://www.cnblogs.com/leezx/p/5635056.htmlBasic Operations你现在已经掌握不少机器学习知识了 在这段视频中 我将教你一种编程语言 Octave语言 你能够用它来非常迅速地 实现这门课中我们已经学过 或者将要学的 机器学习算法过去我一直尝试用不同的编程语言 来教授机器学习 包括C++、Java、 Python、Numpy 和 Oc...

转载 FormulaR1C1是EXCEL中单元格公式输入方法（补充解说）

 部分内容引用于https://blog.youkuaiyun.com/sptoor/article/details/52790892Range("C2:C58").FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R2C1:R11C2,2,0)"'FormulaR1C1是公式输入方法?'相对引用：有中括号是相对于选定单元格的相对偏移量，"-"为向左或向上偏移，正数为右或下...

转载 【VBS】vbs鼠标方法——模拟鼠标按键

 引用于https://www.cnblogs.com/jinjiangongzuoshi/p/3821375.htmlSet mouse=New SetMouse'mouse.getpos x,y ''获得鼠标当前位置坐标'MsgBox x & "," & ymouse.move 148,154 '把鼠标移动到坐标WScript.Sleep 200mou...

原创 【VBA】单元格格式化汇总

with Range("A1:B10") .HorizontalAlignment = xlLeft '左对齐 .HorizontalAlignment = xlCenter ' 居中 .HorizontalAlignment = xlRight '右对齐 .Font.Bold = True '粗体 .Font.Italic = True '斜...

转载 ReDim Preserve只能改变数组最末维大小​​​​​​​

eDim Preserve file_info(1 To i, 1 To 2) As String        file_info(i, 1) = Filename        file_info(i, 2) = Folderpath红色地方改成      ReDim Preserve file_info(1 To 2, 1 To i) As String        file_info(...

原创 【小技巧】发现一个小秘密，把文件拖到cmd窗口，文件路径出现了，而且可以运行

原创 【VBA】批量解压文件

Call UnRarFile("D:\压缩文件\") Sub UnRarFile(myPath) '解压缩程序 Dim Rarexe As String Dim RAR As String Dim Myadd As String Dim FileString As String D...

原创 【VBA】csv转xlsx

Sub csv2xlsx()        Application.ScreenUpdating = False        Dim FilePath, MyFile, iPath As String    iPath = ThisWorkbook.Path    MyFile = Dir(iPath & "\*.CSV")        On Error Resume...

原创 【reg】在此处打开命令窗口

Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\Directory\Background\shell\cmd]@="@shell32.dll,-8506""NoWorkingDirectory"=""[HKEY_CLASSES_ROOT\Directory\Background\shell\cmd\command]@="cm...

原创 【cmd】合并当前目录下所有文本

 直接合并@echo offfor /f "delims=" %%i in ('dir /b *.txt') do (type "%%i"&echo.)>>合并结果.txt 带文件名一起合并 @echo offfor /f "delims=" %%i in ('dir /b *.txt') do (echo %%i&echo.&type "%%.

原创 【VBA】选中单元格，自动弹出序列

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)     '用SendKeys语句发送快捷键【ALT+方向键向下】，调取单元格的下拉列表    If Target.Address = "$H$2" Then Application.SendKeys "%{down}"        End Sub ...

原创 【VBS】整点报时，代码超级简单哦

dim str1set objTTS  = createobject("sapi.spvoice")while true    if Minute(Time)=0 then        str1 = "现在时间是" & Time        objTTS.speak str1    end ifwend

原创 【VBA】一行代码删除所有空行

    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete本人的小程序《文本整理器》，还有在线文本整理器wbzlq.com，欢迎使用。 

原创 【VBA】按条件生成txt文件，复杂问题简单化（标准化）

 总表数据 各种情况    预处理对各种条件的数据分配成独立的数组，然后输出到标准模块 Private Sub crIptxt_Click() Dim err, frr, eUb%, lRow% Dim qsbbn%, qsdun%, sgbbn%, sgdun% Dim parts_du, parts_bb, parts_...

原创 【VBA】工作表删除所有图片、形状

        Dim shp As Object        For Each shp In ActiveSheet.Shapes            shp.Delete        Next shp 

原创 【VBA】获取多文本文件总条数及去重后数量

 以下文本为存放IP文件，每行一条，代码可检查IP总数及是否有重复。“合并后总数”是否等于“去重后总数” Sub CheckIPNum()On Error Resume NextDim arrDim j As Integer, all_num As Integerall_num = 0Set dic = CreateObject("scripting.dictionary")...

转载 excel表格里数字和文字混合一起如何把数字提取

=MIDB(H15,SEARCHB("?",H15),2*LEN(H15)-LENB(H15))转自https://jingyan.baidu.com/article/39810a23a12adfb636fda600.html

原创 【VBA】【一天的心血，收藏一下】一键生成报表2

Public batch$Sub crAddReport() '获取窗体单选框选择 UserForm1.Show If UserForm1.OptionButton1.Value = True Then batch = "一" ElseIf UserForm1.OptionButton2.Value = True Then bat...

原创 【VBA】【一天的心血，收藏一下】一键生成报表

Sub crDelReport() t1 = Timer Application.ScreenUpdating = False Call importLog Call findBrokenStation Call nowCrReport Call crFile Application.ScreenUpda...

原创 ModuleNotFoundError: No module named 'cv2'

Traceback (most recent call last):  File "<pyshell#0>", line 1, in <module>    import cv2ModuleNotFoundError: No module named 'cv2'python2目前没问题，可以直接pip install opencv-python安装即可。注意pyt...

原创 git管理github提示Permission denied (publickey) git clone出错

需要到github账号中设置ssh公钥信息。在 GitHub 网站中的"account settings"："Setting -> SSH Keys"->"New SSH key" Title填写“id_rsa.pub”或其他信息在本地：$  cat ~/.ssh/id_rsa.pub，如果没有内容，即运行ssh-keygen生成公钥，一直回车，直到生成id_rsa....

原创 油猴-189邮箱邮件提醒

// ==UserScript==// @name         mailRemind// @namespace    http://tampermonkey.net/// @version      0.1// @description  try to take over the world!// @author       axing// @match        https...

原创 秒杀月饼（退出计时，点击确认后不会重复提醒）

   var button = document.getElementById("btn");    //每秒执行一次，若按钮状态为可用，进行点击    var cs=setInterval("clk()",1000);    function clk(){            if (button.disabled == false) {            button.cl...

原创 requests笔记4---网络图片爬取及储存

【Python网络爬虫与信息提取】.MOOC. 北京理工大学import requestsimport osurl = 'jpg_url'root = r'D:/pic/'path = root + url.split('/')[-1]try:    if not os.path.exists(root):        os.mkdir(root)    if not os...

原创 requests笔记3---百度360搜索关键词提交

import requestskeyword = 'Python'url = 'http://www.so.com/s'try:    kv = {'q':keyword}    r = requests.get(url,parama=kv)    r.raise_for_status()    print(len(r.text))except:    print('爬取失败')...

原创 requests笔记2---添加头部信息

import requestsurl = 'https://www.amazon.cn.gp/product/B01M8L5Z3Y'try:    kv = {'user-agent':'Mozilla/5.0'}    r = requests.get(url,headers=kv)    r.raise_for_status()    print(r.text[:1000])ex...

原创 requests笔记1之页面的爬取

内容来自于视频【Python网络爬虫与信息提取】.MOOC. 北京理工大学，实例京东商品页面的爬取import requestsurl = ''try:    r = requests.get(url)    r.raise_for_status()    print(r.text[:1000])except:    print('爬取失败')...