07-Excel VBA 学习总结 - 数据验证与正则表达式

Excel VBA 学习总结- 数据验证与正则表达式

数据结构有云：程序=数据+操作。从中可以看出，数据才是程序的核心对象，每个程序所有的操作和意图都是围绕数据展开的。每个程序的结构基本都分为三个部分：输入，处理，输出。输入是接收用户的数据，处理过程是通过不同的算法处理接收的数据，输出是将处理的结果返回给用户。

一、输入与输出

大家还记得在VBA我们一般通过什么方式接受用户的简单输入呢？没错，最简单的方式就是Msgbox与InputBox。

Msgbox:最简单的用户输入框

Msgbox太简单了，以至于大家用的最多的就是其显示信息的功能，其实它是有返回值的。它的语法如下所示：

MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) As Integer

这里用户的输入就是他选择的按钮，也就是Integer值所代表的选项。这里用户的选择比较简单，所以不用验证。

InputBox：最简单的全能型用户输入框

VBA内置的InputBox方法

这个函数返回一个字符串，选择取消后返回空串(零个字节的字符串)。它不含有容错处理。例如你想要用户输入整数，结果用户输入了字符，这个时候InputBox并不会替你告诉用户错误的原因。

Application的InputBox函数

这个函数更强大，内置容错处理，选择取消后返回false。这个函数可以指定输入的类型，当用户输入的数据类型与参数中指定的类型不兼容的时候，这个函数会给出温馨的提示，告诉你输入的数据类型不对。

除了这两种最简单的输入方式外，还有其它一些重要的输入方式：

单元格输入：这种方式是最常见的，用户在单元格中输入数据，然后程序获取单元格中数据并处理。

用户窗口输入：这种方式最直观，比较适合处理结构化数据；利用窗口，我们可以提供专业的用户视觉体验和便利的用户输入体验。

文件输入：这种方式适合导入大量的数据或其它来源的数据。

说完了输入，再说说输出。VBA中输出也有相对应的几种方式：

Msgbox：最简单的输出信息方式。

单元格输出：可以显示大量的处理结果。

用户窗口输出：显示一些自定义的信息和格式，用户体验较佳。

文件输出：输出大量的信息和结果。

立即窗口输出：一般用于调试的时候显示信息(Debug.Print)。

上面我们简单总结了常见的输入与输出方式。用户输入的数据是我们工作的前提，那么这些数据是否符合我们的需求，我们就需要去验证。

二、简单数据验证

1.简单数据输入与类型验证

这个很好办，直接使用Application中的InputBox函数就可以达到这个目的。2.内置函数验证

如果只是简单验证数据的类型，或者某些简单的判断也可以靠VBA中内置的一些函数来验证。我在前面的内置函数中已经总结了，主要有两类的内置函数：

VBA内置的验证函数有：

IsNumeric(x) - 是否为数字, 返回Boolean结果。

IsDate(x) - 是否是日期, 返回Boolean结果。

IsEmpty（x） - 是否为Empty, 返回Boolean结果。

IsArray(x) - 指出变量是否为一个数组。

IsError(expression) - 指出表达式是否为一个错误值。

IsNull(expressio n) - 指出表达式是否不包含任何有效数据 (Null)。

IsObject(identifier) - 指出标识符是否表示对象变量。

WorksheetFunction内置的验证函数有：

IsErr - 检查是不是除了#N/A外的错误值.

IsError - 检查是不是错误值(#N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?,或者#NULL!).

IsEven - 检查是否是偶数.

IsOdd - 检查是否是奇数.

IsLogical - 检查是不是布尔值.

IsNA - 检查值是否是错误值#N/A（值不可用）。

IsNonText - 检查是否是非文本(空的单元格返回true)。

IsNumber - 检查是不是数字。

IsText - 一般用于判断单元格中内容是否是文本。

三、复杂数据验证

在前面的例子中，验证的内容都还是比较简单；实际的工作中，很多时候，我们可以通过大量的IF语句来达到验证数据内容的目的。除了这一类可进行枚举验证的情况，还有一类经常出现的情况是，需要验证和处理大量的文本内容，有时候需

要查找字符串，有时候要按条件替换，并且这些待处理的问题还是有一定的规律可循的，但是无法通过枚举的方式挨个验证，这个时候就需要正则表达式来帮忙。1.正则表达式(Regular Expression)基础

正则表达式是通用的文本搜索和处理方案，它的知识不是VBA独有的，基本上每种语言都内置了正则表达式的功能。正则表达式的基础知识不是这里的重点，需要的朋友可以Google一下，或者参看下面的一些入门教程：

https://www.360docs.net/doc/7611412111.html,/tutorials/regex/regex.htm

https://www.360docs.net/doc/7611412111.html,/zh/regref.htm

https://www.360docs.net/doc/7611412111.html,/archives/433.html

2.VBA中的正则表达式应用

在VBA中使用正则表达式，可以通过下列途径实现：

创建正则表达式对象：

前期绑定：在VBA代码编辑器中的"Tools"菜单中，选中"References..."，然后引用Microsoft VBScript Regular Expressions 5.5类库，然后直接定义对象：Dim reg As New RegExp。

后期绑定：使用CreateObject方法定义对象：CreateObject("VBSCRIPT.REG EXP")。

前一种方式的优点是可以有编辑器的Intellisense支持。

RegExp对象的属性：

Global - 设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。如果搜索应用于整个字符串，Global 属性的值应该为True，否则其值为 False。默认的设置为True。

Multiline - 返回正则表达式是否具有标志m, 缺省值为False。如果指定的搜索字符串分布在多行，这个属性是要设置为True的。

IgnoreCase - 设置或返回一个Boolean值，指明模式搜索是否区分大小写。如果搜索是区分大小写的，则IgnoreCase 属性应该为False；否则应该设为True。缺省值为True。

Pattern - 设置或返回被搜索的正则表达式模式。被搜索的正则字符串表达式。它包含各种正则表达式字符。

RegExp对象的方法：

Execute - 对指定的字符串执行正则表达式搜索。需要传入要在其上执行正则表达式的文本字符串。正则表达式搜索的设计模式是通过RegExp对象的Pattern

来设置的。Execute方法返回一个Matches集合，其中包含了在string中找到的每一个匹配的Match对象。如果未找到匹配，Execute将返回空的Matches集合。Replace - 替换在正则表达式查找中找到的文本。

Test - 对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示

是否找到匹配的模式。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式，Test方法返回True；否则返回False。

MatchCollection对象与Match对象

匹配到的所有对象放在MatchCollection集合中，这个集合对象只有两个只读属性：Count：匹配到的对象的数目

Item：集合的又一通用方法，需要传入Index值获取指定的元素。

一般，可以使用For Each语句枚举集合中的对象。集合中对象的类型是Matc h。Match对象有以下几个只读的属性：

FirstIndex - 匹配字符串在整个字符串中的位置，值从0开始。

Length - 匹配字符串的长度。

Value - 匹配的字符串。

SubMatches - 集合，匹配字符串中每个分组的值。作为集合类型，有Count

和Item两个属性。

正则表达式很强大，是处理文本的首选，不管你信不信，反正我是信了。说了很多，最后以一个小例子结尾吧：

Sub Test()

Dim reg As New RegExp

With reg

.Global = True

.IgnoreCase = True

.Pattern = "\d+"

End With

Dim mc As MatchCollection

Dim m As Match

Set mc = reg.Execute("123aaaaa987uiiui999")

For Each m In mc

MsgBox m.Value

End Sub

词法分析小结

词法分析小结词法分析是编译器工作的第一阶段，它的工作就是从输入（源代码）中取得token，以作为parser（语法分析）的输入，一般在词法分析阶段都会把一些无用的空白字符（whitespace，即空格、tab和换行）以及注释剔除，以降低下一步分析的复杂度，词法分析器一般会提供一个gettoken()这样的方法，parser可以在做语法分析时调用词法分析器的这个方法来得到下一个token，所以词法分析器并不是一次性遍历所有源代码，而是采取这种on-demand的方式：只在parser需要时才工作，并且每次只取一个token。 token和lexeme 首先，token不等于lexeme。token和lexeme的关系就类似于面向对象语言中“类”和“实例”（或“对象”）之间的关系，这个用中文不知该如何解释才好，比如语言中的变量a和b，它们都属于同一种token：identifier，而a的lexeme是”a”，b则是”b”，而每个关键字都是一种token。token可以附带有一个值属性，例如变量a，当调用词法分析器的gettoken()时，会返回一个identifier类型的token，这个token带有一个属性“a”，属性可以是多样的，例如表示数字的token

可以带有一个表示数字值的属性，它是整型的。如下代码： intage=23; intcount=50; 可以依次提取出8个token：int(值为”int”)，id(值为”age”)，assign(值为”=”)，number(值为整型数值23)，int(值为”int”)，id(值为”count”)，assign(值为”=”)，number(值为50) 正则表达式正则表达式可以用来描述字符串模式，例如我们可以用digit+来表示number的token，其中digit表示单个数字（这里说正则表达式并不完全和实现的正则引擎所识别的正则表达式等价，这里只是为了描述问题而已）。然而像c语言的的多行注释，用正则表达式来描述就比较麻烦，此时更倾向于直接用有穷自动机（finiteautomaton）来描述，因为用它来描述非常直观且很容易。

表单验证和正则表达式

正则表达式和表单验证主要内容 ?什么是表单的验证 ?表单的操作 ?表单的验证 ?正则表达式的定义 ?正则表达式验证 (一)什么是表单的验证表单的验证在JavaScript之前，所有的验证都是发生在服务器上，增加了反应时间使用JavaScript验证，则在数据提交到服务器端之前进行一系列的判断，比如数据不全或无效则取消提交，同时再提示重新输入. 表单的验证一般有两种形式一个是在button按钮的onclick事件上完成，如果返回false则取消提交在提交按钮的onsubmit事件完成，如果返回false，表单不提交常见的验证文本框是否为空? 选择型的表单是否选择? 用户输入的邮件地址是否合法？用户是否已输入合法的日期？ (二)表单的操作引用表单域根据表单的名字获取表单的引用 var myForm = doucument.forms[“name”];

根据表单数组获取 var myForm = document.forms[0]; 表单中的属性表单中的方法表单中的事件表单域中的通用属性 disabled属性 name属性:name的属性值是可以通过JavaScript改变 form属性:通过form属性可以获得一个表单域所在的表单表单域中的通用方法 ?focus()方法 ?blur()方法

表单域中的通用事件 onfocus和onblur事件 onclick、onkeydown、onkeyup和onkeypress事件 onmouseover、onmouseout、onmousedown、和onmouseup事件 onchange事件使用文本域获取和设置文本域的值使用select方法选中文本使用按钮类表单域简单按钮:最常用的方法捕获onclick事件，然后执行代码复选按纽:通过checked属性获取，选中时是true，否则为false. 单选按钮:通过checked属性获取，选中时是true，否则为false. 使用下拉列表框获取和设置下拉列表框的值下拉列表框的值表示被选中的option标记的value属性获取选项的个数 select对象有一个length属性，表示选项的个数获取当前选项的索引 select对象中使用selectedIndex属性获取当前选中的option对象的索引获取所有选项的集合用options属性表示所有option组成的集合,option的value代表其值，text属性代表其中间的文本，selected属性决定该option是否被选中为select动态添加选项在所有的option后面添加一个新的选项 Select.options[select.length] = new Option(“optiontext”,”value”); 从select中删除一个选项 ?Select.options[1] = null; 清空一个select 替换一个选项 Select.options[0] = new Option(“optiontext”,”value”);

ragel学习

Ragel学习笔记解决的问题采用一个连续的可能庞大的正则表达式，可以有一些分块式action，或者只是判断某一串符合此表达式。采用解决问题模型为有限状态机。语法嵌入C, C++, Objective-C, D, Go,Java and Ruby. 多行代码 %%{ … … }%% 单行代码%% 实例代码 #include #include %%{ machine foo; main := ( 'foo' | 'bar' ) 0 @{ res = 1; }; }%% %% write data; int main( int argc, char **argv ) { int cs, res = 0; if ( argc > 1 ) { char *p = argv[1]; char *pe = p + strlen(p) + 1; %% write init; %% write exec; } printf("result = %i\n", res ); return 0; }

状态机名 machine fsm_name; 必须在块开头注明，如上例。如果没注明则用先前使用的，如没有则报错。可以采用多文件编译include为关键字导入文件。定义语句 = ; 名为name的state直到定义实例化（被引用时（下一个为:=形式））才生成，该语句类似一个类的定义状态机实例化 := ; 该语句产生状态机的一个状态，名为main的状态为初始start状态。 %% write init // 该命令设置cs (current_state) 为main的状态，即为start状态如果没有main 则最近一个实例化的状态即为开始状态。在外部执行控制语句可以通过设置cs来设置状态机，内部执行，采用fcall fgoto fnext实现状态切换。导入ragel代码 include FsmName "inputfile.rl"; 如果没名会与当前状态机同名，如果没输入文件，则导入FsmName，检索路径与当前文件相同，可以通过-I命令增加include 检索路径，同makefile。导入定义 import "inputfile.h"; 文件内容形如：（单引号类似命令标记）定义name 为number(纯数字) 或者lit_string(字符串) name '=' number name '=' lit_string 'define' name number 'define' name lit_string 如果输入文件为一个ragel 程序则忽略所有tokens，检索路径与当前文件相同，可以通过-I 命令增加import检索路径，同include。

正则表达式写的form表单验证

希望能帮助更多的人，可以加我qq交流504781715 formzzbds.html