说到编程语言,总是绕不开数据类型,因为数据类型决定了数据可以进行什么样的操作。同时数据类型
从广义上来说是一种数据结构,在过程式编程的过程中,曾经有过这样一种说法:
程序 = 数据结构 + 算法
可见数据类型的重要性。大体来说,编程语言有三种: 强类型语言, 弱类型语言,介于两者之间的语言。
强类型语言要求变量定义的时候必须明确数据类型,弱类型语言不要求在变量定义时明确数据类型。
一、强类型语言、弱类型语言
我们所知的C语言系的语言都要求变量定义时明确数据类型,例如C语言、C++、Java语言等都是强类型
语言。 而VBS等脚本语言,则是弱类型的语言。 这就决定了vbs定义变量时不需要明确数据类型。
下面是各种语言定义变量时的语法。
//我是C语言,我是强类型语言 //定义变量时确定数据类型 int nAge;
//我是C++, 我也是强类型语言 class A { }; //类实例化的时候需要指定对象的类型 A objectA;
//我是Delphi的Pascal, 我也是强类型语言 //定义变量需要指定类型 var nPage:integer;
'我是vbs,我是弱类型语言 '定义变量不需要指定数据类型 Dim varTest
二、vbs的数据类型
这篇文章我们简单的来描述一下vbs中数据类型的相关内容。
'vbs中的数据类型 'vbs脚本中的数据只有一种数据类型,就是variant '可以将vbs变量看成一个具有AI功能的容器,可以识别不同的数据类型 '更准确的是: '1、vbs只有一种数据类型variant '2、vbs变量的数据类型都对应一个子类型 '3、可以将variant看成一个基类,子数据类型看成派生类, '4、vbs是具有OOP特性的一种脚本编程语言 '5、vbs变量在同一时刻,只能表示一种数据类型,或者说只能存储一种 ' 数据类型的数据; 不能既存储Long型又同时存储string型字符串 '6、vbs变量可以自动为存储的数据选择合适的数据类型 '7、这里需要说道赋值运算,当一个变量第一次赋值的时候,vbs就假定 ' 这个变量的数据类型为赋值时的子类型。除非再一次赋值,否则就一直 ' 保持第一次赋值的子类型不变 'vbs中的数据类型检测函数 '1、vartype 函数, 这个函数返回数据类型的常量信息 '2、typename 函数,这个函数返回数据类型的字符串信息 Dim var var = 10 MsgBox VarType(var) MsgBox TypeName(var) var = "volcanol" MsgBox VarType(var) MsgBox TypeName(var) '关于输入对话框InputBox的输入处理 'InputBox输入对话框返回的是字符串 Dim strDataType MsgBox TypeName(InputBox("请输入最大年龄的数值","最大年龄","150")) '这里需要注意isnumeric函数检查输入的变量是否都是数字 '如果都是由 0-9 之间的数字组成的,那么返回True,否则返回false '这一点需要注意 If IsNumeric(InputBox("测试输入的值是否是数值","输入数值")) Then MsgBox "测试isnumeric函数的作用" End If '在vbs中也有与C语言中一样的类型转换:强制类型转换、隐式类型转换 '强制类型转换通过函数实现 '隐式类型转换vbs会自动完成 '再看下面的例子,因为nMaxAge要进行算术减法,所以vbs脚本引擎会将 'nMaxAge解释为一个int型数据 Dim nMaxAge Dim nMinAge Dim nDiffAge '第一次赋值的时候,nMaxAge是string类型 nMaxAge = InputBox("请输入最大年龄的数值","最大年龄","200") '第一次赋值的时候 nMinAge = 0 MsgBox "第一次赋值后 nMinAge的类型是:" & TypeName(nMinAge) '这个地方要进行计算,- 需要的是数字类型,这个地方表达式中 '会将 nMaxAge 的 string类型隐式类型转换为 double 类型, '然后再与nMinAge 进行计算. 需要注意的是隐式类型时的要点。 nDiffAge = nMaxAge - nMinAge MsgBox nDiffAge MsgBox "nDiffAge数据类型是:" & TypeName(nDiffAge) '下面表达式的类型是integer MsgBox "1 + 2 表达式的类型是: " & TypeName(1+2) '日期和时间类型 MsgBox Date() MsgBox TypeName(Date()) MsgBox Time() MsgBox TypeName(Time()) '注意日期类型常量的使用两个##符号引用起来的一个字符串, '就和下面的例子一样 MsgBox TypeName(#2018/11/23#) MsgBox "日期的数值是:" & CLng(#2018/11/23#) MsgBox "数字65535对应的日期是:" & CDate(65535) MsgBox "数字0对应的日期是:" & CDate(0) MsgBox #1970/1/1# '注意时间的常量与日期常量的不同 MsgBox TypeName("14:19:29") '前面我们说过 & 和 + 都可以进行字符串的连接 '因为 + 符号还可以作为加法运算符,因此这里需要注意在 '使用过程中的隐式类型转换 '例如我们想输出一个 100234 的字符串 Dim strTest Dim nTest strTest = CStr(100) nTest = 234 '不能输出字符串 MsgBox strTest + nTest '可以输出字符串 MsgBox strTest & nTest '******************************************* ' + 符号的规则 ' 1、如果两边都是数字,按照数字计算 ' 2、如果一边是数字类型,则看另一边是否能隐式类型转换为数字 ' 如果能隐式类型转换,则按照数字计算加法求和, 否则就报错 ' ' 3、如果两边都是字符串,那么就连接字符串 ' ' 4、字符串类型最好用 & 进行连接 'Empty 和 NULL '如果一个变量未进行初始化则其类型为Empty Dim varEmpty MsgBox TypeName(varEmpty) '下面的函数调用也进行了隐式类型转换,将empty类型的变量转换为string类型 MsgBox varEmpty If IsEmpty(varEmpty) Then MsgBox "varEmpty变量未初始化" End If '这里还需要注意的是empty这个常量, varEmpty = Empty If IsEmpty(Empty) Then MsgBox "varEmpty = Empty 赋值后,已经初始化" Else MsgBox "varEmpty = Empty赋值后,已经初始化,这一段不执行" End If If varEmpty = Empty Then MsgBox "varEmpty = Empty 后,其值就是Empty,执行这一段" Else MsgBox "varEmpty = Empty后,其值是Empty,逻辑结果为真,这一段不执行" End If Dim varNull varNull = Null MsgBox TypeName(varNull) '下面的语句不能执行,这个地方就是NULL和empty的区别 '而且一般只有显示的给变量赋值为NULL,变量的值才是NULL 'MsgBox varNull If IsNull(varNull) Then MsgBox "varNull变量的值是NULL" End If If IsEmpty(varNull) Then MsgBox "varNull变量没有初始化" Else MsgBox "varNull变量已经初始化" End If
上面的代码由一个地方需要注意,就是124行那一句,如果直接用msgbox Null 的话会报错。如下面的图
所示:
三、Tips
虽然vbs是一种弱类型的语言,但是这并不妨碍我们编写出合格的健壮的代码。 这里有几个要点可以
提高代码健壮性。
1、一个变量只用来做一件事。
2、利用匈牙利命名法来实现代码的自描述,通过增加前缀来说明变量的类型。
3、变量在初始化的时候尽量进行强制类型转换。
4、注意vbs的隐式类型转换规则
5、注意各种类型的区别。
--------------------------------------------------------------分割线---------------------------------------------------------------
1、文章均为个人原创,欢迎转载,转载请保留出处:https://www.cnblogs.com/volcanol/
2、获取工控PLC、变频器、HMI、计算机、Windows、Linux、嵌入式资料点击:获取资料
3、如果您觉得文章对您有帮助可转至页面上半部分打赏,或移步:打赏
4、或者在页面右下角点推荐哟!!!
--------------------------------------------------------------分割线------------------------------------------------------------
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步