LBound 函数
LBound函数返回指定数组中最小的下标。因此，阵列的LBound为零。
语法:
LBound(ArrayName[,dimension])
ArrayName, 必需的参数。该参数对应于所述数组的名称。
dimenstion, 一个可选的参数。这需要对应于所述阵列的维数的整数值。如果它是“1”，则它返回下界第一个的位置; 如果是“2”，则它返回下界第二位置等等。
例子 :
添加一个按钮，并添加以下功能
Private Sub Constant_demo_Click()
Dim arr(5) as Variant
arr(0) = "1" ...
假设startapp创建的app为app1
在app1中创建一个helpers模块，加入如下代码：
from django.db import models
from django.db.models.signals import pre_delete
from django.dispatch import receiver
def bind_delete_signal(model):
@receiver(pre_delete, sender=model)
def pre_model_delete(sender, **kwargs):...
第一部分 发现错、漏、多
批改就是把“打字文本”和“样张文本”进行比对。
批改的最起码的要求，就是在2个文本中，每个字都须定性为“正确”或“不正确”（样张中的“不正确”，意思是指“没有被正确地打出来，”，就是“被漏打”和“被打错”）。（例3中的绿色“带儿子”），（例4中的红色“莫斯科去”）；在录入中，不正确的字也可以分为2类：，一类叫做“多打”（例2中的蓝色“的”），另一类叫做“打错”（例4中的红色“墨西哥”）
“正确”的3个原则是：1.两个文本中的正确字一一对应。 2.不能颠倒顺序。3.选“给分最多”的方案。
例1：样张是“他叫英白罗”，打字是“他...
Option Explicit
Dim JScript, CString '定义线程级变量 '每个线程不同
Dim Window, File
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.4"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "...
#1.SQL入门
全称：Structure Query Language：结构化请求语言
作用：命令和数据的载体，由客户端发出，交给数据库软件进行执行
分类：
#2.DDL
1）库操作
#1.创建数据库
CREATE DATABASE company;
#2.选中操作的数据库
USE company;
#3.删除数据库
DROP DATABASE company;
2）表操作
建表：
#1.创建数据库表
#最基本的建表:
CR...
#1.数据库入门
数据库的定义：数据库也是一种软件
作用：
1.存储数据：以文件的形式将数据存储在磁盘上
2.运算数据：由SQL语句进行控制，实现的数据的增删改查操作
品种：
1.关系型数据库：MySQL、Oracle、SQL Server、DB2
2.非关系型数据库：Redis、MongoDB
关系型数据库：
以数据库表为基础数据存储单元，并且数据库表与表之间存在关联关系
#2.数据库设计原理
1.数据库设计三范式：
第一范式：字段不可再拆分范式
但凡存储进入数据库中的字段，必须使用数据库提供的基本数据类型，不允许存在复合数据类型
...
用dos的taskkill经常会杀进程失败，并且bat脚本的快捷方式固定到开始屏幕以后右键没有“以管理员权限运行”的选项。故而使用vb.net写了个小exe程序，程序代码如下：
Imports System
Module Program
Sub Main(args As String())
KillProcess("vmware-hostd")
KillProcess("vmware-authd")
KillProcess("vmnetdhcp")
KillProcess("vmware-...
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
.Visible = .T.
* 指定区域的单元格分行合并
.WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.)
.ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并"
* 指定区域的单元格合并为一个单元格
.WorkSheets(1).Cells(5, 1).Resize(3, 4).Mer...
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
.Visible = .T.
.ActiveCell.EntireRow.Cells(5, 1).Value = 5
.Worksheets(1).Columns(6).Hidden = .T.
.Worksheets(1).Rows(6).Hidden = .T.
ENDWITH
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
* 添加测试数据
.ActiveSheet.Cells(2, 2).Value = "abcd"
.ActiveSheet.Cells(4, 4).Value = "abcd"
.ActiveSheet.Cells(6, 6).Value = "abcd"
.ActiveSheet.Cells(100, 10).Value = "ABCD"
*删除空白行
lnRow = .ActiveSheet.U...
1、使用git pull命令更新gitlab时，发生如下报错，原因是：你本地代码有修改，所以
它让你提交这些修改或者删除这些修改。
解决办法：由于昨天我已经提交了代码，所以我选择删除本地修改。
2、首先可以使用ls命令，看看当前目录下有什么文件
3、其次使用 rm -rf *命令，删除当前文件夹下所有文件；
可以使用ll命令，查看当前文件夹下的所有文件，是否全部被删除干净。
可以看到total 0，说明当前文件夹下的文件都被删除干净了。（包...
作者：Tiger5392
转载：https://bbs.bccn.net/thread-210804-1-1.html
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHardware=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
FOR EACH object1 IN oHardware
lcHDID=object1.Properties_('Serial...
<?php
$email = 'test@126.c.om';
function testEmail($email)
{
//格式验证
if (!filter_var($email, FILTER_VALIDATE_EMAIL)) {
return '邮箱格式有误!';
}
//dns验证
$mail = explode('@', $email);
$email = $mail[1];
if (!checkdnsrr($email,'ANY')) {
return '无效邮箱！请核对邮箱地址'...
来源：https://bbs.csdn.net/topics/340141130
作者：十豆三
* VFP8.0 Or VFP9.0
m.llExit=.T.
Try
m.Excel=Createobject("Excel.Application")
m.Excel=Null
Catch
m.llExit=.F.
Endtry
If m.llExit=.F.
Messagebox("没有安装 Excel！",48,"信息提示")
Return
Endif
在查看证书的页面点“R3”标签，然后向下拉点击如图的链接，即可下载证书
此证书文件就可以作为nginx中ssl_trusted_certificate的证书
踩坑 PHP验签JWT RS256
使用openssl_verify验签时总是报错
error:04091077:rsa routines:int_rsa_verify:wrong sart line
或者
error:04091077:rsa routines:int_rsa_verify:wrong signature length
对比一圈类库，发现需要满足如下几个条件：
1. 公钥必须按64位换行
$pubkey = file_get_contents("./pubk...
当前，新一轮科技革命和产业变革正在重构全球创新版图、重塑全球经济结构，中国的产业企业正走向数字化、智能化的新时代，而商业创新是新时代中企业的关键竞争力所在。随着企业数智化进程的不断加速，单一企业、单一产品逐渐难以满足客户更高层次的需求，生态创新已经成为当今企业商业创新的重要模式。
生态创新是指由大量多类型的服务提供商汇聚于平台，共同服务企业客户的商业创新。用友网络董事长兼CEO王文京，在2021用友生态大会发表演讲，指出数智商业时代，所有企业都是生态化的企业，平台化、生态化是新的生产和社会运行方式。
...
来自非官方发行包：
http://libsass.ocbnet.ch/installer/
来源：https://bbs.csdn.net/topics/390991766
作者：回马枪
Clear
? UrlEncode(' test,这是一个测试', .F.) && .F. --> "+", .F. --> "%20"
Function UrlEncode(tcString, tlNoPlus)
Local lcReturn, lcChar, lnCounter
m.lcReturn=""
For m.lnCounter = 1 To Len(m.tcString)
m.lcChar ...
来源：https://bbs.csdn.net/topics/391962702
作者：都市夜猫
Local cCurDir, cNewDir, cDbf, cXls, ii
Local array aDbfs[1]
m.cCurDir = Sys(5) + Curdir()
m.cNewDir = GetDir('', '选择要被转换的 Excel 文件所在的文件夹。', '选择文件夹', 1+64)
If Empty(m.cNewDir)
*--
Else
Clear
ChDir (m.cNewDir)
...