博客园-

VBScript之Eval函数与Execute语句（Array.ForEach的实现）

Tue, 20 Sep 2011 21:56:00 +0800

每当使用C#中的Array.ForEach时，感觉很爽。最近在做QTP自动化测试时，偶然在QTP自带示例中看到一段代码可以动态调用方法，于是先喜若狂，着手改编了一下，写了一个VBScript版的Array.ForEach功能，使用起来确实不错。其实关键的一个地方就在于使用了VBScript中的Eval函数。首先我们来看看Eval函数的作用。

1. Eval函数

Eval函数主要是计算一个表达式的值并返回结果。其签名如下：

[result = ]Eval(expression)

参数如下：

result：可选项。是一个变量，用于接受返回的结果。如果未指定结果，应考虑使用Execute语句代替。
expression：必选项。可以是包含任何有效VBScript表达式的字符串。

在VBScript中，x = y可以有两种解释。第一种方式是赋值语句，将y的值赋予x。第二种解释是测试x和y是否相等。如果相等，result为True；否则result为False。Eval方法总是采用第二种解释，而Execute语句总是采用第一种。下面是Eval函数的简单示例：

Dim a, b
a = 1
b = 2
MsgBox Eval("a + b")

2. Excute语句

执行一个或多个指定的语句。其签名如下：

Execute statements

所需要的statements参数是一个字符串表达式，其中包含一个或多个要执行的语句。如果要在statements参数中包含多条语句，应使用冒号或嵌入的分行将其分隔开。下面是Execute语句的简单示例：

Dim a, b, c, d
a = 1
b = 2
Execute "c = a + b : d = a + c"
MsgBox c
MsgBox d

3. 自定义ForEach函数

ForEach函数有两个参数，一个是数组变量，一个是遍历方法名称。其实现代码如下：

Sub ForEach(source, method)
    Dim i, current
    For i = 0 To UBound(source)
        If IsObject(source(i)) Then '判断数组元素是否为对象
            Set current = source(i)
        Else
            current = source(i)
        End If
        Eval(method & "(current)") '调用遍历方法
    Next
End Sub

遍历一个整数数组的示例：

'显示数组元素方法
Function ShowValue(val)
    MsgBox val
End Function

Dim i, arr(10)
'给数组元素赋值
For i = 0 To 10
    arr(i) = i
Next
'调用ForEach遍历
Call ForEach(arr, "ShowValue")

遍历一个对象数组的示例：

'用户类
Class User
    '用户属性
    Public UserName, Email

    'ToString方法
    Function ToString()
        ToString = Me.UserName & " : " & Me.Email
    End Function
End Class

'显示用户信息方法
Function ShowUser(usr)
    MsgBox usr.ToString()
End Function

Dim arr(5), u
'给数组元素赋值
For i = 0 To 5
    Set u = New User
    u.UserName = "user" & CStr(i)
    u.Email    = "user" & CStr(i) & "@xxx.com"
    Set arr(i) = u
Next
'调用ForEach遍历
Call ForEach(arr, "ShowUser")

看代码很简洁，不是嘛，原来VBScript也可以像C#一样使用ForEach。VBScript应该还能够实现C#中的其他很多特性，以后在编写测试代码过程中，要不断去总结。

本文链接

QTP自动化测试之VBScript对象

Mon, 12 Sep 2011 09:19:00 +0800

VBScript作为脚本语言不仅能够编写简单的脚本，而且还能够创建及使用对象编写复杂的脚本，如Class对象，数据字典，操作文件夹及文件，错误处理，正则表达式等等。

1. Class对象
2. Dictionary对象
3. FileSystemObject对象
4. Err对象
5. RegExp对象

1. Class对象

使用Class语句可以创建一个对象，可以为它编写字段、属性及方法，它只有两个对象事件——Initialize与Terminate。首先来看一个简单的Class示例：

Class User
    '私有字段，也可以使用Public语句定义公有字段
    Private m_UserName
    Private m_Profile

    'Initialize事件相当于构造函数
    Private Sub Class_Initialize
        m_UserName = Empty   '设置UserName初始值为空字符串
    End Sub

    'Terminate事件相当于析构函数
    Private Sub Class_Terminate
        Set m_Profile = Nothing   '将对象设置为Nothing，销毁对象
    End Sub

    'Property Get语句，获取属性值或对象引用，Default只与Public一起使用，表示该属性为类的默认属性
    Public Default Property Get UserName
        UserName = m_UserName
    End Property
    'Property Let语句，设置属性值
    Public Property Let UserName(newUserName)
        m_UserName = newUserName
    End Property

    Public Property Get Profile
        Set Profile = m_Profile
    End Property
    'Property Set语句，设置属性对象引用
    Public Property Set Profile(newProfile)
        Set m_Profile = newProfile
    End Property

    'ToString方法
    Public Function ToString()
        ToString = "Hello! " & Me.UserName   'Me相当于C#中的this关键字
    End Function
End Class

用VBScript创建的对象并不是真正的面向对象，它不能继承和实现多态，但是在QTP对象模型Utility中，提供了一个RegisterUserFunc方法可以覆写对象的方法，但这也不是真正意义上的面向对象。Class及其成员如何创建，上面已经简单介绍过，若要对其中的一些语句进一步了解，还需要去仔细阅读一些参考文档。下面我们来看看如何调用对象，在《VBScript基础上》变量赋值中也已经提到过。

Dim u                  '定义对象变量名，注意变量名不能与类名相同，即使是大小写不同
Set u = New User       '创建对象用New语句
u.UserName = "known"   '给属性赋值
MsgBox u.ToString()    '调用方法

2. Dictionary对象

Dictionary是存储数据键和项目对的对象，其主要属性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。下面是该对象的一个综合示例：

'定义并创建Dictionary对象，使用CreateObject创建并返回自动化对象的引用
Dim d
Set d = CreateObject("Scripting.Dictionary")

'向Dictionary对象中添加键值对
d.Add "a", "Known"    'Add方法第一个参数是Key值，第二个是Item值
d.Add "b", "Christina"
d.Add "c", "test"
d.Add "d", "fuck"
Call ShowDictionary(d)

'遍历Dictionary对象，更改Item值
For i = 0 To d.Count - 1     'Count返回Dictionary对象中的项目数
    If d.Exists("c") Then    'Exists判断Dictionary对象中是否存在指定关键字
        d.Item("c") = "Test" 'Item返回Dictionary对象中指定Key的Item值
    End If
Next
d.Remove("d")  'Remove从Dictionary对象中删除一个关键字，项目对。
Call ShowDictionary(d)

'输出Dictionary对象所有键值
Sub ShowDictionary(dic)
    Dim str, a
    a = dic.Items  'Items返回一个包含所有Item值的数组
    For i = 0 To dic.Count - 1
        str = str & a(i) & vbCrlf
    Next
    MsgBox(str)
End Sub

3. FileSystemObject对象

FileSystemObject对象可以操作驱动器、文件夹及文件，其对象模型包含下面的对象和集合。

对象/集合	描述
FileSystemObject	主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文件夹和文件的方法和属性。和该对象相关联的许多方法，与其他 FSO 对象中的方法完全相似；它们是为了方便才被提供的。
Drive	对象。包含用来收集信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如驱动器的共享名和它有多少可用空间。请注意，"drive" 并非必须是硬盘，也可以是 CD-ROM 驱动器，RAM 磁盘等等。并非必须把驱动器实物地连接到系统上；它也可以通过网络在逻辑上被连接起来。
Drives	集合。提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接。Drives 集合包括所有驱动器，与类型无关。要可移动的媒体驱动器在该集合中显现，不必把媒体插入到驱动器中。
File	对象。包含用来创建、删除或移动文件的方法和属性。也用来向系统询问文件名、路径和多种其他属性。
Files	集合。提供包含在文件夹内的所有文件的列表。
Folder	对象。包含用来创建、删除或移动文件夹的方法和属性。也用来向系统询问文件夹名、路径和多种其他属性。
Folders	集合。提供在 Folder 内的所有文件夹的列表。
TextStream	对象。用来读写文本文件。

FileSystemObject对象所有属性、方法及对象和集合的详细说明，您可以查阅参考文档，因为内容比较多，我们就看一个简单的示例，直观地来了解一下该对象的使用，该示例是将一个文件复制到指定文件夹下。

'定义并创建对象
Dim fso, filePath, folderPath
Set fso = CreateObject("Scripting.FileSystemObject")
filePath = "C:\\Test.txt"
folderPath = "D:\\Test"
Call MoveFile(filePath, folderPath)

'将文件移动到指定文件夹
Sub MoveFile(sourceFile, targetFolder)
    Dim file, fileName
    '获取文件对象
    Set file = fso.GetFile(sourceFile)
    '判断目标文件夹是否存在
    If Not fso.FolderExists(targetFolder) Then
        fso.CreateFolder(targetFolder)
    End If
    '将文件移动到目标位置
    file.Move(targetFolder & "\\" & file.Name)
End Sub

4. Err对象

Err对象是一个具有全局范围的内部对象，不必在代码中创建它的实例，含有关于运行时错误的信息。主要属性有Description、HelpContext、HelpFile、Number、Source，主要方法有Clear、Raise，其属性及方法的详细说明详见参考文档。下面的示例说明了Err对象的用法：

'示例1：
On Error Resume Next
Err.Raise 6  '产生溢出错误
MsgBox("Error #" & CStr(Err.Number) & " " & Err.Description)
Err.Clear

'示例2：
'定义数据库连接
Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.BeginTrans  '开始事务

...

'提交数据库事务错误处理
On Error Resume Next
If conn.Errors.Count > 0 Then
    conn.RollbackTrans  '回滚事务
Else
    conn.CommitTrans    '提交事务
End If
Err.Clear

5. RegExp对象

RegExp是正则表达式对象，提供简单的正则表达式支持功能。主要属性有Global、IgnoreCase、Pattern，主要方法有Execute、Replace、Test，其属性及方法的详细说明详见参考文档。下面的示例说明了RegExp对象的用法：

Function RegExpTest(patrn, strng)
    Dim regEx, match, matches            '建立变量。
    Set regEx = New RegExp               '建立正则表达式。
    regEx.Pattern = patrn                '设置模式。
    regEx.IgnoreCase = True              '设置是否区分字符大小写。
    regEx.Global = True                  '设置全局可用性。
    Set matches = regEx.Execute(strng)   '执行搜索。
    For Each match in matches            '遍历匹配集合。
        retStr = retStr & "Match found at position "
        retStr = retStr & match.FirstIndex & ". Match Value is '"
        retStr = retStr & match.Value & "'." & vbCRLF
    Next
    RegExpTest = retStr
End Function

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

本文链接

QTP自动化测试之VBScript基础（下）

Fri, 09 Sep 2011 16:35:00 +0800

要想使用QTP进行自动化测试，必须了解VBScript这门语言，对于使用过ASP或VB开发的人来说，VBScript已经再熟悉不过了，但是没有接触过VBScript的同学也不要灰心，因为这门语言简单易学。

7. 条件语句
8. 循环语句
9. 过程

7. 条件语句

VBScript中可以使用以下条件语句：

If…Then…Else语句
Select Case语句

7.1. If…Then…Else语句

If…Then…Else语句结构如下：

If condition Then statements [Else elsestatements]

或者使用块形式

If condition Then
    [statements]
[ElseIf condition-n Then
    [elseifstatements]] . . .
[Else
    [elsestatements]]
End If

主要参数：

condition：为一个（多个）数值或字符串表达式，其运算结果为True或False，若condition为Null，则被视为False。
statements：为condition等于True时执行的一条或多条（以冒号分开）语句。

对于短小简单的测试，可以使用单行形式（第一种语法），但块形式（第二种语法）提供了比单行形式更强的结构化与适应性，比较容易阅读、维护及调试。

'1. 条件为True时
'单行形式
Dim myDate
myDate = #2011-9-8#   '日期时间字符串需用#括起来
If myDate < Now Then myDate = Now
'块形式
If i = 100 Then
    c = True
    i = 0
End If

'2. 条件为True和False时
If user.UserName = "admin" Then
    showAdminPage = True
Else
    showAdminPage = False
End If

'3. 对多个条件判断
If value = 0 Then
    MsgBox(0)
ElseIf value = 1 Then
    MsgBox(9999)
Else
    MsgBox("输入不合法！")
End If

7.2. Select Case语句

语法结构如下：

Select Case testexpression
    [Case expressionlist-n
        [statements-n]] . . .
    [Case Else expressionlist-n
        [elsestatements-n]]
End Select

主要参数：

testexpression：任意数值或字符串表达式。
statements：当testexpression与expressionlist-n中的任意部分匹配时，执行的一条或多条语句。

Select Case结构提供了If...Then...ElseIf结构的另一个变通形式，功能与If...Then...ElseIf类似，但可以使代码更加简练易读，它与Case语句关联使用。

Dim value : value = 5   '多条语句在一行,需用冒号分开
Select Case value
    Case 0:
        MsgBox(0)
    Case 1:
        MsgBox(9999)
    Case Else
        MsgBox("输入不合法！")
End Select

8. 循环语句

VBScript中可以使用以下循环语句：

Do...Loop语句
While...Wend语句
For...Next语句
For Each...Next语句

8.1. Do…Loop语句

当（或直到）条件为True时循环，语法结构如下：

当条件为True时重复执行某语句块。

Do [{While | Until} condition]
    [statements]
    [Exit Do]
    [statements]
Loop

当条件变为True之前重复执行某语句块。

Do
    [statements]
    [Exit Do]
    [statements]
Loop [{While | Until} condition]

主要参数：

condition：数值或字符串表达式，其值为True或False。如果condition为Null，则condition被当作False。
statements：当condition为True时被重复执行的一条或多条命令。

Exit Do可以退出循环体，循环可以嵌套使用。

Do Until response = vbNo
    myNum = Int(6 * Rnd + 1)   '产生1到6之间的随机数
    response = MsgBox(myNum & "想要另一个数吗？", vbYesNo)
Loop

Dim check, counter
check = True : counter = 0
Do
    Do While count < 20
        counter = counter + 1  '增加计数器
        If counter = 10 Then
            check = false
            Exit Do   '终止内循环
        End If
    Loop
Loop Until Not check

8.2. While…Wend语句

当条件为True时循环，语法结构如下：

While condition
    [statements]
Wend

主要参数：

condition：数值或字符串表达式，其值为True或False。如果condition为Null，则condition被当作False。
statements：当condition为True时被重复执行的一条或多条命令。

While…Wend没有Exit语句，从头一直循环到尾，若要在中途退出，则需用Do…Loop语句。

8.3. For…Next语句

指定循环次数，使用计数器重复运行语句，语法结构如下：

For counter = start To end [Step step]
    [statements]
    [Exit For]
    [statements]
Next

主要参数：

counter：用做循环计数器的数值变量。这个变量不能是数组元素或用户自定义类型的元素。
start：counter的初值。
end：counter的终值。
step：counter的步长。如果没有指定，则step的默认值为1。

8.4. For Each…Next语句

对于集合中的每项或数组中的每个元素，重复执行一组语句，语法结构如下：

For Each element In group
    [statements]
    [Exit For]
    [statements]
Next [element]

主要参数：

element：用来枚举集合或数组中所有元素的变量。对于集合，element可能是Variant变量、通用Object变量或任意指定的Automation对象变量。对于数组，element只能是Variant变量。
group：对象集合或数组的名称。

9. 过程

在VBScript中，过程被分为两类：Sub过程和Function过程。

9.1 Sub过程

语法结构如下：

[Public [Default] | Private] Sub name [(arglist)] 
    [statements]
    [Exit Sub]
    [statements]
End Sub

主要参数：

Public：表示Sub过程可被所有脚本中的所有其他过程访问。
Default：只与Class块中的Public关键字连用，用来表示Sub过程是类的默认方法。如果在类中指定了不止一个Default过程，就会出错。
Private：表示Sub过程只可被声明该过程的脚本中的其他过程访问。
name：Sub的名称，遵循标准变量命名规则。
arglist：代表在调用时要传递给Sub过程的参数的变量列表。用逗号隔开多个变量。其语法为：[ByVal | ByRef] varname[()]，ByVal表示该参数是按值传递的，ByRef表示该参数按引用传递，varname代表参数的变量名称。

如没有显式地指定使用Public或Private，则Sub过程默认为Public。调用Sub过程时，只需输入过程名及所有参数值，参数值之间使用逗号分隔。不需使用Call语句，但如果使用了此语句，则必须将所有参数包含在括号之中。调用Sub过程的两种方式。一种使用Call语句；另一种则不使用。两种方式效果相同，如：Call MySub(a, b)或MySub a, b。

9.2 Function过程

语法结构如下：

[Public [Default]| Private] Function name [(arglist)]
    [statements]
    [name = expression]
    [Exit Function] 
    [statements]
    [name = expression]
End Function

主要参数：

Public：表示Function过程可被所有脚本中的所有其他过程访问。
Default：只与Class块中的Public关键字连用，用来表示Function过程是类的默认方法。如果在类中指定了不止一个Default过程，就会出错。
Private：表示Function过程只可被声明该过程的脚本中的其他过程访问。
name：Function的名称，遵循标准变量命名规则。
arglist：代表在调用时要传递给Function过程的参数的变量列表。用逗号隔开多个变量。其语法为：[ByVal | ByRef] varname[()]，ByVal表示该参数是按值传递的，ByRef表示该参数按引用传递，varname代表参数的变量名称。

如没有显式地指定使用Public或Private，则Function过程默认为Public。调用Function过程时，函数名必须用在变量赋值语句的右端或表达式中，如：b = MyFunction(a)。要从函数返回一个值，只需将值赋给函数名。在过程的任意位置都可以出现任意个这样的赋值。

9.3 Sub与Function的区别

Sub没有返回值，而Function有返回值。
Sub不能放在表达式中，而Function可以。

本文链接

QTP自动化测试之VBScript基础（上）

Fri, 09 Sep 2011 10:53:00 +0800

1. VBScript利器
2. Hello World
3. 数据类型
4. 变量
5. 常数
6. 运算符

1. VBScript利器

子曰：工欲善其事，必先利其器。学习一门语言自然是离不开工具及文档，有好的工具及文档在手，学习起来也会得心应手。在此，我推荐大家一个很不错的编辑工具——VbsEdit，该工具既能编辑代码，又可调试代码，有不错的智能提示，还有很多示例代码。可惜不是免费使用，不过网上已经有绿色版，您可以搜索下载。若你已经安装了QTP，那么使用QTP工具也是一个不错的选择。参考文档可以使用在线版《Microsoft Windows脚本技术》，也可以从网上搜索下载CHM文件。

2. Hello World

每种语言的入门都是一样，从简单的Hello World开始，我们也不例外。如何使用VBScript来弹出一个对话框显示Hello World问候语呢？很简单，代码如下：

MsgBox("Hello world!")
MsgBox "Hello world!"
result = MsgBox("Hello World!", vbOKOnly, "Greeting")
MsgBox "Hello World!", vbOKOnly, "Greeting"

既然在此出现的第一个函数是MsgBox，那么就简单介绍一下该函数，其签名如下:

MsgBox(prompt[, buttons][, title][, helpfile, context])

主要参数：

prompt：为要显示的消息，其他带[]参数为可选参数；
buttons：为显示对话框按钮及类型，默认值为0，即只显示“确定”按钮；
title：为对话框标题栏文字。

MsgBox函数也有返回值，当你点击确定或取消按钮时，其返回的值是不一样的。其他详细内容，大家可以去查阅参考文档，这里就不逐一说明。

3. 数据类型

VBScript只有一种数据类型——Variant，它是根据上下文来判断是数字还是字符串。因为Variant是VBScript中唯一的数据类型，所以它也是VBScript中所有函数的返回值的数据类型。为了进一步区分数据类型，它包含如下数据子类型：

子类型	描述
Empty	未初始化的Variant。对于数值变量，值为0；对于字符串变量，值为零长度字符串 ("")。
Null	不包含任何有效数据的Variant。
Boolean	包含True或False。
Byte	包含0到255之间的整数。
Integer	包含-32,768到32,767之间的整数。
Currency	-922,337,203,685,477.5808到922,337,203,685,477.5807。
Long	包含-2,147,483,648到2,147,483,647之间的整数。
Single	包含单精度浮点数，负数范围从-3.402823E38到-1.401298E-45，正数范围从1.401298E-45到3.402823E38。
Double	包含双精度浮点数，负数范围从-1.79769313486232E308到-4.94065645841247E-324，正数范围从4.94065645841247E-324到1.79769313486232E308。
Date (Time)	包含表示日期的数字，日期范围从公元100年1月1日到公元9999年12月31日。
String	包含变长字符串，最大长度可为20亿个字符。
Object	包含对象。
Error	包含错误号。

您可以使用转换函数（CInt，CStr等等）来转换数据的子类型。另外，可使用VarType函数返回数据的Variant子类型。

4. 变量

4.1. 变量声明

变量声明有两种方式——显式与隐式，显式使用Dim、Public、Private语句进行声明，隐式直接使用变量名。使用隐式声明方式的习惯不好，因为这样有时会由于变量名拼错而导致程序运行出现意外，因此，最好在每个脚本开始第一行使用Option Explicit语句强制显式声明所有变量。声明示例如下:

Option Explicit
Dim i, conn   '声明多个变量时用逗号隔开
Public UserName, Password
Private m_id

注意：在VBScript中，变量名是不区分大小写，即userName与UserName是指同一个变量。

4.2. 命名规则

VBScript中变量命名是有其规则标准的，变量命名必须遵循：

第一个字符必须是字母。
不能包含嵌入的句点。
长度不能超过255个字符。
在被声明的作用域内必须唯一。

4.3. 作用域与存活期

变量的作用域由声明它的位置所决定。如果在过程中声明的，则只有该过程可以使用，即过程级变量；如果在过程之外声明的，则该变量可以被脚本中所有过程所使用，即Script级变量。

变量所存在的时间为存活期。Script级变量的存活期为从被声明开始，直到脚本运行结束为止；过程级变量的存活期仅是过程被调用执行开始到结束的时间。不同的过程可以使用相同的变量名，因为局部变量只有声明它的过程才能识别。

4.4. 变量赋值

给变量赋值很简单，使用等号进行赋值，等号左边为变量名，右边为变量值。若该变量是对象引用级别的，则需使用Set语句。示例代码如下：

Dim i, conn, ui
i = 0
Set conn = CreateObject("ADODB.Connection")
Set ui = New UserInfo

4.5. 标量与数组

只包含一个值的变量成为标量变量；有时候为了方便将一组相关值赋给一个变量,则成为数组变量。区别标量与数组的唯一方式是声明时数组变量名后面带有括号()。变量声明就不说了，前面已经提到，这里我们看看怎样声明一维数组及多维数组（最大60维——:)只要您能够理解）。

Dim a(9), table(2, 3)
a(0) = 1
...
a(9) = 11
MsgBox(a(1))   '输出数组变量值

table(0, 0) = 1
...
table(2, 3) = 10

我们也可以声明动态数组（在运行脚本时大小发生变化的数组），使用Dim或ReDim语句，但括号中不包含任何数字。要使用动态数组，必须随后使用ReDim确定维数和每一维的大小。若同时使用Preserve关键字，则在重新调整大小时保留数组的内容。

Dim count, a()
count = 9
ReDim a(count)
ReDim Preserve a(10)

5. 常数

常数在VBScript中是表示不变的值，用于代替数字或字符串。其内部定义了许多常数，都是以vb开头，例如在Hello World程序中涉及到的MsgBox常数“vbOKOnly”。除了MsgBox常数外，还有颜色常数、比较常数、日期和时间常数等等，详见参考文档。

内部自带常数，我们可以直接使用。当自带常数不能满足我们的需求时，我们也可以自定义常数，在VBScript中是使用Const语句来定义常数，该语句的签名如下：

[Public | Private] Const constname = expression

主要参数：

constname：为常数名称，为了区分常数与变量，最好有一套自己的命名规则，这里推荐字母全大写，单词间用下划线分割；
expression：文字或其他常数，或包括除 Is 外的所有算术运算符和逻辑运算符的任意组合。

常数默认是Public级别，您也可以指定为Private级别，在同一行中声明多个常数需要用逗号分割，常数声明中不能使用变量、自定义函数及内部函数。下面是常数的一些示例代码：

Const PI = 3.14   '常数默认为公有。
Private Const STEP_APPLY = "Apply"   '定义私有常数。
Const STEP_APPLY = "Apply", PI  = 3.14   '在一行上定义多个常数。

6. 运算符

VBScript有一套完整的运算符，包括算术运算符、比较运算符、连接运算符和逻辑运算符。当表达式中含有多个运算符时，它们的运算优先级是：算术运算符 > 比较运算符 > 逻辑运算符。所有比较运算符的优先级相同，算术运算符和逻辑运算符的优先级如下所示：

6.1. 算术运算符

描述	符号
求幂	^
负号	-
乘	*
除	/
整除	\
求余	Mod
加	+
减	-
字符串连接	&

字符串连接 (&) 运算符不是算术运算符，但是在优先级顺序中，它排在所有算术运算符之后和所有比较运算符之前。

6.2. 逻辑运算符

描述	符号
逻辑非	Not
逻辑与	And
逻辑或	Or
逻辑异或	Xor
逻辑等价	Eqv
逻辑隐含	Imp

6.3. 比较运算符

描述	符号
等于	=
不等于	<>
小于	<
大于	>
小于等于	<=
大于等于	>=
对象引用比较	Is

Is 运算符是对象引用比较运算符。它并不比较对象或对象的值，而只是进行检查，判断两个对象引用是否引用同一个对象。

本文链接

ASP.NET服务器端数据查询控件

Thu, 18 Aug 2011 09:30:00 +0800

最近写了一个简单的ASP.NET服务器端数据查询控件，该控件是对ASP.NET现有的GridView控件进行了一些扩展。现在分享一下成果，希望能帮助想要实现类似控件的童鞋。

该控件有如下功能：

自定义GridView分页；
根据绑定字段及表名自动生成查询语句并执行；
设置绑定字段Operator属性，自动生成查询条件；
设置绑定字段CodeCategory属性，自动将代码字段转换为代码名称。
导出Excel功能。

示例代码如下：

<asp:QueryView ID="QueryView1" runat="server" CssClass="grid" QueryCssClass="form query" 
               ConnectionName="Default" EntityName="T_POST" AllowPaging="true" PagerSettings-Position="TopAndBottom"> 
    <AlternatingRowStyle CssClass="even" /> 
    <Columns> 
        <asp:BoundDataField DataField="TYPE" HeaderText="类别" ItemStyle-Width="15%" CodeCategory="PostType" 
                            Operator="Equal" ControlType="DropDownList" EmptyText="所有类别" /> 
        <asp:BoundDataField DataField="TITLE" HeaderText="标题" ItemStyle-Width="50%" Operator="Contain" /> 
        <asp:BoundDataField DataField="CREATED_BY" HeaderText="作者" ItemStyle-Width="15%" /> 
        <asp:BoundDataField DataField="CREATED_DATE" HeaderText="创建时间" ItemStyle-Width="20%" 
                            DataFormatString="{0:yyyy-MM-dd HH:mm:ss}" ItemStyle-HorizontalAlign="Center" /> 
    </Columns> 
</asp:QueryView>

运行效果图如下：

源码下载：QLite.rar

本文链接

面向对象设计的原则

Mon, 11 Oct 2010 21:48:00 +0800

SRP 单一职责原则

　　就一个类而言，应该仅有一个引起它变化的原因。

OCP 开放—封闭原则

　　软件实体（类、模块、函数等）应该是可以扩展的，但是不可修改。

LSP Liskov替换原则

　　子类型必须能够替换掉它们的基类型。

DIP 依赖倒置原则

　　抽象不应该依赖于细节。细节应该依赖于抽象。

ISP 接口隔离原则

　　不应该强迫客户依赖于它们不用的方法。接口属于客户，不属于它所在的类层次结构。

REP 重用发布等价原则

　　重用的粒度就是发布的粒度。

CCP 公用封闭原则

　　包中的所有类对于同一性质的变化应该是共同封闭的。一个变化若对一个包产生影响，则将对该包中的所有类产生影响，而对于其他的包不造成任何影响。

CRP 共同重用原则

　　一个包中的所有类应该是共同重用的。如果重用了包中的一个类，那么就要重用包中的所有类。

ADP 无环依赖原则

　　在包的依赖关系图中不允许存在环。

SDP 稳定依赖原则

　　操着稳定的方向进行依赖。

SAP 稳定抽象原则

　　包的抽象程度应该和其稳定程度一致。

本文链接

敏捷宣言遵循的原则

Mon, 11 Oct 2010 21:32:00 +0800

我们最优先要做的是通过尽早的、持续的交付有价值的软件来使客户满意。
即使到了开发的后期，也欢迎改变需求。敏捷过程利用变化来为客户创造竞争优势。
经常性地交付可以工作的软件，交付的间隔可以从几个星期到几个月，交付的时间间隔越短越好。
在整个项目开发期间，业务人员和开发人员必须天天一起工作。
围绕被激励起来的个体来构建项目。给他们提供所需的环境和支持，并且信任他们能够完成工作。
在团队内部，最具有效果并且富有效率的传递信息的方法，就是面对面的交谈。
工作的软件是首要的进度度量标准。
敏捷过程提倡可持续的开发速度。责任人、开发者和用户应该保持一个长期的、恒定的开发速度。
不断地关注优秀的技能和好的设计会增强敏捷能力。
简单——使未完成的工作最大化的艺术——是根本的。
最好的架构、需求和设计出自于自组织的团队。
每隔一定时间，团队会在如何才能更有效地工作方面进行反省，然后相应地对自己的行为进行调整。

本文链接

Python学习笔记（11）：更多内容

Thu, 09 Sep 2010 21:15:00 +0800

1. 特殊方法

在类中有一些特殊的方法具有特殊的意义，如__init__和__del__方法。通常，特殊方法都被用来模仿某个行为。如果你要为你的类使用x[key]这样的索引操作，那么你只需要实现__getitem__()方法即可。

名称	说明
__init__(self, ...)	这个方法在新建对象恰好要被返回使用之前被调用。
__del__(self)	恰好在对象要被删除之前调用。
__str__(self)	在我们对对象使用print语句或是使用str()的时候调用。
__lt__(self, other)	当使用小于运算符（<）的时候调用。类似地，对于所有的运算符（+，>等等）都有特殊的方法。
__getitem__(self, key)	使用x[key]索引操作符的时候调用。
__len__(self)	对序列对象使用内建的len()函数的时候调用。

2. 单语句块

一般，每个语句块都是通过它的缩进层次与其他语句块分开的。然而，有时候你的语句块只包含一句语句，那么你可以在条件语句或循环语句的同一行指明它。

flag = True
if flag: print("Yes")

虽然这样做可以使你的程序变得小一些，但是除了检验错误之外我强烈建议你不要使用这种缩略方法。不使用它的一个主要的理由是一旦你使用了恰当的缩进，你就可以很方便地添加一个额外的语句。

3. 列表综合

通过列表综合，可以从一个已有的列表导出一个新的列表。例如，你有一个数的列表，而你想要得到一个对应的列表，使其中所有大于2的数都是原来的2倍。对于这种应用，列表综合是最理想的方法。

listone = [2, 3, 4]
listtwo = [2 * i for i in listone if i > 2]
print(listtwo)

这段话的意思是：将listone中的所有大于2的数分别乘以2，得出一个新的listtwo。运行结果：

[6, 8]

4. 在函数中接收元组和列表

当要使函数接收元组或字典形式的参数的时候，有一种特殊的方法，它分别使用*和**前缀。这种方法在函数需要获取可变数量的参数的时候特别有用。

def powersum(power, *args):
    '''Return the sum of each argument raised to specified power.'''
    total = 0
    for i in args:
        total += pow(i, power)
    return total

由于在args变量前有*前缀，所有多余的函数参数都会作为一个元组存储在args中。如果使用的是**前缀，多余的参数则会被认为是一个字典的键/值对。

5. lambda形式

lambda语句被用来创建新的函数对象，并且在运行时返回它们。

def make_repeater(n):
    return lambda s : s * n

twice = make_repeater(2)
print(twice("ha"))
print(twice(5))

运行结果：

haha

这里，我们使用了make_repeater函数在运行时创建新的函数对象，并且返回它。lambda语句用来创建函数对象。本质上，lambda需要一个参数，后面仅跟单个表达式作为函数体，而表达式的值被这个新建的函数返回。注意，即便是print语句也不能用在lambda形式中，只能使用表达式。

6. exec和eval语句

exec语句用来执行储存在字符串或文件中的Python语句。例如，我们可以在运行时生成一个包含Python代码的字符串，然后使用exec语句执行这些语句。

exec("print('Hello World')")

运行结果：

Hello World

eval语句用来计算存储在字符串中的有效Python表达式。

eval("2 * 3")

运行结果：

7. assert语句

assert语句用来声明某个条件是真的。例如，如果你非常确信某个你使用的列表中至少有一个元素，而你想要检验这一点，并且在它非真的时候引发一个错误，那么assert语句是应用在这种情形下的理想语句。当assert语句失败的时候，会引发一个AssertionError。

>>> mylist = ["item"]
>>> assert(len(mylist) >= 1)
>>> mylist.pop()
'item'
>>> assert(len(mylist) >= 1)
Traceback (most recent call last):
  File "<pyshell#13>", line 1, in <module>
    assert(len(mylist) >= 1)
AssertionError

8. repr函数

repr函数用来取得对象的规范字符串表示。注意，在大多数时候有eval(repr(object)) == object。

>>> i = []
>>> i.append("item")
>>> repr(i)
"['item']"

基本上，repr函数和反引号用来获取对象的可打印的表示形式。你可以通过定义类的__repr__方法来控制你的对象在被repr函数调用的时候返回的内容。

本文链接

Python学习笔记（10）：异常

Wed, 08 Sep 2010 23:09:00 +0800

当程序执行的时候，可能会出现一些异常现象，这个可能是会存在的。例如，你在读文件的时候，而那个文件不存在。此时，我们可以用异常来处理。

1. 错误

我们来做个简单的测试，我们故意把print方法写出Print。

>>> Print("Hello world")
Traceback (most recent call last):
File "<pyshell#0>", line 1, in <module>
Print("Hello world")
NameError: name 'Print' is not defined
>>>

系统会抛出NameError异常。

2. try..except

我们可以用try..except处理异常。

try:
    f = open("test.txt")
    f.close()
except(IOError):
    print("The file is not exist.")
except:
    print("Some error occurred.")

print("Done")

运行结果：

The file is not exist.
Done

3. 引发异常

你可以用raise语句来引发异常。我们先自定义一个ShortInputError异常，需要继承Exception类。

class ShortInputError(Exception):
    '''A user-defined exception class.'''
    def __init__(self, length, atleast):
        Exception.__init__(self)
        self.length = length
        self.atleast = atleast

try:
    s = input("Enter something -->")
    if len(s) < 3:
        raise(ShortInputError(len(s), 3))
    #Other work can continue as usual here
except(EOFError):
    print("Why did you do an EOF on me?")
except ShortInputError as e:
    print("ShortInputError: The input was of length %d, \
was expecting at least %d" % (e.length, e.atleast))
else:
    print("No exception was raised.")

输入两个字符运行结果：

>>>
Enter something -->tr
ShortInputError: The input was of length 2, was expecting at least 3
>>>

输入三个字符以上运行结果：

>>>
Enter something -->test
No exception was raised.
>>>

4. try..finally

假如你在读一个文件的时候，希望在无论异常发生与否的情况下都关闭文件，该怎么做呢？这可以使用finally块来完成。注意，在一个try块下，你可以同时使用except从句和finally块。如果你要同时使用它们的话，需要把一个嵌入另外一个。

import time

try:
    f = open("poem.txt")
    while True: # our usual file-reading idiom
        line = f.readline()
        if len(line) == 0:
            break
        time.sleep(2)
        print(line),
finally:
    f.close()
    print("Cleaning up...closed the file")

运行结果：

>>>
Programming is fun

When the work is done

if you wanna make your work also fun:

use Python!

Cleaning up...closed the file
>>>

def divide(x, y):
    try:
        result = x/ y
    except ZeroDivisionError:
        print("Division by zero!")
    else:
        print("result is", result)
    finally:
        print("executing finally clause")

测试结果：

>>> divide(2, 1)
result is 2.0
executing finally clause
>>> divide(2, 0)
Division by zero!
executing finally clause
>>> divide("2", "1")
executing finally clause
Traceback (most recent call last):
File "<pyshell#13>", line 1, in <module>
divide("2", "1")
File "<pyshell#10>", line 3, in divide
result = x/ y
TypeError: unsupported operand type(s) for /: 'str' and 'str'
>>>

本文链接

Python学习笔记（9）：输入/输出

Wed, 08 Sep 2010 22:08:00 +0800

通常，一个程序都会有输入/输出，这样可以与用户进行交互。用户输入一些信息，你会对他输入的内容进行一些适当的操作，然后再输出给用户想要的结果。Python的输入/输出，我们可以用input进行输入，print进行输出，这些都是简单的控制台输入/输出，复杂的有处理文件等。

1. input和print

name = input("Please input your name:\n")
print("Hello,", name)

运行结果：

Please input your name:
known
Hello, known

2. 处理文件

poem = '''\
Programming is fun
When the work is done
if you wanna make your work also fun:
    use Python!
'''

f = open('poem.txt', 'w') #open for 'w'riting
f.write(poem)             #write text to file
f.close()                 #close the file

f = open('poem.txt')
#if no mode is specified, 'r'ead mode is assumed by default
while True:
    line = f.readline()
    if len(line) == 0:#Zero length indicates EOF
        break
    print(line),
    #Notice comma to avoid automatic newline added by Python
f.close()#close the file

运行结果：

Programming is fun

When the work is done

if you wanna make your work also fun:

use Python!

open一个文件模式可以为读模式（'r'）、写模式（'w'）或追加模式（'a'），还有其他模式，你可以用help(open)来查看。

本文链接