PB从入坑到放弃（四）常用函数

写在前面

这一期呢，来整理下PB 常用的函数，包括系统的和一些自己封装好的函数
一、字符串相关

1.1  Len函数

获取字符串长度

① 语法

1. Len(string)

复制代码

②参数
string-->string 类型变量
③ 返回值

• 返回值：Long
  
• 函数执行成功时返回字符串长度，发生错误返回-1
  
• 函数执行成功时返回字符串长度，发生错误返回-1
  

1.2 Mid 函数

截取字符串

① 语法

1. Mid(string,start,length)

复制代码

② 参数

• string-->string类型，指定要从中要截取的字符串
  
• start-->long类型，指定字串第一个字符在string中的位置，第一个位置1
  
• length-->long类型，可选项，指定字串长度
  

③ 返回值

• 返回值：String
  
• 成功时返回string字符串中从start位置开始、长度为length的子串
  
• 如果start参数的值大于string中字符个数，那么Mid()函数返回空字符串
  
• 如果省略了length参数或length参数的值大于从start开始、string字符串中余下字符的长度，函数返回所有余下的字符
  
• 如果任何参数的值为NULL，函数返回NULL
  

1.3 Pos函数

在一个字符串中查找所包含的另一个字符串的起始位置

①语法

1. Pos ( string1, string2, start )

复制代码

② 参数

• string1-->string类型，目标字符串
  
• string2-->string类型，指定要在string1中查找的字符串
  
• start-->long类型，可选项，指定从string1的第几个字符开始查找 缺省值为1
  

③ 返回值

• 返回值：Long
  
• 成功时返回在start位置后string2在string1中第一次出现的起始位置。
  
• 如果在string1中按指定要求未找到string2、或start的值超过了string1的长度，那么Pos()函数返回0。
  
• 如果任何参数的值为NULL，函数返回NULL
  
• 用法Pos()函数在字符串查找时区分大小写，因此，xiezhr不匹配XIEZHR
  

1.4 Left函数

得到字符串左部指定个数的字符

①语法

1. Left ( string, n )

复制代码

② 参数

• string-->string类型，指定要提取子串的字符串
  
• n-->long类型，指定子串长度
  

③ 返回值

• 返回值 :String
  
• 成功时返回string字符串左边n个字符，发生错误时返回空字符串""
  
• 如果任何参数的值为NULL，Left()函数返回NULL
  
• 如果n的值大于string字符串的长度，函数返回整个string字符串，但并不增加其它字符
  

1.5 Right  函数

从字符串右端取指定个数字符

① 语法

1. Right ( string, n )

复制代码

② 参数

• string-->string类型，指定要提取子串的字符串
  
• n-->long类型，指定子串长度
  

③ 返回值

• 返回值：String
  
• 成功时返回string字符串右边n个字符，发生错误时返回空字符串""
  
• 如果任何参数的值为NULL，Right()函数返回NULL
  
• 如果n的值大于string字符串的长度，函数返回整个string字符串，并且不增加其它字符
  

1.6 Trim 函数

删除字符串首部和尾部的空格

① 语法

1. Trim ( string )

复制代码

② 参数
string-->string类型，要删除空格的目标字符串
③返回值

• 返回值：String
  
• 成功时返回删除了串首部和尾部空格的字符串，发生错误时返回空字符串（""）
  
• 如果任何参数的值为NULL，函数返回NULL
  

1.7 Match  函数

字符串中是否包含指定模式的字符

① 语法

1. Match ( string, textpattern )

复制代码

② 参数

• string-->string类型，要检查是否匹配指定模式的目标字符串
  
• textpattern-->string类型，指定文本匹配模式
  

③ 返回

• 返回值 Boolean
  
• 如果字符串string与模式textpattern相匹配，则函数返回true，否则返回false
  
• 如果指定的匹配模式无效或上述两个参数中的任何一个未曾赋值，那么Match()函数返回false
  
• 如果任何参数的值为NULL，函数返回NULL
  

1.8 Fill 函数

生成一个由指定字符串填充的指定长度的新字符串

① 语法

1. Fill ( string, n )

复制代码

② 参数

• string--> string类型，指定用于重复填充的字符串
  
• n-->long类型，指定由该函数返回的字符串的长度
  

③ 返回

• 返回值：String
  
• 成功时返回n个字符的字符串，该字符串以参数string中的字符串重复填充而成
  
• 如果参数string中的字符个数多于n个，那么使用string字符串的前n个字符填充函数返回的字符串
  
• 如果参数string中的字符个数少于n个，那么使用string字符串反复填充，直到返回的字符串长度达到n为止
  
• 如果任何参数的值为NULL，函数返回NULL
  

1.9 Lower  函数

将字符串中的大写字母转换为小写字母

① 语法

1. Lower ( string )

复制代码

② 参数
string-->需要转换的目标字符串
③ 返回

• 返回值：String
  
• 函数执行成功时返回将大写字母转换为小写字母后的字符串，发生错误时返回空字符串""
  
• 如果string参数的值为NULL，函数返回NULL
  

1.10 Upper 函数

将字符串中的小写字母转换为大写字母

① 语法

1. Upper( string )

复制代码

② 参数
string--> 需要转换的目标字符串
③ 返回

• 返回值：String
  
• 成功时返回将小写字母转换为大写字母后的字符串，发生错误时返回空字符串""
  
• 如果string参数的值为NULL，函数返回NULL
  

1.11 Replace 函数

将一个字符串中指定个数的字符串替换为另一个字符串

① 语法

1. Replace ( string1, start, n, string2 )

复制代码

② 参数

• string1--> string类型，指定要使用string2替换其中一部分内容的字符串
  
• start--> long类型，指定要从哪个字符位置开始替换字符串，字符串中第一个字符的位置为1
  
• n--> long类型，指定要替换多少个字符
  
• string2-->string类型，指定用哪个字符串替换string1的部分字符
  

③ 返回

• 返回值：String
  
• 成功时返回替换后的字符串，发生错误时返回空字符串""
  
• 如果start参数指定的位置超过了string1的长度，函数把将string2拼接到string1的后
  面形成的字符串返回
  
• 如果n的值为0，函数把string2插入到string1指定位置后形成的字符串返回
  
• 如果任何参数的值为NULL，函数返回NULL
  

1.12 Space  函数

生成一个由空格组成的指定字符个数的字符串

① 语法

1. Space ( n )

复制代码

② 参数
n-->long类型，指定要填充的空格个数，即填充后返回的字符串的长度
③ 返回

• 返回值：String
  
• 成功时返回由n个空格组成的字符串，发生错误时返回空字符串""
  
• 如果参数n的值为NULL，函数返回NULL
  

1.13 LeftTrim  函数

删除字符串左边空格

① 语法

1. LeftTrim ( string )

复制代码

② 参数
string-->string类型，需要处理的字符串
③ 返回

• 返回值：String
  
• 成功时返回删除了左部空格的字符串，发生错误时返回空字符串""
  
• 如果任何参数的值为NULL，函数返回NULL
  

1.14 RightTrim  函数

删除字符串右边空格

① 语法

1. RightTrim ( string )

复制代码

② 参数
string-->string类型，需要处理的字符串
③ 返回

• 返回值：String
  
• 成功时返回删除了string字符串右部空格的字符串，发生错误时返回空字符串""
  
• 如果任何参数的值为NULL，函数返回NULL
  

二、日期时间相关

2.1 Year  函数

获取日期中的年份

① 语法

1. Year(date)

复制代码

② 参数
date--> date类型的值
③ 返回

• 返回值：Integer
  
• 成功时得到date参数中的年份（四位数字），发生错误时返回1900
  
• 如果date参数的值为NULL，则函数返回null
  
• PB能够处理的年份从1000到3000之
  

2.2 Month  函数

获取日期中的月份

① 语法

1. Month ( date )

复制代码

② 参数
date--> date类型的值
③ 返回

• 返回值：Integer
  
• 成功时得到date参数中的月份（1到12之间）
  
• 如果date参数的值为NULL，函数返回NULL
  

2.3 Day  函数

获取日期中的号数(1到31之间的整数值)

① 语法

1. Day (date)

复制代码

② 参数
date--> date类型的值
③ 返回

• 返回值：Integer
  
• 成功时返回号数(1到31之间的整数值)
  
• 如果date参数的值为NULL，函数返回NULL
  

2.4 Hour 函数

获取时间值中的小时，采用24小时制

① 语法

1. Hour (time)

复制代码

② 参数
time-->time类型的值
③ 返回

• 返回值：Integer
  
• 成功时得到time参数中的小时（00到23之间）
  
• 如果time参数的值为NULL，函数返回NULL
  

2.5 Minute  函数

获取时间值中的分钟，00～59之间

① 语法

1. Minute (time)

复制代码

② 参数
time-->time类型的值
③ 返回

• 返回值：Integer
  
• 成功时得到time参数中的分钟（00到59之间）
  
• 如果time参数的值为NULL，函数返回NULL
  

2.6 Second  函数

获取时间值中的秒，在00～59之间

① 语法

1. Second (time)

复制代码

② 参数
time-->time类型的值
③ 返回

• 返回值：Integer
  
• 成功时得到time参数中的秒（00到59之间）
  
• 如果time参数的值为NULL，函数返回NULL
  

2.7 Today  函数

获取当前系统日期，在某些情况下，同时得到当前系统时间

① 语法

1. Today()

复制代码

② 参数
无
③ 返回

• 返回值：Date 当前系统日期
  
• 单独调用Today()函数时，返回当前系统日期
  
• 用做某些函数的参数、而该参数要求DateTime类型的值时，函数能够在返回当前系统日期的同时返回当前系统时间
  

2.8 Now  函数

获取客户机的当前系统时间

① 语法

1. Now()

复制代码

② 参数
无
③ 返回

• 返回值：Time 客户机的当前系统时间
  

2.9 RelativeDate  函数

获取指定日期前多少天或后多少天的日期

① 语法

1. RelativeDate(date,n)

复制代码

② 参数

• date-->Date类型，指定基准日期
  
• n-->integer类型，指定天数
  

③ 返回

• 返回值：Date
  
• 当n>0时返回指定日期后第n天的日期；
  
• 当n time类型，指定基准时间
  
• n--> long类型，指定秒数
  

③ 返回

• 返回值：Time
  
• 当n>0时返回指定时间后第n秒的时间；
  
• 当ndate类型，指定开始日期
  
• date2-->date类型，指定截止日期
  

③ 返回

• 返回值：Long
  
• 成功时得到两个日期之间的天数
  
• 如果date2的日期在date1的前面，函数返回负值。
  
• 如果任何参数的值为NULL，函数返回NULL
  

2.12 DayName  函数

获取指定日期是一周中的星期几(例如，Sunday, Monday...)

① 语法

1. RelativeTime (time, n)

复制代码

② 参数
date--> date类型值或变量
③ 返回

• 返回值：String
  
• 成功时返回指定日期的星期表示(例如，Sunday, Monday...)
  
• 如果date参数的值为NULL，函数返回NULL
  

2.13 DayNumber

获取指定日期是一星期中的第几天(用1到7之间的整数表示，星期天为1，星期一为2，...)。

① 语法

1. DaysAfter ( date1, date2 )

复制代码

② 参数
date-->date类型值或变量
③ 返回

• 返回值：Integer
  
• 成功时返回指定日期是一星期中的第几天(用1~7表示，星期天为1，星期一为2，...)
  
• 如果date参数的值为NULL，函数返回NULL
  

三、配置文件读取

配置文件xiezhr.ini 内容如下

1. DayName ( date )

复制代码

3.1 ProfileString函数

获取配置文件中指定节点内容

① 语法

1. DayNumber ( date )

复制代码

② 参数

• filename--> 配置文件名称
  
• nodename--> 配置文件中的节点名称
  
• default_value--> 未找到指定的节或键，则返回的默认值
  

③ 返回

• 返回值：string
  
• 如果找到指定的节和键，则返回对应的值
  
• 如果未找到指定的节或键，则返回默认值default_value
  

④ 举个栗子
我们来获取项目根目录下xiezhr.in配置文件中的数据库用户名、密码、连接信息

1. [transaction]
2. DBMS =O84 Oracle8/8i (8.x.4+)
3. username =xiezhr
4. password =xiezhr
5. servername =127.0.0.1:1521/orcl

复制代码

3.2 SetProfileString 函数

设置配置文件中指定节点内容

① 语法

1. ProfileString(filename,nodename,default_value)

复制代码

② 参数

• filename--> 配置文件名称
  
• nodename-->节点名称
  
• sourcename-->节点下目标位置名称
  
• value--> 需要设置的值
  

③ 返回

• 返回值：Integer
  
• 如果成功写入值，则返回0
  
• 如果写入失败，则返回-1
  

④ 举个栗子
我们修改项目更目录下xiezhr.ini配置文件内容,将username值设置成xiezhr

1. ls_username = ProfileString("xiezhr.ini","transaction","username","scott")
2. ls_password = ProfileString("xiezhr.ini","transaction","password","tiger")
3. ls_servername = ProfileString("xiezhr.ini","transaction","servername","127.0.0.1:1521/orcl")

复制代码

四、数组相关

string ls_arr[]
4.1 upperbound  函数

获取数组长度

① 语法

1. SetProfileString(filename,nodename,sourcename,value)

复制代码

② 参数
array-->数组名  ls_arr
③ 返回

• 返回值：long
  
• 成功返回：array数组长度
  
• 失败返回：-1
  

4.2 lowerbound  函数

获取指定数组数组的下界

① 语法

1. SetProfileString('xiezhr.ini','transaction','username',xiezhr')

复制代码

② 参数
array-->数组名  ls_arr
③ 返回

• 返回值：long
  
• 成功返回：array数组长度
  
• 失败返回：-1
  

小技巧
怎么将数组置空？

1. upperbound(array)

复制代码

五、数据类型转换

5.1 String  函数

按照指定格式将数据转换成字符串

① 语法

1. lowerbound(array)

复制代码

② 参数
data--> 指定需要转换的数据，据类型可以是Date、DateTime、数值类型、Time
format--> 可选项，指定转换的数据格式
数据格式说明如下
Ⅰ 需要转换的数据data 为数值

语法格式为：正数格式；负数格式；零的显示格式

• #  代表0~9之间的任意数字
  
• 0 代表每个零都要显示
  
• $或￥  代表货币符号
  
• %  百分号
  
• .  小数点
  
• ， 逗号
  

注意：除小数点（.）、逗号（，）能够出现在格式字符#和0之间外，其它字符只能放置在格式串的前面或后面
如果显示格式有多个部分，各部分之间的分号（；）不能省略
Ⅱ 需要转换的数据data 为字符串

语法格式为：正常字符串格式

• @代表字符串中的任意字符
  
• @除外任何字符照原样显示
  

举个栗子

1. string ls_arr[],ls_null[]
2. int i
3. for i=1 to 10
4.         ls_arr[i]=string(i)
5. next
6. messagebox('数组长度',UpperBound(ls_arr))
7. ls_arr = ls_null
8. messagebox('数组长度',UpperBound(ls_arr))

复制代码

Ⅲ 需要转换的数据data为日期
1）年份

• yy两位数字表示的年份（如92）
  
• yyyy四位数字表示的年份（如1992）
  2）月份
  
• m开头不带0的月份（如9）
  
• mm开头带0的月份（如09）
  
• mmm月份的英文缩写（如Feb）
  
• mmmm月份的英文全称（如February）
  3）日
  
• d开头不带0的日数（如9）
  
• dd开头带0的日数（如09）
  
• ddd星期的英文缩写（如Mon）
  
• dddd星期的英文全称（如Monday）
  

• windows系统定义的格式
  

• [General] Windows系统中定义的短日期格式
  
• [LongDate] Windows系统中定义的长日期格式
  
• [ShortDate] Windows系统中定义的短日期格式
  

Ⅳ 需要转换的数据data为时间
1） 小时

• h开头不带0的小时（比如6）
  
• hh开头带0的小时（比如06）
  2） 分钟
  
• h开头不带0的小时（比如6）
  
• hh开头带0的小时（比如06）
  3） 秒
  
• s开头不带0的秒（比如6）
  
• ss开头带0的秒（比如06）
  

4）上午下午

• AM/PM 显示上、下午时间
  
• am/pm显示上、下午时间
  
• A/P显示上、下午时间
  
• a/p显示上、下午时间
  

5.2 Time  函数

把其他类型数据转换成Time类型的值

① 语法

1. String(data,{format})

复制代码

② 参数

• datetime  --> DateTime类型的值或第一个值是DateTime或Time的Blob类型的值
  
• string  --> string类型，其值包括一个有效的以字符串形式表示的时间（比如9am或10:25）
  
• hour, minute, second {, microsecond }  
  
  
  
  • hour-->  integer类型，指定时间中的小时，从0到23
    
  • minute-->integer类型，指定时间中的分钟，从0到59
    
  • second-->integer类型，指定时间中的秒，从0到59
    
  • microsecond -->integer类型，可选项，指定时间中的微秒，从0到32767
    
  
  

③ 返回
Ⅰ datetime 转换

• 返回值：Time
  
• 成功时返回相应的Time类型值
  
• 如果datetime参数中的值不是有效时间或数据类型不兼容，函数返回00:00:00.000000
  
• 如果datetime参数的值为NULL，函数返回NULL
  Ⅱ 字符串转换
  
• 返回值：Time
  
• 成功时返回相应的Time类型值
  
• string参数中的值不是有效格式时间，函数返回00:00:00.000000
  
• 如果string参数的值为NULL，函数返回NULL
  Ⅲ 时分秒毫秒合成时间
  
• 返回值：Time
  
• 成功时返回由hour、minute、second、microsecond 四个参数确定的时间
  
• 如果这四个参数中任何一个参数使用了无效值,函数返回NULL
  

5.3 Date  函数

将其它类型的数据转换为Date类型的数据

① 语法

1. string("0166767593",（@@）@@@@-@@@@)
2. //显示为（01）6676-7593

复制代码

② 参数

• datetime  --> DateTime类型的值或第一个值是DateTime或Time的Blob类型的值
  
• string  --> string类型，有效字符串形式的日期（比如1992-09-23）
  
• year, month, day
  
  
  
  • year-->  integer类型，指定日期中的年份，用四位数字表示，从0到9999
    
  • month-->integer类型，定日期中的月份，用一位或两位数字表示，从1到12
    
  • day-->integer类型，指定日期中的号数，用一位或两位数字表示，从1到31
    
  
  

③ 返回
Ⅰ datetime 转换日期

• 返回值：Date
  
• 成功时返回相应的Date类型值
  
• 如果datetime参数中的值不是有效日期或数据类型不兼容，函数返回1900-01-01
  
• 如果datetime参数的值为NULL，函数返回NULL
  

Ⅱ 字符串转换日期

• 返回值：Date
  
• 函数执行成功时返回相应的Date类型值。
  
• 如果string参数中的值不是有效日期或数据类型不兼容，函数返回1900-01-01
  
• 如果string参数的值为NULL，函数返回NULL
  

Ⅲ 年月日合成日期

• 返回值：Date
  
• 函数执行成功时返回由year、month、day三个参数确定的日期
  
• 如果这三个参数中任何一个参数使用了无效值（比如月份指定为15），函数返回1900-01-01
  
• 如果任何参数的值为NULL，函数返回NULL
  

5.4 DateTime  函数

将其它类型的数据转换为DateTime类型的数据

① 语法

1. Ⅰ 将DateTime类型或第一个值是DateTime或Time的Blob值转换成Time类型的值
2. Time ( datetime )
3. Ⅱ 将其值是个有效时间的字符串转换成Time类型的值
4. Time ( string )
5. Ⅲ 将表示时、分、秒、以及微秒的整数组合成一个时间值
6. Time(hour, minute, second {, microsecond })  

复制代码

② 参数
Ⅰ日期和时间值组合成DateTime类型的值

• date-->Date类型的日期值
  
• time-->可选参数，Time类型的时间值,省略时，时间默认是00:00:00.000000
  

Ⅱ Blob类型的值转换成DateTime类型的值

• blob  -->Blob类型变量  把该变量第一个值转换为DateTime类型的值 ,blob参数也可以是包含blob类型数据的Any类型变量
  

③ 返回
Ⅰ 日期和时间值组合成DateTime类型的值

• 返回值：DateTime
  
• 成功时返回日期和时间组合而成的DateTime类型的值
  
• 如果任何参数的值为NULL，函数返回NULL
  

Ⅱ 将Blob类型的值转换成DateTime类型的值

• 返回值：DateTime
  
• 成功时返回相应的DateTime类型值
  
• 如果blob参数的值为NULL,函数返回NULL
  

5.5 Asc  函数

获取字符串第一个字符的ASCII码整数值

① 语法

1. Ⅰ将DateTime类型或第一个值是DateTime或Date的Blob值转换成Date类型的值
2. Date ( datetime )
3. Ⅱ 将有效日期的字符串转换成Date类型的值
4. Date ( string )
5. Ⅲ 将年、月、日合成一个日期
6. Date ( year, month, day )

复制代码

② 参数
string-->目标字符串
③ 返回

• 返回值：integer
  
• 行成功时返回string参数第一个字符的ascii值
  
• 如果string参数的值为null，函数返回null
  

5.6 Char  函数

将字符串的第一个字符、Blob变量的第一个值、或一个整数转换成字符

① 语法

1. Ⅰ 把日期和时间值组合成DateTime类型的值
2. DateTime ( date {, time } )
3. Ⅱ 将Blob类型的值转换成DateTime类型的值
4. DateTime ( blob )

复制代码

② 参数
any-->字符串、Blob变量或整数，也可以是包含上述类型数据的Any类型变量
③ 返回

• 返回值：Char
  
• 返回参数any的第一个字符
  
• 如果any参数的值为NULL，函数返回NULL
  

5.7 Dec  函数

将字符串或Blob值转换成Decimal类型的值

① 语法

1. Asc ( string )

复制代码

② 参数
strorblob-->string类型变量或Blob类型变量
③ 返回

• 返回值：Decimal
  
• 成功时返回相应的Decimal类型值
  
• 如果strorblob参数中的值不是有效数字或数据类型不兼容，函数返回0
  
• 如果strorblob参数的值为NULL，函数返回NULL
  

5.8 Double  函数

字符串或Blob值转换成Double类型的值

① 语法

1. Char ( any )

复制代码

② 参数
strorblob-->string类型变量或Blob类型变量
③ 返回

• 返回值：Double
  
• 成功时返回相应的Double类型值
  
• 如果strorblob参数中的值不是有效数字或数据类型不兼容，函数返回0
  
• 如果strorblob参数的值为NULL，函数返回NULL
  

5.9 Integer  函数

将字符串或Blob值转换成Integer类型的值

① 语法

1. Dec ( strorblob )

复制代码

② 参数
strorblob-->string类型变量或Blob类型变量
③ 返回

• 返回值：Integer
  
• 成功时返回相应的Integer类型值
  
• 如果strorblob参数中的值不是有效数字或数据类型不兼容，函数返回0
  
• 如果strorblob参数的值为NULL，函数返回NULL
  

5.10 Long  函数

将其它类型的数据转换为Long类型的值

① 语法

1. Double(strorblob)

复制代码

② 参数
Ⅰ 将两个无符号整数组合成一个长整数值

• lowword -->UnsignedInteger类型，指定长整数中的低位值
  
• highword -->UnsignedInteger类型，指定长整数中的高位值
  

Ⅱ 字符串或Blob值转换成Long类型的值
strorblob-->string类型变量或Blob类型变量
③ 返回
Ⅰ 将两个无符号整数组合成一个长整数值

• 返回值:Long
  
• 成功时返回由低位值和高位值组合后的长整数值
  
• 发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

Ⅱ 字符串或Blob值转换成Long类型的值

• 返回值:Long
  
• 成功时返回由低位值和高位值组合后的长整数值
  
• 发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

5.11 Real  函数

将字符串或Blob值转换成Real类型的值

① 语法

1. Integer ( strorblob )

复制代码

② 参数
strorblob-->string类型变量或Blob类型变量
③ 返回

• 返回值：Real
  
• 成功时返回相应的Real类型值
  
• 如果strorblob参数中的值不是有效数字或数据类型不兼容，函数返回0
  
• 如果stringorblob参数的值为NULL,函数返回NULL
  

5.12 IsDate  函数

判断指定的字符串是否包含有效的日期

① 语法

1. Ⅰ 将两个无符号整数组合成一个长整数值
2. Long ( lowword, highword )
3. Ⅱ 字符串或Blob值转换成Long类型的值
4. Long ( strorblob )

复制代码

② 参数
strvalue-->string类型，指定要判断的字符串
③ 返回

• 返回值：Boolean
  
• 如果strvalue包含了有效的日期，函数返回TRUE，否则返回FALSE
  
• 如果strvalue参数的值为NULL，函数返回NULL
  

5.13 IsNumber  函数

判断字符串是否是有效的数值

① 语法

1. Real ( strorblob )

复制代码

② 参数
strvalue-->string类型，指定要判断的字符串
③ 返回

• 返回值：Boolean
  
• 如果strvalue的值为有效数字，函数返回TRUE，否则返回FALSE
  
• 如果strvalue参数的值为NULL，函数返回NULL
  

5.14 IsTime  函数

判断字符串的值是否是有效的时间

① 语法

1. IsDate ( strvalue )

复制代码

② 参数
strvalue-->string类型，指定要判断的字符串
③ 返回

• 返回值：Boolean
  
• 如果strvalue的值为有效的时间，函数返回TRUE，否则返回FALSE
  
• 如果strvalue参数的值为NULL，函数返回NULL
  

5.15 IsNull 函数

判断值是否是NULL

① 语法

1. IsNumber ( strvalue )

复制代码

② 参数
any：任何变量或表达式
③ 返回

• 返回值：Boolean
  
• 如果any的值为NULL，函数返回TRUE，否则返回FALSE
  

5.16 IsValid  函数

判断对象变量是否已经实例化

① 语法

1. IsTime ( strvalue )

复制代码

② 参数
objectname-->要检测的对象名
③ 返回

• 返回值：Boolean
  
• 如果指定对象已经创建了对象实例，函数返回TRUE，否则返回FALSE
  
• 如果参数objectname的值为NULL，函数返回NULL
  

5.17 SetNull  函数

将指定变量的值设置为NULL。这里的变量可以是除数组、结构、自动实例化对象之外的任何数据类型

① 语法

1. IsNull(any)

复制代码

② 参数
anyvariable-->要将其值设置为NULL的变量
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果参数的值为NULL，函数返回NULL
  

六、数值计算

6.1 Abs 函数

计算绝对值

① 语法

1. IsValid ( objectname )

复制代码

② 参数
n-->要求绝对值的数值型变量   或  返回值为数值的表达式
③ 返回

• 成功时返回n的绝对值
  
• 如果参数n的值为NULL，返回NULL
  

6.2 Ceiling  函数

返回大于n的最小整数

① 语法

1. SetNull ( anyvariable )

复制代码

② 参数
n-->数值型变量   或  返回值为数值的表达式
③ 返回

• 成功时返回大于n的最小整数。
  
• 如果参数n的值为NULL，函数返回NULL
  

6.3  Cos 函数

计算余弦

① 语法

1. Abs ( n )

复制代码

② 参数
n-->数值型变量   或  返回值为数值的表达式
③ 返回

• 成功时返回n的余弦
  
• 如果参数n的值为NULL，返回NULL
  

6.4 Exp  函数

计算e的n次方

① 语法

1. Ceiling ( n )

复制代码

② 参数
n-->指定幂值
③ 返回

• 返回值：Double
  
• 成功时返回e（约等于2.71828）的n次方。
  
• 如果参数n的值为NULL，返回NULL
  

6.5 Fact  函数

计算n的阶乘

① 语法

1. Cos ( n )

复制代码

② 参数
n-->数值型变量   或  返回值为数值的表达式
③ 返回

• 返回值：Double
  
• 成功时返回n的阶乘。
  
• 如果参数n的值为NULL，返回NULL
  

6.6 Int  函数

得到小于等于n的最大整数

① 语法

1. Exp ( n )

复制代码

② 参数
n-->数值型变量   或  返回值为数值的表达式
③ 返回

• 返回值：Integer
  
• 成功时返回小于等于n的最大整数
  
• 如果n的值太小或太大，超过了整数的表示范围，则函数返回0。
  
• 如果参数n的值为NULL，返回NULL
  

6.7 Log  函数

计算n的自然对数

① 语法

1. Fact ( n )

复制代码

② 参数
n-->数值型变量   或  返回值为数值的表达式值必须大于0
③ 返回

• 返回值：Double
  
• 成功时返回n的自然对数
  
• 如果n小于等于0，将导致运行错误
  
• 如果参数n的值为NULL，返回NULL
  

6.8 LogTen  函数

计算n的常用对数（以10为底）

① 语法

1. Int ( n )

复制代码

② 参数
n-->数值型变量   或  返回值为数值的表达式值必须大于0
③ 返回

• 返回值：Double
  
• 成功时返回n的常用对数
  
• 如果n小于等于0，将导致运行错误
  
• 如果参数n的值为NULL，函数返回NULL
  

6.9 Max  函数

求两个数中最大值

① 语法

1. Log ( n )

复制代码

② 参数

• x-->数值型变量或表达式，参加比较的第一个数
  
• y -->数值型变量或表达式，参加比较的第二个数
  

③ 返回

• 成功时返回参数比较的两个数中更大者。
  
• 如果任何参数的值为NULL，返回NULL
  

6.10 Min  函数

两个数中的最小值

① 语法

1. LogTen ( n )

复制代码

② 参数
x-->数值型变量或表达式，参加比较的第一个数
y -->数值型变量或表达式，参加比较的第二个数
③ 返回

• 成功时返回参数比较的两个数中较小者
  
• 如果任何参数的值为NULL，返回NULL
  

6.11 Mod  函数

求余数

① 语法

1. Max ( x, y )

复制代码

② 参数
x-->数值型变量或表达式，被除数
y -->数值型变量或表达式，除数
③ 返回

• 成功时返回x除以y所得的余数
  
• 如果任何参数的值为NULL，数返回NULL
  

6.12 Pi  函数

计算n与Pi(3.14159265358979323...)的乘积

① 语法

1. Min( x, y )

复制代码

② 参数
n-->数值型变量或表达式
③ 返回

• 返回值：Double
  
• 函数执行成功时返回n与Pi(3.14159265358979323...)的乘积
  
• 发生错误时返回-1
  
• 如果参数n的值为NULL，返回NULL
  

6.13 Rand  函数

得到1与n之间的一个伪随机数

① 语法

1. Mod ( x, y )

复制代码

② 参数
n：数值型变量或表达式 产生随机数的最大值 1到32,767之间
③ 返回

• 成功时返回1与n之间的一个伪随机数，包括1和n在内
  
• 如果参数n的值为NULL，函数返回NULL
  

6.14 Randomize  函数

初始化伪随机数发生器，这样让应用程序每次使用不同的伪随机数序列

① 语法

1. Pi ( n )

复制代码

② 参数
n-->数值型变量或表达式，指定伪随机数生成器使用的起始值，不同的起始值可以生成不同的伪随机数序列
注：n的值在0到32,767之间
③ 返回

• 返回值：Integer
  
• 当n的值为0时，该函数把系统时钟作为伪随机数生成器的起始值，这样可以生成不可重复的伪随机数序列
  
• 当n的值不为0时，可以产生不同的伪随机数序列，但是，如果两次使用相同的伪随机数生成器起始值，那么两
  次生成的伪随机数序列相同
  

6.15 Round  函数

将x四舍五入到n位

① 语法

1. Rand ( n )

复制代码

② 参数

• x-->要四舍五入的数值型数据
  
• n-->整数类型，指定从哪个小数位上四舍五入x。
  注：有效值在0到18之间
  

③ 返回

• 返回值：Decimal
  
• 成功时返回将x四舍五入到小数点后第n位的数值，
  
• 如果函数执行失败或任何参数的值为NULL，函数返回NULL
  

6.16 Sign  函数

确定n是整数、负数还是零

① 语法

1. Randomize ( n )

复制代码

② 参数
n-->数值型变量或表达式
③ 返回

• 返回值Integer
  
• 当n大于0时返回1
  
• 当n小于0时返回-1
  
• 当n等于0时返回0
  
• 如果参数n的值为NULL，函数返回NULL
  

6.17 Sin  函数

计算正弦，其中参数以弧度为单位

① 语法

1. Round ( x, n )

复制代码

② 参数
n-->数值型变量或表达式
③ 返回

• 返回值：Double
  
• 成功时返回n的正弦
  
• 如果参数n的值为NULL，返回NULL
  

6.18 Sqrt  函数

计算平方根

① 语法

1. Sign ( n )

复制代码

② 参数
n-->数值型变量或表达式  n的值大于0
③ 返回

• 返回值：Double
  
• 函数执行成功时返回n的平方根。
  
• 如果n是负数，则执行该函数时引发运行错误。
  
• 如果参数n的值为NULL，返回NULL
  

6.19 Tan  函数

计算正切，其中参数以弧度为单位

① 语法

1. Sin( n )

复制代码

② 参数
n-->数值型变量或表达式
③ 返回

• 返回值：Double
  
• 成功时返回n的正切值
  
• 如果参数n的值为NULL，返回NULL
  

6.20 Truncate  函数

截断数值到指定的小数位 , 所谓截断就是舍弃指定位之后的数值

① 语法

1. Sqrt ( n )

复制代码

② 参数

• x-->要截断的数值型数据
  
• n-->整数类型，指定从哪个小数位上截断x
  

注：有效值在0到18之间
③ 返回

• 返回值：Decimal
  
• 成功时返回将x截断到小数点后第n位的数值
  
• 失败或任何参数的值为NULL，返回NULL
  

七、定时相关

7.1 CPU 函数

到自当前应用程序启动后开始CPU所消耗的时间，以毫秒为单位

① 语法
CPU()
② 参数
无
③ 返回

• 返回值：Long
  
• 返回自当前应用程序启动后开始CPU所消耗的时间，以毫秒为单位
  

7.2 Timer  函数

在指定的时间间隔内反复触发指定窗口的定时器事件

① 语法

1. Tan( n )  

复制代码

② 参数

• interval-->指定两次触发Timer事件之间的时间间隔，有效值在0到65之间
  
• windowname-->窗口名，指定时间间隔到时要触发哪个窗口的Timer事件。省略该参数时，触发当前窗口的Timer事件
  

注：
参数的值指定为0，那么关闭定时器，不再触发指定窗口的Timer事件
7.3 Idle  函数

该函数在用户每次活动（例如，按键盘、移动鼠标等）后重置定时器，n秒后触发应用对象的Idle事件

① 语法

1. Truncate ( x, n )

复制代码

② 参数
n-->指定空闲时间间隔，以秒为单位
参数的值设置为0时，停止空闲检测，不再触发应用对象的Idle事件
③ 返回

• 返回值：Integer
  
• 成功时返回1，此时启动定时器
  
• 如果不能启动定时器或定时器未启动而n的值指定为0时，函数返回-1
  
• 如果任何参数的值为NULL，返回NULL
  

八、注册表相关

8.1 RegistrySet  函数

在系统注册库中设置或创建指定键

① 语法

1. Timer ( interval {, windowname } )

复制代码

② 参数

• key-->string类型，指定键名
  
• valuename-->string类型，指定要访问值的名称
  
  
  
  • 每个键可以有一个未命名的值和多个命名的值
    
  • 要访问未命名的值，把该参数指定为空字符串（""）
    
  • 如果注册库中不存在指定值名，该函数将创建新的值名
    
  
  
• valuetype-->RegistryValueType枚举类型，指定值的数据类型。有效取值请参看用法
  
• value-->要设置的值，其数据类型应该与valuetype参数指定的类型相匹配
  

③ 返回

• 返回值:Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果valuevariable的数据类型与valuetype参数指定的类型不匹配，将引发运行错误
  

④ 举个栗子

1. Idle ( n )

复制代码

8.2  RegistryGet  函数

从系统注册库中得到指定键的值

① 语法

1. RegistrySet ( key, valuename, valuetype, value )

复制代码

② 参数

• key-->string类型，指定键名
  
• valuename-->string类型，指定要访问值的名称。每个键可以有一个未命名的值和多个命名的值。要访问未
  命名的值，把该参数指定为空字符串""
  
• valuetype-->RegistryValueType枚举类型，指定值的数据类型。有效取值请参看用法
  
• valuevariable-->用于保存键值的变量，其数据类型应该与valuetype参数指定的类型相匹配
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果valuevariable的数据类型与valuetype参数指定的类型不匹配，将引发运行错误
  

④ 举个栗子

1. //利用注册表修改ODBC配置信息
2. RegistrySet( 'HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources','localdb',REGSTRING!,'Driver do Microsoft Access (*.mdb)')

复制代码

8.3 RegistryDelete  函数

删除Windows系统注册库中的一个键或键的某个值

① 语法

1. RegistryGet ( key, valuename, valuetype, valuevariable )

复制代码

② 参数

• key-->string类型，指定键名，将删除该键或删除该键的某个值
  
• valuename-->string类型，指定要删除的值的名称
  注：如果想删除键、键的值、以及其下的所有子键，那么将该参数指定为空字符串
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  

④ 举个栗子

1. //取得打印机驱动程序名称        RegistryGet("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print\Printers"+str_printername,"Printer Driver", RegString!,str_driver)

复制代码

8.4 RegistryKeys  函数

从系统注册库中得到指定键的有效子键

① 语法

1. RegistryDelete ( key, valuename )

复制代码

② 参数

• key-->string类型，指定键名
  
• subkeys-->字符串数组变量，用于保存各子键
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  

④ 举个栗子

1. event clicked;Registrydelete( "HKEY_LOCAL_MACHINE\Software\NEUHIS", "")

复制代码

8.5 RegistryValues  函数

得到与指定键相关的一组值名

① 语法

1. RegistryKeys ( key, subkeys )

复制代码

② 参数

• key-->string类型，指定键名
  
• valuename-->字符串数组变量，用于保存值名
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  

九 、文件操作相关

9.1 FileOpen  函数

以指定的读写方式打开指定的文件，同时返回该文件的句柄

① 语法

1. string str_printer[]  //定义一个字符串型数组
2. int_return = RegistryKeys("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print\Printers", str_printer)

复制代码

② 参数

• filename-->string类型，指定要打开文件的名称，其中可以包含路径
  
• filemode-->FileMode枚举类型，可选项，指定文件打开方式
  
  
  
  • ​     LineMode! - 缺省值，行模式
    
  • StreamMode! - 流模式
    
  
  
• fileaccess-->FileAccess枚举类型，可选项，指定文件访问方式。
  
  
  
  • Read! - 缺省值，只读方式，这样打开的文件只能进行读操作；
    
  • Write! - 只写方式，这样打开的文件只能进行写操作
    
  
  
• filelock-->FileLock枚举类型，可选项，指定文件加锁方式
  
  
  
  • n LockReadWrite! - 缺省值，只有打开该文件的用户能够访问该文件，其它用 户对该文件的访问均被拒
    
  • n LockRead! - 只有打开该文件的用户能够读该文件，但其它任何用户均可写该文件
    
  • n LockWrite! - 只有打开该文件的用户能够写该文件，但其它任何用户均可读该文件
    
  • n Shared! - 所有用户均可读写该文件
    
  
  
• writemode-->WriteMode枚举类型，可选项
  
  
  
  • Write!  该参数指定在指定文件已经存在时数据的添加方式
    
  • Append! - 缺省值，将数据添加到原文件尾部
    
  • Replace! - 覆盖原有数据
    
  
  
• creator-->可选项，用于Macintosh机，使用四个字符的字符串指定文件的创建者。指定该参数后，必须同时
  指定filetype参数
  
• filetype-->可选项，用于Macintosh机，使用四个字符的字符串指定文件类型
  

③ 返回

• 返回值：Integer
  
• 成功时返回打开文件的句柄，随后的文件操作函数利用该句柄完成对文件的操作
  
• 发生错误时函数返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

④ 举个栗子

1. RegistryValues ( key, valuename )

复制代码

9.2 FileWrite  函数

向指定文件中写数据

① 语法

1. FileOpen(filename{,filemode{,fileaccess{,filelock{,writemode,{creator,filetype}}}}})

复制代码

② 参数
fileno-->integer类型，指定文件句柄（由FileOpen()函数得到）
variable-->string或blob类型，其值将写入fileno参数指定的文件
③ 返回

• 返回值：Integer
  
• 成功时返回写入文件的字符或字节数，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

④ 举个栗子

1. int li_file_no
2. string ls_getpath_data
3. ls_getpath_data = "F:\xiezhr.txt"
4. li_file_no = FileOpen(ls_getpath_data,LineMode!,Write!,Shared!,Append!)

复制代码

9.3 FileRead  函数

从指定文件中读取数据

① 语法

1. FileWrite (fileno , variable )

复制代码

② 参数
fileno-->integer类型，指定文件句柄（由FileOpen()函数得到）
variable-->string或blob类型的变量，用于保存读取的数据
③ 返回

• 返回值：Integer
  
• 成功时返回读取的字符数或字节数；
  
• 如果在读取任何字符前读到了文件结束符（EOF），函数返回-100
  
• 当指定文件以行模式打开时，如果在读取任何字符之前遇到了回车（CR）或换行（LF）字符，函数返回0
  
• 如果发生其它错误，返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

④ 举个栗子
将xiezhr.txt 文件中的内容读取出来放到变量ls_Input 中

1. int li_file_no
2. string ls_getpath_data
3. string ls_writed
4. string ls_err
5. ls_writed = "个人公众号：XiezhrSpace"
7. ls_getpath_data =  "F:\xiezhr.txt"
8. li_file_no = FileOpen(ls_getpath_data,LineMode!,Write!,Shared!,Append!)
10. if li_file_no = 0 then
11.    ls_err ="不能打开文件!"
12.         FileClose(li_file_no)
13.         return -1
14. else
15.         if FileWrite(li_file_no, ls_writed) < 0 then                                   
16.                   ls_err = "写文件出错！"
17.                   FileClose(li_file_no)
18.                   return -1
19.          end if
20. end if

复制代码

9.4 FileClose  函数

关闭先前用FileOpen()函数打开的文件

① 语法

1. FileRead ( fileno, variable )

复制代码

② 参数
fileno-->integer，指定要关闭文件的文件句柄，该句柄使用FileOpen()函数打开文件时得到
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果fileno参数的值为NULL，函数返回NULL
  

9.5 FileExists  函数

检查指定的文件是否存在

① 语法

1. int li_FileNum
2. string ls_path
3. string ls_Input
4. ls_path =  "F:\xiezhr.txt"
5. li_FileNum = FileOpen(ls_path, LineMode!)
6. FileRead(li_FileNum, ls_Input)

复制代码

② 参数
filename-->string类型，指定要检查存在性的文件的文件名，其中可以包含路径
③ 返回

• 返回值：Boolean
  
• 如果指定文件存在时返回TRUE，不存在时返回FALSE
  
• 如果filename参数的值为NULL，函数返回NULL
  

9.6 FileDelete  函数

删除指定的文件

① 语法

1. FileClose ( fileno )

复制代码

② 参数
filename-->string类型，指定要删除文件的文件名，其中可以包含路径
③ 返回

• 返回值：Boolean
  
• 成功时返回TRUE，发生错误时返回FALSE
  
• 如果filename参数的值为NULL，函数返回NULL
  

9.7 FileLength   函数

得到指定文件的长度（以字节为单位）

① 语法

1. FileExists ( filename )

复制代码

② 参数
filename-->string类型，指定要得到其长度的文件的文件名，其中可以包含路径
③ 返回

• 返回值：Long
  
• 成功时返回指定文件的长度（以字节为单位）
  
• 如果指定的文件不存在，函数返回-1
  
• 如果filename参数的值为NULL，函数返回NULL
  

9.8 FileSeek  函数

将文件指针移动到指定位置。读写文件时相应函数会自动移动文件指针

① 语法

1. FileDelete ( filename )

复制代码

② 参数

• fileno-->integer类型，指定文件句柄（由FileOpen()函数得到）
  
• position-->long类型，指定相对于origin参数指定位置的新位置偏移量，以字节为单位
  
• origin-->eekType枚举类型，指定从哪里开始移动文件指针，即指针移动的基准
  
  
  
  • FromBeginning! - 缺省值，从文件开头移动指针
    
  • FromCurrent! - 从当前位置移动文件指针
    
  • FromEnd! - 从文件结尾处移动文件指针
    
  
  

9.9 GetFileOpenName   函数

显示打开文件对话框，让用户选择要打开的文件

① 语法

1. FileLength ( filename )

复制代码

② 参数

• title-->string类型，指定对话框的标题
  
• pathname-->string类型变量，用于保存该对话框返回的文件路径及文件名
  
• filename-->string类型变量，用于保存该对话框返回的文件名
  
• extension-->string类型，可选项，使用1到3个字符指定缺省的扩展文件名
  
• filter-->string类型，可选项，其值为文件名掩码，指定显示在该对话框的列表框中供用户选择的文件名满
  足的条件（比如.，.TXT，.EXE等）
  

③ 返回

• 返回值：Integer
  
• 成功时返回1
  
• 当用户单击了对话框上的“Cancel”按钮时函数返回0
  
• 发生错误时返回-1。
  
• 如果任何参数的值为NULL，函数返回NULL
  

9.10 GetFileSaveName  函数

显示保存文件对话框，让用户选择要保存到的文件

① 语法

1. FileSeek ( fileno, position, origin )

复制代码

② 参数
title-->string类型，指定对话框的标题
pathname-->string类型变量，用于保存该对话框返回的文件路径及文件名
filename-->string类型变量，用于保存该对话框返回的文件名
extension-->string类型，可选项，使用1到3个字符指定缺省的扩展文件名
filter-->string类型，可选项，其值为文件名掩码，指定显示在该对话框的列表框中供用户选择的文件名满
足的条件（比如.，.TXT，.EXE等）
③ 返回

• 返回值：Integer
  
• 成功时返回1
  
• 当用户单击了对话框上的“Cancel”按钮时函数返回0
  
• 发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

十、打印相关

10.1 PrintOpen    函数

启动打印作业并返回作业号

① 语法

1. GetFileOpenName(title,pathname,filename{,extension{,filter}})

复制代码

② 参数
jobname-->string类型，可选项，指定要打开打印作业的名称，该名称将显示在打印管理器窗口中
③ 返回

• 返回值:Long
  
• 成功时返回打印作业号，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

注:

• 应用程序执行PrintOpen()函数后，启动新的打印作业并走纸到下一页，同时将打印机缺省字体设置为该打印
  作业的字体
  
• 打印光标的位置位于打印区的左上角
  
• 使用PrintOpen()函数打开打印作业、使用同组的其它函数完成打印任务后，必须使用
  PrintClose()关闭打印作业，或根据需要使用PrintCancel()函数取消打印作业
  

10.2 PrintClose  函数

关闭打印作业并把打印页面发送到打印机上

① 语法

1. GetFileSaveName(title,pathname,filename{,extension{,filter}})

复制代码

② 参数
printjobnumber-->要关闭的打印作业的作业号
③ 返回

• 返回值:Integer
  
• 函数执行成功时返回1，发生错误时返回-1
  
• 如果参数printjobnumber的值为NULL，函数返回NULL
  

注意：应用程序使用PrintOpen()函数启动打印作业后，必须使用PrintClose()在完成打印任务后关闭打印作
业，或根据需要使用PrintCancel()函数取消打印作业
10.3 PrintCancel  函数

取消用PrintOpen()函数启动的打印作业

① 语法

1. PrintOpen ( { jobname } )

复制代码

② 参数
printjobnumber-->要取消的打印作业的作业号
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1。
  
• 如果参数printjobnumber的值为NULL，函数返回NULL
  

10.4 Print  函数

以当前字体在打开的打印作业中打印一行或多行文本

① 语法

1. PrintClose ( printjobnumber )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• tab1-->Integer类型，可选项，指定文本开始打印的位置，在开始打印字符串之前将打印光标移动到该位置，
  从打印区的左边界开始计算，以千分之一英寸为单位。
  如果打印光标已经位于指定位置、或打印光标已经超过了指定位置、或省略了该参数，那么，Print()函数从
  打印光标的当前位置开始打印
  
• string-->string类型，指定要打印的字符串。如果字符串中包括回车换行字符（rn），那么该字符串将被
  分成多行输出，但是，除第一行之外，其它行忽略tab1参数指定的起始打印位置
  
• tab2-->Integer类型，可选项，指定字符串打印结束后打印光标移动到的位置，从打印区的左边界开始计算，
  以千分之一英寸为单位。
  如果打印光标已经超过了指定位置，那么Print()函数忽略该参数，打印光标位于已打印字符串的尾部。如果
  省略了该参数，Print()函数把打印光标移动到下一行的起始位置
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

④ 具体说明

• 在打印作业中，PB使用打印光标来跟踪打印位置。打印光标保存了即将打印区域左上角的坐标。
  
• 使用Print()函数打印文本后，PowerBuilder自动更新打印光标
  
• PB使用行距来决定打印出的两行文本之间的距离，行距与字符的高度成比例，缺省的行距是字符
  高度的1.2倍
  
• 使用PrintSetSpacing()函数可以改变行距
  
• 当Print()函数在下一行打印输出时，它把打印光标的x坐标设置为0、y坐标增加当前行距指示的数值。
  由于每打印一行时Print()函数都自动调整打印光标的y坐标位置，因此，该函数会自动处理分页，因此，应
  用程序没有必要调用PrintPage()函数进行分页
  

10.5 PrintBitmap  函数

在打印区域的指定位置打印位图

① 语法

1. PrintCancel ( printjobnumber )

复制代码

② 参数
printjobnumber-->用PrintOpen()函数打开的打印作业号
bitmap-->string类型，指定要打印的位图文件的文件名
x-->integer类型，指定位图起始打印位置的x坐标，以千分之一英寸为单位
y-->integer类型，指定位图起始打印位置的y坐标，以千分之一英寸为单位
width-->integer类型，指定位图的打印宽度，以千分之一英寸为单位。如果该参数的值指定为0，那么按图
像的原始宽度打印
height-->integer类型，指定位图的打印高度，以千分之一英寸为单位。如果该参数的值指定为0，那么按图
像的原始高度打印
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.6 PrintDataWindow  函数

打印数据窗口控件的内容，用该函数可以在一个打印作业中打印多个数据窗口控件的内容，每个都从新的一页开始打印

① 语法

1. Print(printjobnumber,{tab1,}string{,tab2})

复制代码

② 参数
printjobnumber-->用PrintOpen()函数打开的打印作业号
dwcontrol-->要打印其内容的数据窗口控件名或子数据窗口控件名
③ 返回

• 返回值:Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果参数printjobnumber的值为NULL，函数返回NULL
  

10.7 PrintDefineFont  函数

定义打印作业使用的字体，对每个打印作业PB支持八种字体。

① 语法

1. PrintBitmap ( printjobnumber, bitmap, x, y, width, height )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• fontnumber-->指定赋给当前定义字体的编号，有效值在1到8之间
  
• facename-->string类型，指定字体名称，该字体应该是你的打印机支持的字体，比如“宋体”
  
• height-->Integer类型，使用正值指定字体的高度，以千分之一英寸为单位；使用负值指定字体点数，比
  如，-18代表18点。一般来说，使用点数更精确些
  
• weight：指定字体的磅数，正常字体为400磅，粗体为700磅
  
• fontpitch：FontPitch枚举类型，指定字体标准
  
  
  
  • Default! - 缺省值
    
  • Fixed! - 固定形式
    
  • Variable! - 可变形式
    
  
  
• fontfamily：FontFamily枚举类型，指定字体系列
  
  
  
  • AnyFont!
    
  • Decorative!
    
  • Modern!
    
  • Roman!
    
  • Script!
    
  • Swiss!
    
  
  
• italic：boolean类型，指定是否使用斜体样式。有效取值为：
  
  
  
  • TRUE - 使用斜体样式
    
  • FALSE - 不使用斜体样式 缺省值为FALSE
    
  
  

underline-->boolean类型，指定是否加下划线。

• TRUE - 加下划线；
  
• FALSE - 不加下划线 缺省值为FALSE
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.8 PrintLine  函数

在当前打印页上绘出指定厚度的一条线

① 语法

1. PrintDataWindow ( printjobnumber, dwcontrol )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• x1-->integer类型，指定直线起点的x坐标，以千分之一英寸为单位
  
• y1-->integer类型，指定直线起点的y坐标，以千分之一英寸为单位
  
• x2-->integer类型，指定直线终点的x坐标，以千分之一英寸为单位
  
• y2-->integer类型，指定直线终点的y坐标，以千分之一英寸为单位
  
• thickness-->integer类型，指定直线的厚度，以千分之一英寸为单位
  

③ 返回

• 返回值：Integer。
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.9 PrintOval  函数

在指定位置以指定线宽绘制椭圆或圆

① 语法

1. PrintDefineFont(printjobnumber,fontnumber,facename,height,weight,fontpitch,fontf
2. amily, italic,underline)

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• x1-->integer类型，指定直线起点的x坐标，以千分之一英寸为单位
  
• y1-->integer类型，指定直线起点的y坐标，以千分之一英寸为单位
  
• x2-->integer类型，指定直线终点的x坐标，以千分之一英寸为单位
  
• y2-->integer类型，指定直线终点的y坐标，以千分之一英寸为单位
  
• thickness-->integer类型，指定直线的厚度，以千分之一英寸为单位
  

③ 返回

• 返回值：Integer。
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.10 PrintPage  函数

将当前页发送给打印机或打印池并在当前打印作业中启动一个新的打印页

① 语法

1. PrintLine ( printjobnumber, x1, y1, x2, y2, thickness )

复制代码

② 参数
printjobnumber-->用PrintOpen()函数打开的打印作业号
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.11 PrintRect  函数

在指定位置以指定线宽打印矩形

① 语法

1. PrintOval ( printjobnumber, x, y, width, height, thickness )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• x1-->integer类型，指定直线起点的x坐标，以千分之一英寸为单位
  
• y1-->integer类型，指定直线起点的y坐标，以千分之一英寸为单位
  
• x2-->integer类型，指定直线终点的x坐标，以千分之一英寸为单位
  
• y2-->integer类型，指定直线终点的y坐标，以千分之一英寸为单位
  
• thickness-->integer类型，指定直线的厚度，以千分之一英寸为单位
  

③ 返回

• 返回值：Integer。
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.12 PrintRoundRect  函数

在指定位置以指定线宽打印圆角矩形

① 语法

1. PrintPage ( printjobnumber )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• x-->integer类型，指定圆角矩形左上角的x坐标，以千分之一英寸为单位
  
• y-->integer类型，指定圆角矩形左上角的y坐标，以千分之一英寸为单位
  
• width-->integer类型，指定圆角矩形的宽度，以千分之一英寸为单位
  
• height-->integer类型，指定圆角矩形的高度，以千分之一英寸为单位
  
• xradius-->integer类型，指定圆角矩形圆角部分的x半径，以千分之一英寸为单位
  
• yradius-->integer类型，指定圆角矩形圆角部分的y半径，以千分之一英寸为单位
  
• thickness-->integer类型，指定圆角矩形边线的厚度，以千分之一英寸为单位
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.13 PrintScreen  函数

在打印作业中打印屏幕图像

① 语法

1. PrintRect ( printjobnumber, x, y, width, height, thickness )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• x-->integer类型，指定要打印屏幕图像左上角在打印页上的x坐标，以千分之一英寸为单位
  
• y-->integer类型，指定要打印屏幕图像左上角在打印页上的y坐标，以千分之一英寸为单位
  
• width-->integer类型，可选项，指定屏幕图像的打印宽度，以千分之一英寸为单位。如果省略了该参数，那
  么PB按屏幕的原始宽度打印屏幕图像。如果指定了该参数，必须同时指定height参数
  
• height-->integer类型，可选项，指定屏幕图像的打印高度，以千分之一英寸为单位。如果省略了该参数，
  那么PB按屏幕的原始高度打印屏幕图像
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.14 PrintSend  函数

直接向打印机发送任意字符串，通常用于发送打印机的控制代码

① 语法

1. PrintRoundRect(printjobnumber,x,y,width,height,xradius,yradius,thickness)

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• string-->string类型，指定发送到打印机的字符串。在该字符串中，使用非打印字符的ASCII码值表示非打
  印字符
  
• zerochar-->integer类型，可选项，指定在string参数中用于表示数值0的ASCII码值。有效取值在1到255
  之间
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.15 PrintSetFont  函数

设置当前打印作业使用的字体

① 语法

1. PrintScreen ( printjobnumber, x, y {, width, height } )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• fontnumber-->指定该打印作业使用字体的字体编号，该编号与PrintDefineFont()函数中定义的编号应该
  对应，字体编号的有效取值在1到8之间，0表示使用打印机的缺省字体
  

③ 返回

• 返回值：Integer
  
• 成功时返回当前字体的高度，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.16 PrintSetSpacing  函数

设置行间距因子，打印函数将使用该因子来决定行间距

① 语法

1. PrintSend ( printjobnumber, string {, zerochar } )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• spacingfactor-->指定行间距因子，用字符高度的倍数表示，缺省值为1.2
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1。
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.17 PrintSetup  函数

打开打印机设置对话框

① 语法

1. PrintSetFont ( printjobnumber, fontnumber )

复制代码

② 参数
无
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.18 PrintText

在指定位置打印一行文本

① 语法

1. PrintSetSpacing ( printjobnumber, spacingfactor )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• string-->string类型，指定要打印的文本
  
• x-->integer类型，指定文本开始打印位置的x坐标，以千分之一英寸为单位
  
• y-->integer类型，指定文本开始打印位置的y坐标，以千分之一英寸为单位
  
• fontnumber-->可选参数，指定打印文本使用的字体号，该编号由PrintDefineFont()函数确定。省略该参
  数时，以打印作业的当前字体打印文本
  

③ 返回

• 返回值：Integer
  
• 成功时返回文本打印后打印光标的x位置，即参数x的值加上打印文本的宽度
  
• 发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.19 PrintWidth

确定一个字符串在指定打印作业中按当前字体所占的宽度，以千分之一英寸为单位

① 语法

1. PrintSetup ( )

复制代码

② 参数

• printjobnumber-->用PrintOpen()函数打开的打印作业号
  
• string-->string类型，指定要决定其打印宽度的字符串
  

③ 返回

• 返回值：Integer
  
• 成功时返回按当前字体计算的字符串打印宽度，以千分之一英寸为单位，发生错误时返回-1。
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.20 PrintX  函数

返回打印光标的x坐标位置

① 语法

1. PrintText ( printjobnumber, string, x, y {, fontnumber } )

复制代码

② 参数
printjobnumber-->用PrintOpen()函数打开的打印作业号
③ 返回

• 返回值：Integer
  
• 成功时返回打印光标的x坐标位置，以千分之一英寸为单位，发生错误时返回-1。
  
• 如果任何参数的值为NULL，函数返回NULL
  

10.21 PrintY  函数

返回打印光标的y坐标位置

① 语法

1. PrintWidth ( printjobnumber, string )

复制代码

② 参数
printjobnumber-->用PrintOpen()函数打开的打印作业号
③ 返回

• 返回值：Integer
  
• 成功时返回打印光标的y坐标位置，以千分之一英寸为单位，发生错误时返回-1。
  
• 如果任何参数的值为NULL，函数返回NULL
  

十一、系统与环境相关

11.1 Yield  函数

功能将控制权转移给其它图形对象，包括非PB对象。该函数检测消息队列，如果有消息，就把消
息取出。利用该函数可以在执行耗时较长的操作时把控制权转让给其它应用。

① 语法

1. PrintX ( printjobnumber )

复制代码

② 参数
无
③ 返回

• 返回值：Boolean
  
• 如果在消息队列中提取到了消息，那么函数返回TRUE，否则返回FALSE
  

④ 使用说明

正常情况下，PowerBuilder应用程序在执行一段代码（比如函数或事件处理程序）的过程中不响应用户的操
作。
对耗时短暂的代码段来说，这种处理方式没有什么不妥的地方
但是，如果某个代码段的执行耗时较长，应用程序又希望为用户提供更多的控制权，那么需要在这段代码中插
入PrintX ( printjobnumber )函数，让用户能够进行其它操作，特别在循环执行的代码中更应该如此。
应用程序执行PrintX ( printjobnumber )函数后，如果发现消息队列中存在消息，它将允许对象处理这些消息，处理之后，继续
PrintX ( printjobnumber )函数后面代码的执行。
因此，代码中插入PrintX ( printjobnumber )函数将降低应用程序的运行效率

11.2 Clipboard  函数

提取或替换Windows系统剪贴板的文本内容。

① 语法

1. PrintY ( printjobnumber )

复制代码

② 参数
string-->string类型，可选项，指定要复制到系统剪贴板上的文本。
如果剪贴板上已有内容的话，该文本将取代剪贴板的当前内容
③ 返回

• 返回值：String
  
• 行成功时，如果剪贴板上包含文本数据，那么函数返回剪贴板的当前内容
  
• 如果剪贴板上包含非文本数据（比如位图）或不包含任何数据，那么函数返回空字符串""
  
• 如果string参数的值为NULL，返回NULL
  
• 用法无论是否指定string参数，将返回剪贴板的当前内容
  
• 当指定string参数时，剪贴板的原有内容被string参数的值取代；
  
• 省略string参数时，仅仅得到剪贴板的内容
  

11.3 CommandParm  函数

得到应用程序运行时指定的命令参数

① 语法

1. Yield()

复制代码

② 参数
无
③ 返回

• 返回值：String
  
• 成功时返回应用程序运行时的命令行参数，
  
• 函数执行错误或没有命令行参数时函数返回空字符串""
  

11.4 DoScript 函数

执行AppleScript程序段，该函数只在Macintosh平台上有效

① 语法

1. Clipboard ( { string } )

复制代码

② 参数

• script-->string类型，指定要运行的程序段（script）
  
• result-->string类型，由AppleScript程序段返回的结果信息或出错信息
  

③ 返回

• 返回值：Integer
  
• 返回由AppleScript返回的结果代码。
  
• 如果任何参数的值为NULL，函数返回NULL
  

11.5 GetApplication  函数

得到当前应用对象的句柄，这样你可以查询或设置应用对象的属性（通常用于编写通用代码）

① 语法

1. CommandParm()

复制代码

② 参数
无
③ 返回

• 返回值：Application
  
• 返回当前应用对象的句柄
  

11.6 GetEnvironment  函数

得到操作系统、处理器、屏幕显示等与系统相关的信息

① 语法

1. DoScript ( script, result )

复制代码

② 参数
environmentinfo-->Environment对象名，用于保存系统环境信息
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果参数environmentinfo的值为NULL，函数返回NULL
  

11.7 GetFocus  函数

确定当前焦点位于哪个控件上

① 语法

1. GetApplication ( )

复制代码

② 参数
无
③ 返回

• 返回值：GraphicObject
  
• 成功时返回当前得到焦点控件的引用，发生错误时返回无效引用
  

11.8 Post  函数

将指定消息加入到某个窗口的消息队列中，这个窗口既可以是PowerBuilder应用的窗口，也可以是其它应用
的窗口

① 语法

1. GetEnvironment ( environmentinfo )

复制代码

② 参数

• handle-->long类型，指定窗口的系统句柄，将向该窗口邮寄消息
  
• messageno-->UnsignedInteger类型，指定要邮寄的消息号
  
• word-->long类型，指定与消息一起邮寄的word类参数值。如果messageno参数指定的消息不使用该参数，那
  么将这个参数的值设置为0
  
• long-->long类型或string，指定与消息一起邮寄的long型参数值或字符串
  

③ 返回

• 返回值：Boolean
  
• 如果任何参数的值为NULL，函数返回NULL
  

11.9 Restart  函数

停止所有程序段的执行、关闭所有窗口、提交事务、断开与数据库的连接，然后重新启动应用程序

① 语法

1. GetFocus ( )

复制代码

② 参数
无
③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  

11.10 Run  函数

运行指定的应用程序

① 语法

1. Post( handle, messageno, word, long )  

复制代码

② 参数

• string-->string类型，指定要运行的应用程序的名称，其中可以包括路径以及相应的参数，就像在命令行中
  键入的那样
  
• windowstate-->WindowState枚举类型，可选项，指定程序运行时的窗口状态
  
  
  
  • Maximized! - 最大化窗口
    
  • Minimized! - 最小化窗口
    
  • Normal! - 缺省值，正常窗口
    
  
  

③ 返回

• 返回值:Integer
  
• 成功时返回1，发生错误时返回-1
  
• 如果任何参数的值为NULL，返回NULL
  

④ 使用说明

• 用Run()函数，应用程序能够启动操作系统中的任何程序。
  
• 当在Run()参数中指定了要启动应用程序的参数时，参数的意义、格式、个数等由具体的应用程序确定。
  
• 如果在Run()函数的string参数中指定了文件名但没有给出扩展名时，PowerBuilder认为该文件的扩展名
  为.EXE。
  
• 要运行扩展名不是.EXE的应用程序（比如.BAT, .COM, 或.PIF），必须在Run()函数的参数中指定文件的
  扩展名
  

11.11 Send  函数

向窗口发送指定的消息并立即执行相应的事件处理程序

① 语法

1. Restart()

复制代码

② 参数

• handle：long类型，指定窗口的系统句柄，将向该窗口发送消息
  
• messageno：UnsignedInteger类型，指定要发送的消息号
  
• word：long类型，指定与消息一起发送的word类参数值。如果messageno参数指定的消息不使用该参数，那
  么将这个参数的值设置为0
  
• long：long类型或string，指定与消息一起发送的long型参数值或字符串
  

③ 返回

• 返回值：Long
  
• 成功时返回Windows系统调用SendMessage()的返回值，发生错误时返回-1
  
• 如果任何参数的值为NULL，函数返回NULL
  

④ 使用说明

Send()函数用于向窗口发送非PB预定义事件的消息，这个窗口可以是PB应用的窗口，也可以是其它应用的窗口
Send()函数直接触发指定窗口相应的事件，执行事件处理程序后返回到调用应用中，这一点与Post()函数不
同，Post()函数把发送的消息放置在指定窗口消息队列的尾部，然后返回到应用程序中，它并不等待相应事件
事件处理程序的执行。
因此，我们说Post()函数采用的是异步方式，Send()函数采用的是同步方式。
Send()函数的参数handle指定接收消息的窗口句柄，对PowerBuilder窗口来说，使用Handle()函数可以得到该句柄。
对其它应用程序的窗口来说，可以调用系统API函数查找窗口并得到相应窗口的句柄。
实际上，Send()函数把它的各个参数直接传送给Windows的系统调用SendMessage()。
在各种C++开发工具的WINDOWS.H文件中可以查到各消息编号。
如果应用程序要发送PowerBuilder定义事件（包括预定义事件和用户定义事件），那么使用TriggerEvent()函数既简单有方便。
当应用程序在long参数位置指定一个字符串时，Send()函数复制一个该字符串的副本，然后将副本的地址传
送给指定窗口

11.12 ShowHelp  函数

显示应用程序帮助，该帮助使用Microsoft Windows帮助系统进行操作

① 语法

1. Run ( string {, windowstate } )

复制代码

② 参数

• helpfile-->string类型，指定帮助文件的名称
  
• helpcommand-->HelpCommand枚举类型，指定显示帮助的格式
  
• typeid参数
  
  
  
  • Keyword! - 转移到由指定关键字确定的主题
    
  • Topic! - 显示指定主题的帮助
    
  • typeid：可选项，指定帮助主题
    
  
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1。
  
• 如果任何参数的值为NULL，函数返回NULL
  

11.13 SignalError  函数

触发应用对象的SystemError事件，通常用于代码调试

① 语法

1. Send( handle, messageno, word, long )

复制代码

② 参数

• number-->integer类型，可选项，其值将保存到Error对象的number属性中
  
• text-->string类型，可选项，其值将保存到Error对象的text属性中
  

③ 返回

• 返回值：Integer
  
• 成功时返回1，发生错误时返回-1
  

十二、通用功能函数封装

12.1  根据SQL创建DataStore

①定义函数

1. ShowHelp ( helpfile, helpcommand {, typeid } )

复制代码

② 调用函数

1. SignalError ( { number }, { text } )

复制代码

12.2 获取exe名称

① 引用动态库，定义外部函数

1. /*
2. \>====================================================================
3. \> function:gf_createDataStore
4. \>--------------------------------------------------------------------
5. \> 描述: 根据SQL创建DataStore
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> String 类型  sql语句
9. \>--------------------------------------------------------------------
10. \> 返回:
11. \>  DataStore类型 (函数执行成功返回DataStore)
12. \>  Integer 类型  (函数执行成功数据的总行数)
13. \>  String 类型  (函数执行失败时返回错误信息)
14. \>====================================================================
15. */
16. String ls_DwSyntax     //创建数据存储的语法
17. String ls_Errors       //错误信息
18. String ls_FunName      //函数名称
20. ls_FunName = '~r~nCreateDataStore()-'         
22. //创建数据存储语法
23. ls_DwSyntax = SQLCA.SyntaxFromSQL(as_SqlSelect, 'Style(Type=Grid)',ls_Errors)
24. If Len(ls_Errors) > 0 Then
25.         as_ErrInfo = ls_FunName + '不能返回数据窗语法,错误信息:'   + ls_Errors
26.         Return -1
27. End If
29. ads_DataStore.Create(ls_DwSyntax,ls_Errors)
30. If Len(ls_Errors) > 0 Then
31.         as_ErrInfo = ls_FunName + '不能创建数据存储对象,错误信息:' + ls_Errors
32.         Return -1
33. End If
35. //检索数据
36. ads_DataStore.SetTransObject(SQLCA)
37. ai_RowCount = ads_DataStore.Retrieve()
39. If ai_RowCount < 0 Then
40.         as_ErrInfo = ls_FunName + '数据存储检索错误!'
41.         Return -1
42. End If
44. as_ErrInfo = ''
45. Return 1

复制代码

② 定义函数

1. int li_count
2. string ls_sql
3. string ls_err
4. DataStore lds_Info
6. ls_sql = "select empno, ename, job, mgr, hiredate, sal, comm, deptno from emp where empno = '7369' "
7. lds_Info = Create DataStore
8. If gf_createDataStore(lds_RecipeInfo,ls_sql,li_count,ls_err) = -1 Then
9.         goto Err
10. End If
11. return
12. Err:
13. messagebox('提示信息',ls_err)

复制代码

③ 调用函数

1. FUNCTION ulong GetModuleFileName(ulong hModule,ref string lpFileName,ulong
2. nSize) LIBRARY "kernel32.dll" ALIAS FOR "GetModuleFileNameA"

复制代码

12.3 文件写入

① 定义函数

1. /*
2. \>====================================================================
3. \> function:gf_file_getexe
4. \>--------------------------------------------------------------------
5. \> 描述: 获取exe名称
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> showexesuffix:integer类型 (0、不显示exe后缀,1、显示exe后缀)
9. \>--------------------------------------------------------------------
10. \> 返回: string类型 (函数执行成功返回exe的名称)
11. \>====================================================================
12. */
13. string str_temp,separator
14. string str_list[]
15. integer i = 1,ll_pos,ll_max
16. string ls_fileName
17. GetModuleFileName(handle(this),ls_fileName,100)
18. separator = '\'
19. ll_pos = pos(ls_fileName,separator,1)
20. do
21.         if ll_pos = 0 then
22.                 str_list[i] = ls_fileName
23.         else
24.                 str_list[i] = left(ls_fileName,ll_pos - 1)
25.                 i ++
26.                 ls_fileName = mid(ls_fileName,ll_pos + len(separator))
27.                 ll_pos = pos(ls_fileName,separator,1)
28.                 if ll_pos = 0 then str_list[i] = ls_fileName
29.         end if
30. loop while ll_pos <> 0
31.         ll_max = upperbound(str_list)
32.         if showexesuffix = 1 then
33.                 return mid(str_list[ll_max],1,pos(str_list[ll_max],'.') - 1)
34.         else
35.                 return str_list[ll_max]
36.         end if

复制代码

②  调用函数

1. string ls_exe
2. ls_exe = gf_get_exe(0) //不显示exe后缀
3. ls_exe = gf_get_exe(1) //显示exe后缀

复制代码

12.4 文件读取

① 函数定义

1. /*
2. \>==================================================================
3. \> Function: gf_file_write
4. \>--------------------------------------------------------------------
5. \> 描述: 文件写入
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string fileway (打开文件的方式)
9. \> string filepath (要写入的文件路径和文件名称)
10. \> string filecontent (要写入的内容)
11. \>--------------------------------------------------------------------
12. \> 返回: integer (0:成功,-1:失败。)
13. ====================================================================
14. */
15. long ll_file,ll_FLength,ll_i,ll_count
16. string ls_content
17. choose case fileway
18.         case 'w'
19.                 //流模式、写入、所有用户均可读写该文件、覆盖
20.                 ll_file = fileopen(filepath,streamMode!,Write!,Shared!,Replace!)
21.         case 'w+'
22.                 //流模式、写入、所有用户均可读写该文件、追加
23.                 ll_file = fileopen(filepath,streamMode!,Write!,Shared!,append!)
24.         case 'wl'
25.                 //行模式、写入、所有用户均可读写该文件、覆盖
26.                 ll_file = fileopen(filepath,LineMode!,Write!,Shared!,Replace!)
27.         case 'wl+'
28.                 //行模式、写入、所有用户均可读写该文件、追加
29.                 ll_file = fileopen(filepath,LineMode!,Write!,Shared!,append!)
30.         case else
31.                 messagebox('提示','gf_file_write:传入的参数错误!')
32.                 return - 1
33. end choose
34. IF ll_file > 0 THEN
35.     ll_FLength = len(filecontent)
36.         if ll_FLength > 32765 then
37.                 if mod(ll_FLength,32765) = 0 then
38.                         ll_count = ll_FLength / 32765
39.                 else
40.                         ll_count = ll_FLength / 32765 + 1
41.                 end if
42.         else
43.                 ll_count = 1
44.         end if
45.         for ll_i = 1 to ll_count
46.                 ls_content = left(filecontent,32765)
47.                 FileWrite(ll_file,ls_content)
48.                 filecontent = right(filecontent,len(filecontent) - 32765)
49.         next
50.         FileClose(ll_file)
51. else
52.         messagebox('提示','gf_file_write:文件打开失败!')
53.         return - 1
54. end if
55. return 0
56.    

复制代码

② 调用函数

1. gf_file_write('w',getcurrentdirectory() + '\1.txt','流模式覆盖')
2. gf_file_write('w+',getcurrentdirectory() + '\1.txt','流模式追加')
3. gf_file_write('wl',getcurrentdirectory() + '\1.txt','行模式覆盖')
4. gf_file_write('wl+',getcurrentdirectory() + '\1.txt','行模式追加')

复制代码

12.5 字符串切割

① 定义函数

1. /*
2. \>====================================================================
3. \> Function: gf_file_read
4. \>--------------------------------------------------------------------
5. \> 描述: 文件读取
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string fileway (打开文件的方式)
9. \> string filepath (要读取的文件路径和文件名称)
10. \> ref string filecontent[] (要返回的内容)
11. \>--------------------------------------------------------------------
12. \> 返回: integer (0:成功,-1:失败。)
13. \>====================================================================
14. */
16. long ll_file,ll_FLength,ll_i,ll_j,ll_count
17. string ls_content
18. choose case fileway
19.         case 'r'
20.                 //流模式、读取、所有用户均可读写该文件
21.                 ll_file = fileopen(filepath,streamMode!,Read!,Shared!)
22.                 IF ll_file > 0 THEN
23.                         ll_FLength = len(filepath)
24.                         if ll_FLength > 32765 then
25.                     if mod(ll_FLength,32765) = 0 then
26.                                         ll_count = ll_FLength / 32765
27.                                 else
28.                                         ll_count = ll_FLength / 32765 + 1
29.                                 end if
30.                         else
31.                                 ll_count = 1
32.                         end if
33.                         for ll_i = 1 to ll_count
34.                                 FileRead(ll_file,ls_content)
35.                                 filecontent[1] += ls_content
36.                         next
37.                 else
38.                         messagebox('提示','gf_file_read:文件打开失败!')
39.                         return - 1
40.                 end if
41.     case 'rl'
42.                 //行模式、读取、所有用户均可读写该文件
43.                 ll_file = fileopen(filepath,LineMode!,Read!,Shared!)
44.                 IF ll_file > 0 THEN
45.                         ll_j = 1
46.                         ll_i = FileRead(ll_file,filecontent[ll_j])
47.                         do until string(ll_i) = '-100'
48.                                 ll_j = ll_j + 1
49.                                 ll_i = FileRead(ll_file,filecontent[ll_j])
50.                         loop
51.                                 FileClose(ll_file)
52.                 else
53.                         messagebox('提示','gf_file_read:文件打开失败!')
54.                         return - 1
55.                 end if
56. case else
57.         messagebox('提示','gf_file_read:传入的参数错误')
58.         return - 1
59. end choose
60. return 0

复制代码

② 调用函数

1. （1）、以流模式读取文件
2. string ls_data[]
3. gf_file_read('r',getcurrentdirectory() + '\1.txt',ls_data[] )
4. messagebox('流模式返回值',ls_data[1])
5. （2）、以行模式读取文件
6. string ls_data[]
7. gf_file_read('rl',getcurrentdirectory() + '\1.txt',ls_data[] )
8. messagebox('行模式返回值',ls_data[1])
9. messagebox('行模式返回值',ls_data[2])
10. messagebox('行模式返回值',ls_data[3])

复制代码

12.6 字符串替换

① 定义函数

1. /*
2. \>====================================================================
3. \> function: gf_string_cut.
4. \>--------------------------------------------------------------------
5. \> 描述: 字符串切割
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> way:string (可选参数：array:将字符串分割并返回一个数组。string:将字符串分割并返回一个
9. 字符串)
10. \> data:string (要进行分割的字符串数据)
11. \> conditions:string (字符串分割的条件)
12. \> value[] (字符串分割后的值)
13. \>--------------------------------------------------------------------
14. \> 返回: integer (0:成功,-1:失败。)
15. \>====================================================================
16. */
17.    
18. long ll_empty_pos,i = 1
19. string ls_value_string,ls_value_array[]
20. choose case way
21.         case 'array'
22.                 ll_empty_pos = pos(data,conditions)
23.                 if ll_empty_pos > 0 then
24.                         do
25.                                 ls_value_array[i] = trim(mid(data,1,ll_empty_pos - 1))
26.                                 data = trim(mid(data,ll_empty_pos + 1))
27.                                 ll_empty_pos = pos(data,conditions)
28.                                 i++
29.                                 if ll_empty_pos = 0 then
30.                                         ls_value_array[i] = trim(mid(data,0))
31.                                 end if
32.                         loop while ll_empty_pos > 0
33.                                 value[] = ls_value_array[]
34.                 else
35.                         messagebox('提示','gf_string_cut传入的字符串未找到!')
36.                         return - 1
37.                 end if
38.         case 'string'
39.                 ll_empty_pos = pos(data,conditions)
40.                 if ll_empty_pos > 0 then
41.                         do
42.                                 ls_value_string += trim(mid(data,1,ll_empty_pos - 1))
43.                                 data = trim(mid(data,ll_empty_pos + 1))
44.                                 ll_empty_pos = pos(data,conditions)
45.                                 if ll_empty_pos = 0 then
46.                                         ls_value_string += trim(mid(data,0))
47.                                 end if
48.                         loop while ll_empty_pos > 0
49.                         value[1] = ls_value_string
50.                 else
51.                         messagebox('提示','gf_string_cut传入的字符串未找到!')
52.                         return - 1
53.                 end if
54. case else
55.          messagebox('提示','gf_string_cut传入的参数错误!')
56.         return - 1
57. end choose
58. return 0

复制代码

② 调用函数

1. string ls_data,ls_value[]
2. ls_data = '123,456,789'
3. //1、切割字符串，并返回切割后的字符串
4. gf_string_cut('string',ls_data,',',ls_value[])
5. messagebox('',ls_value[1]) //123456789
6. //2、切割字符串，并返回数组
7. gf_string_cut('array',ls_data,',',ls_value[])
8. messagebox('',ls_value[1]) //123
9. messagebox('',ls_value[2]) //456
10. messagebox('',ls_value[3]) //789

复制代码

12.7 大文件写入（二进制数据流）

① 函数定义

1. /*
2. \>====================================================================
3. \> function:gf_string_replace
4. \>--------------------------------------------------------------------
5. \> 描述: 字符串替换
6. \>--------------------------------------------------------------------
7. // 参数:
8. // string data 字符串数据
9. // string as_old 将要替换的字符
10. // string as_new 要替换的新值
11. \>--------------------------------------------------------------------
12. \> 返回: string 替换后的字符
13. \>====================================================================
14. */
15. long ll_oldlen, ll_newlen, ll_pos
16. ll_pos = Pos(data,as_old)
17. IF ll_pos > 0 Then
18.         ll_oldlen = Len(as_old)
19.         ll_newlen = Len(as_new)
20.         DO WHILE ll_pos > 0
21.                 data = Replace(data,ll_pos,ll_oldlen,as_new)
22.                 ll_pos = Pos(data,as_old,ll_pos + ll_newlen)
23.         LOOP
24. END IF
25. RETURN data

复制代码

② 调用函数

1. string ls_data
2. ls_data = gf_string_replace('1234561','1','6')
3. messagebox('返回值',ls_data) //6234566

复制代码

12.8 大文件读取（二进制数据流）

① 函数定义

1. /*
2. \>====================================================================
3. \> function: gf_adodb_blob_write.
4. \>--------------------------------------------------------------------
5. \> 描述:大文件写入（二进制数据流）
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string filepath (要写入的文件路径和文件名称)
9. \> blob filecontent (要写入的二进制数据文件内容)
10. \>--------------------------------------------------------------------
11. \> 返回:integer (0:成功,-1:失败。)
12. \>====================================================================
13. */
14. long li_rtn,ll_file
15. string ls_data
16. OLEObject ADODB
17. ADODB = CREATE OLEObject
18. li_rtn = ADODB.ConnectToNewObject("ADODB.Stream")
19. if li_rtn = 0 then
20.     ADODB.Type = 1 //设置ADODB类型（1、二进制数据，2、文本数据）
21.     ADODB.Mode = 3 //设置读写模式（1、读，2、写，3、读写）
22.     ADODB.open() //打开ADODB
23.     ADODB.Position = 0 //Position=0才能设置Charset
24.     ADODB.Write(filecontent) //Write 和 WriteText 方法向 Stream 中输入字节或文本。
25.     ADODB.savetofile(filepath,2) //savetofile(1、只写入1次。2、可覆盖写入多次)
26.     ADODB.flush() //清空缓冲区数据
27.     ADODB.Close() //关闭流
28.     destroy ADODB
29. else
30.         messagebox('提示', '无法连接【ADODB.Stream】!~r~n读取文件失败!')
31.         return - 1
32. end if
33. return 0

复制代码

② 函数调用

1. gf_adodb_blob_write(getcurrentdirectory()+'\a.txt',blob('123'))

复制代码

12.9 大文件写入（文本流）

① 函数定义

1. /*
2. \>====================================================================
3. \> function: gf_adodb_blob_read.
4. \>--------------------------------------------------------------------
5. \> 描述: 大文件读取（二进制数据流）
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string filepath (要读取的文件路径和文件名称)
9. \>--------------------------------------------------------------------
10. \> 返回: blob (从文件中读取到的blob数据)
11. \>====================================================================
12. */
13. long li_rtn
14. blob lb_data
15. OLEObject ADODB
16. ADODB = CREATE OLEObject
17. li_rtn = ADODB.ConnectToNewObject("ADODB.Stream")
18. if li_rtn = 0 then
19.     ADODB.Type = 1 //设置ADODB类型（1、二进制数据，2、文本数据）
20.     ADODB.Mode = 3 //设置读写模式（1、读，2、写，3、读写）
21.     ADODB.Open() //打开ADODB
22.     ADODB.LoadFromFile(filepath) //加载文件
23.     ADODB.Position = 0 //Position=0才能设置Charset
24.     lb_data = ADODB.Read() //Read 和 ReadText 方法向 Stream 中读取字节或文本。
25.     ADODB.flush() //清空缓冲区数据
26.     ADODB.Close() //关闭流
27.     destroy ADODB
28. else
29.         messagebox('提示', '无法连接【ADODB.Stream】!~r~n读取文件失败!')
30. end if
31. return lb_data

复制代码

② 函数调用

1. blob lb_data
2. lb_data = gf_adodb_blob_read(getcurrentdirectory()+'\a.txt')
3. messagebox('blob',string(lb_data))

复制代码

12.10 大文件读取（文本流）

① 函数定义

1. /*
2. \>====================================================================
3. \> function: gf_adodb_string_write.
4. \>--------------------------------------------------------------------
5. \> 描述:大文件写入（文本流）
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string filepath (要写入的文件路径和文件名称)
9. \> string filecontent (要写入的文本流内容)
10. \>--------------------------------------------------------------------
11. \> 返回:integer (0:成功,-1:失败。)
12. \>====================================================================
13. */
14. long li_rtn,ll_file
15. string ls_data
16. OLEObject ADODB
17. ADODB = CREATE OLEObject
18. li_rtn = ADODB.ConnectToNewObject("ADODB.Stream")
19. if li_rtn = 0 then
20.     ADODB.Type = 2 //设置ADODB类型（1、二进制数据，2、文本数据）
21.     ADODB.Mode = 3 //设置读写模式（1、读，2、写，3、读写）
22.     ADODB.open() //打开ADODB
23.     ADODB.Position = 0 //Position=0才能设置Charset
24.     ADODB.WriteText(filecontent) //Write 和 WriteText 方法向 Stream 中输入字节或文本。
25.     ADODB.savetofile(filepath,2) //savetofile(1、只写入1次。2、可覆盖写入多次)
26.     ADODB.flush() //清空缓冲区数据
27.     ADODB.Close() //关闭流
28.     destroy ADODB
29. else
30.         messagebox('提示', '无法连接【ADODB.Stream】!~r~n读取文件失败!')
31.         return - 1
32. end if
33. return 0

复制代码

② 函数调用

1. gf_adodb_string_write(getcurrentdirectory()+'\a.txt','123')

复制代码

12.11 移除字符串中的字母

① 函数定义

1. /*
2. \>====================================================================
3. \> function: gf_adodb_string_read.
4. \>--------------------------------------------------------------------
5. \> 描述: 大文件读取（文本流）
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string filepath (要读取的文件路径和文件名称)
9. \>--------------------------------------------------------------------
10. \> 返回: string (从文件中读取到的blob数据)
11. \>====================================================================
12. */
13. long li_rtn
14. string ls_data
15. OLEObject ADODB
16. ADODB = CREATE OLEObject
17. li_rtn = ADODB.ConnectToNewObject("ADODB.Stream")
18. if li_rtn = 0 then
19.     ADODB.Type = 2 //设置ADODB类型（1、二进制数据，2、文本数据）
20.     ADODB.Mode = 3 //设置读写模式（1、读，2、写，3、读写）
21.     ADODB.Open() //打开ADODB
22.     ADODB.LoadFromFile(filepath) //加载文件
23.     ADODB.Position = 0 //Position= 0才能设置Charset
24.     ls_data = ADODB.ReadText() //Read 和 ReadText 方法向 Stream 中读取字节或文本。
25.     ADODB.flush() //清空缓冲区数据
26.     ADODB.Close() //关闭流
27.     destroy ADODB
28. else
29.         messagebox('提示', '无法连接【ADODB.Stream】!~r~n读取文件失败!')
30. end if
31. return ls_data

复制代码

② 函数调用

1. string ls_data
2. ls_data = gf_adodb_string_read(getcurrentdirectory()+'\a.txt')
3. messagebox('string',ls_data)

复制代码

12.12 获取上个月初到月底的时间

① 函数定义

1. /*
2. \>====================================================================
3. \> Function: gf_remove_letter
4. \>--------------------------------------------------------------------
5. \> 描述: 移除字符串中的字母
6. \>--------------------------------------------------------------------
7. \> 参数:
8. \> string ls_data 要去除字母的字符串
9. \>--------------------------------------------------------------------
10. \> 返回: string
11. \>====================================================================
12. */
13. string str = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'
14. string ls_data_new
15. long i
16. if ls_data = '' or isnull(ls_data) then
17.         ls_data_new = ''
18. else
19.         for i = 1 to len(ls_data)
20.         if pos(str,mid(ls_data,i,1)) = 0 then
21.                 ls_data_new += mid(ls_data,i,1)
22.         end if
23.         next
24. end if
25. return ls_data_new

复制代码

② 函数调用

1. gf_remove_letter('12abc3sdfsg4')

复制代码

12.13 时间转字符串

① 函数定义

1. /*
2. >====================================================================
3. > Function: gf_last_month
4. >--------------------------------------------------------------------
5. > 描述: 获取上个月初到月底的时间
6. >--------------------------------------------------------------------
7. > 参数:
8. > ref string lrt_start
9. > ref string lrt_end
10. >--------------------------------------------------------------------
11. > 返回值: (none)
12. >====================================================================
13. */
14. string ls_by2
15. string ls_by,ls_sy
16. ls_by2 = mid(string(date(today())),1,7) + '-01'
17. ls_by = string(RelativeDate(date(ls_by2), - 1))
18. ls_sy = string(Year(date(ls_by2))) + '-' + string(Month(date(ls_by2)) - 1) +
19. '-01'
20. lrt_start = ls_sy + ' 00:00:00'
21. lrt_end = ls_by + ' 23:59:59'   

复制代码

② 函数调用

1. //调用示例
2. string ls_start,ls_end
3. of_last_month(ls_start,ls_end)
4. messagebox('月初的（日期+时间）',ls_start)
5. messagebox('月底的（日期+时间）',ls_end)

复制代码

12.14 xml解析

① 函数定义
[code]/*>====================================================================> Function: gf_xml_get>--------------------------------------------------------------------> 描述: xml解析>--------------------------------------------------------------------> 参数:> string data> string label>--------------------------------------------------------------------> 返回值: string>====================================================================*/long ll_startstring ls_data,ls_data2,ls_data3ls_data = trim(data)ll_start = pos(ls_data,'')if ll_start = 0 then        return ''else    ls_data2 = mid(ls_data,ll_start + len(''))    ls_data3 = mid(ls_data2,1,pos(ls_data2,'