pzxzhy-CSDN博客

原创【VB脚本备忘】【for WORD】政策与法条排版

很久以前，经常要对网上找的政策和法条排版后留存，排版很烦，曾经写了两段代码，省事不少，前期要用，找不到了。偶然翻到底稿，赶紧做个备份。【法条】***法条***Sub TypeSet() Application.ScreenUpdating = False '------------------------------------------ 处理字符 --------------...

2018-05-02 15:17:53 789

原创【VB脚本备忘】1-2-3-……-n 的排列组合

Function dgCombinate(n As Integer) Dim cFather: cFather = 2 ^ n - 1 Dim ArrFather: ReDim ArrFather(1 To cFather) If n = 1 Then ArrFather(n) = "," & n dgCombinate = ArrF...

2018-02-19 12:57:11 703

环境：VB，重点是整理思路。零、序0.在ExcelHome上遇到很多凑数的贴子，粗略看过香川的代码，用的递归，看不懂，一直觉得这个比较难。春节无事，尝试挑战。1.研习香川的贴子，花了很长时间，贴子里的解释不多，很费劲，主要是递归绕来绕去就绕晕了，最后发觉根本看不懂，放弃。2.咨询老同学，点名这东西属于“背包问题”的简化版。3.网上找了些背包的贴子，绝大多数都只有代码，关于解题思路说的太少，难以理解...

2018-02-18 22:24:30 4851 1

原创【VB学习笔记】正则表达式

几年前在VBA里用过正则，时间长了就忘，故记于此。一、引用（一）前期绑定引用<Microsoft VBScript Regular Express5.5>。此情况下，可以直接定义对象：Dim reg As New RegExp（二）后期绑定不需引用，通过CreateObject方法定义对象。Dim Reg As ObjectSet Reg =CreateObject("VBSCript...

2018-02-11 14:40:48 1334

原创【VB语法备忘】操作文件

1.返回文件路径 Dim MyPath$ MyPath = ThisWorkbook.Path类型：字符串值：文件所在文件夹的完整路径格式："C:\...\...\Folder"注意：字符串的结尾没有 "\"2.返回文件名称 Dim MyName$ MyName = Dir(MyPath & "\*.*")类型：字符串值：文件名称格式："ABC.XLS"注意1：...

2018-01-30 14:43:46 982

原创【VB脚本备忘】【for PPT】规范表格格式（含OFFICE内置编辑器BUG描述）

功能：设置初始变量，统一PPT内的表格风格样式。包括：设置段落、字体、颜色、边距、对齐、描边 ect。感受：VBA在PPT内的应用，逻辑上没什么难度，但是各种“对象”、“属性”、“方法”太多，语法又长又乱，感觉不规范。小知识：RGB(0,0,0)是一个LONG型数据，即设置颜色时不应将变量 as RGBColor。不足：原计划给表格里的文字“描边”，但是好像VBA存在BUG，无法赋

2018-01-12 15:31:13 1374

转载【python脚本收集】全角半角转换

1.全角转半角2.半角转全角

2016-01-25 21:36:46 515

原创【VB语法备忘】常用字符转换函数

1.字符串转数字用法：Str(int)注意事项：int为正数时，转换后的值包含一个半角空格（msgbox时肉眼看不到），测试：i = 1s = Str(i)msgbox s = "1" '--False--msgbox s = " 1" '--True--如需去掉该空格，应使用Trim(Str(int))。2.数字转字符串 - CInt / CLng

2016-01-25 21:16:16 1133

原创【python学习笔记】伪装浏览器爬取网页

1、起因想要从和讯网上爬取数据，写下代码如下：url = 'http://stockdata.stock.hexun.com/601398.shtml'resp = urllib2.urlopen(url)html = resp.read()print html运行后提示“urllib2.HTTPError: HTTP Error 403: Forbidden”。2、分析

2016-01-19 11:02:44 653

原创【python学习笔记】网页源代码乱码与解压

1、问题产生想抓取新浪网页数据，写下以下代码：import urllib2url = u'http://www.sina.com.cnreq = urllib2.urlopen(url)html = req.read()print html运行后，出现整屏乱码（截图略）2、问题分析第一反映是需要转码，那么需要明确网页编码后，用decode进行转码，获取网页编码的

2016-01-16 20:26:23 505

原创【python学习笔记】浅探编码

外行人初学python，程序中涉及中文时非常头疼，由于同一程序中出现不同的编码，导致输出时显示乱码、正则匹配不上等种种问题，网上解释高深看不懂，故以笨方法测试编码的各种形态，力求不再受此困扰。

2016-01-13 23:49:27 313

原创【python学习笔记】用正则表达式从含中文的网页中提取数据（含编码转换）

目标：用正则表达式从含中文的网页中提取数据1、获得网页全部数据1.1思考过程确定我们要操作的网页：url = 'http://q.stock.sohu.com/cn/603077/cwzb.shtml'打开要操作的网页：req = urllib2.open(url)读取网页，并将网页数据放入变量：html = req.read()别忘了把网页关了：req.close()

2015-12-27 17:05:36 5637

pzxzhy的博客