sub

题目一 用窗口选择/打开文件 Sub get 方法 ( ) Dim fname fname = Application.GetOpenFilename ( ) '获取选择的文件名 If fname <> False Then '判断是否有选中，如果点了取消，则退出程序 '否则运行文件 MsgBox fname '返回字符串 Workbooks. Open fname '这个过程才是打开 End If End Sub 有不少可选参数可以设置 Sub get 方法 ( ) Dim fname fname = Application.GetOpenFilename ( _ filefilter : = "EXCEL文件 , * .xlsx ; * .xlsm , 全部 , * " , _ FilterIndex : = 1 , _ Title : = "请选择一个文件" , _ MultiSelect : = True ) '过滤器选择EXCEL文件或者全部文件 '默认选择的是第一个，EXCEL文件 '对话框的标题是"请选择一个文件" '支持多选 If IsArray ( fname ) Then '判断是否有选中，选中一个也是数组 For Each s In fname MsgBox s Workbooks. Open s '这个过程才是打开 Next s End If End Sub

决策树分类回归，ID3，c4.5，CART，及其Python代码 决策树模型 内部节点表示一个特征或者属性，叶子结点表示一个类。决策树工作时，从根节点开始，对实例的每个特征进行测试，根据测试结果，将实例分配到其子节点中，这时的每一个子节点对应着特征的一个取值，如此递归的对实例进行测试并分配，直到达到叶节点，最后将实例分配到叶节点所对应的类中。 决策树具有一个重要的性质：互斥并且完备。每一个实例都被一条路径或一条规则所覆盖，而且只被一条路径或一条规则所覆盖，这里所谓覆盖是指实例的特征与路径上的特征一致或实例满足规则的条件。 决策树与条件概率分布 决策树将特种空间划分为互不相交的单元或区域，在每个单元上定义了一个类的概率分布，则构成了条件概率分布。分类时，将该节点的实例强行分到条件概率大的那一类中。 决策树学习就是由训练数据集估计条件概率模型的过程。一个数据集可能对应不想矛盾的多个决策树，通常选择使损失函数最小的决策树。通常现实中决策树学习算法采用启发式方法，近似求解这一优化问题，这样得到的决策树是次优的。 学习算法通常是递归的选择最优特征。首先开始构建根节点，然后将所有训练数据放到根节点中，选择一个最优特征，按照这一特征对数据集分割成子集，使得各个子集有一个在当前条件下最好的分类，如果这个子集已经能够被基本正确分类，则构建叶节点，如果还有子集不能正确分类，则对这些子集选择新的最优特征

主讲老师：郭盛华 Timer控件是一种通过引发Timer事件，可以有规律地隔一段时间执行一次代码的控件。 Dim N As Integer ‘定义N变量为数字 Private Sub Form_Load() N = 10’默认N等于 10 Timer1.Interval = 1000 '设置频率时间1秒 Timer1.Enabled = True '开启 End Sub Private Sub Timer1_Timer() N = N - 1 If N > 0 Then Label1.Caption = "倒计时为："& N Else Label1.Caption = "时间到" Timer1.Enabled = False End If End Sub 具体请看视频教程： 微博@郭盛华老师 来源： CSDN 作者： 郭盛华 链接： https://blog.csdn.net/qq_42257049/article/details/103669703

我们有时候希望对图像的某个小部分进行操作，而不是对整个图像进行运算。有两种方法，ROI和widthStep。 1. ROI 设置一个ROI区域使用cvSetImageROI，取消一个ROI使用cvResetImageROI。函数原型分别如下： void cvSetImageROI( IplImage* image, CvRect rect ); void cvResetImageROI( IplImage* image ); rect就是我们要操作的图像的某个区域。实例如下： #include <cv.h> #include <highgui.h> int main(int argc, char* argv[]) { IplImage* src; CvRect rect = cvRect(70, 70, 50, 50); if (argc == 2 && ((src = cvLoadImage(argv[1], 1)) != NULL)) { cvSetImageROI(src, rect); cvAddS(src, cvScalar(50), src); cvResetImageROI(src); cvNamedWindow("roi_add", CV_WINDOW_AUTOSIZE); cvShowImage("roi_add", src); cvWaitKey();

实例2.1 通过控制台实现对Excel的自动化处理 书本第32页 注： 添加两个引用： 第一个：程序集—框架—“System.Windows.Forms 4.0.0.0” 第二个：程序集—扩展—“Microsoft.Office.Interop.Excel 14.0.0.0” 程序清单2.1通过控制台程序对Excel自动化处理 Imports Excel = Microsoft.Office.Interop.Excel Module Module1 Private exitXL As Boolean = False Dim WithEvents myExcelApp As Excel.Application Sub Main() myExcelApp = New Excel.Application myExcelApp.Visible = True myExcelApp.StatusBar = "Hello World" myExcelApp.Workbooks.Add() While exitXL = False System.Windows.Forms.Application.DoEvents() End While End Sub Private Sub myExcelApp_SheetBeforeDoubleClick(ByVal sheet _ As Object,

JS自带函数 concat 将两个或多个字符的文本组合起来，返回一个新的字符串。 var a = "hello"; var b = ",world"; var c = a.concat(b); alert(c); //c = "hello,world" indexOf 返回字符串中一个子串第一处出现的索引（从左到右搜索）。如果没有匹配项，返回 -1 。 var index1 = a.indexOf("l"); //index1 = 2 var index2 = a.indexOf("l",3); //index2 = 3 charAt 返回指定位置的字符。 var get_char = a.charAt(0); //get_char = "h" lastIndexOf 返回字符串中一个子串最后一处出现的索引（从右到左搜索），如果没有匹配项，返回 -1 。 var index1 = lastIndexOf('l'); //index1 = 3 var index2 = lastIndexOf('l',2) //index2 = 2 match 检查一个字符串匹配一个正则表达式内容，如果么有匹配返回 null。 var re = new RegExp(/^\w+$/); var is_alpha1 = a.match(re); //is_alpha1 = "hello" var is

BAT能力虽然比较强大，但如果配合上VBS就更完美了，最近有个设想，如何将一个脚本拓展为VBS能够被执行，而拓展为BAT则同样被成功执行呢？在P处理之家找到了几个示例，放出来大家参考下。 批处理与其它语言、脚本混合编程 批处理与VBS混合编程1 http://www.cn-dos.net/forum/viewthread.php?tid=25333 这个想法我思考了很久。 巧妙利用 bat 和 vbs 的语法特征，让同一个文件，被 cmd.exe 识别成批处理，让 wscrpt.exe 识别成 vbs，并且同时符合两者的语法，并且保证都没有错误，保证两者的高度兼容。经过一个通宵的努力，我实现了这种 bat/vbs 复合编程。 一个 批处理 .vbs 文件，在前面加一段代码（头），就变成了 .bat 批处理，注意，没有生成临时文件，不用修改任何原有代码。 例子：保存下列代码为 test.bat，注意是批处理，但是这个批处理却成功的被 wsh 解析执行了！ 复制内容到剪贴板代码: :On Error Resume Next Sub bat echo off & cls echo Batching_codez_here_following_vbs_rules & pause start wscript -e:vbs "%~f0" Exit Sub End Sub MsgBox "This

1.主项目和子项目之间的关系 子模块 submodule 子树 subtree 2.创建sub版本库 mkdir -p sub/src echo 'sub' > sub/src/sub.txt cd sub git init git add --all git commit -m 'init sub' git branch v1.0 3.创建嵌入子模块的主版本库 mkdir -p submodule/main/src echo 'main submodule' > submodule/main/src/main.txt cd submodule/main git init 4.链接目录 git submodule add /d/git/projects/sub/ sub 5.注册子模块 git submodule init 6.主版本库提交子模块 cd sub git checkout v1.0 cd .. git add --all git commit -m "Submodule added" 7.查看主版本库提交的对象树 （commit类型的sub目录） git cat-file -p 8c7ca65 git cat-file -p 54e6c2ba774f4e9694bae39295e784a9b4c949b6 8.克隆一个带子模块的项目 mkdir -p

Rect roi; roi.x = 100; roi.y = 100; roi.width = 250; roi.height = 200; // 截取 ROI 区域 // 这种方式改变 sub，原图也会改变 Mat sub = src(roi); // 如果想要不影响原图，可以使用 clone，或者copyTo Mat sub2 = src(roi).clone(); rectangle(src, roi, Scalar(0, 255, 255), 1, 8); imshow("roi", sub); imshow("src roi", src); 来源： https://www.cnblogs.com/wbyixx/p/12244352.html

Sub auto_open() Call runtimer '打开文档时自动运行 End Sub Sub runtimer() Application.OnTime Now + TimeValue("00:00:05"), "saveit" ' Now + TimeValue("00:00:55") 指定在当前时间过05秒钟后调用Saveit 这个过程。 End Sub Sub SaveIt() Application.DisplayAlerts = False ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName Application.Quit 'ThisWorkbook.Close False End Sub 一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3