1、1 string(today(),“m/d/yy hh:mm“)/返回当前系统日期和时间integer aif today()2012-12-31 thena=8end if 2 integer li_filenumli_filenum=fileopen(“C:Documents and SettingsAdministrator桌面新建 文本文档“)3 long ll_lenghll_lengh=filelength(“c:eastaa.txt“)/得到 c 盘目录下 AA.TXT 文件的长度4 fileopen fileexists(string 型文件名字) 检查指定文件是否存在5 fi
2、leread filewrite 读写数据6 getfileopenname(“标题”,string,string,“需要打开的文件扩展名“,“ 条件“)举列:string docname,namedinteger valuevalue=getfileopenname(“打开文件“,docname,named,“DOC“,&“文本文件(*.txt),*.txt,“&+“doc 文件(*.doc),*.doc“)if value=1 then fileopen(docname)end if 显示打开文件对话框,之后打开用户选中的文件。对话框中显示 TXT 和 DOC 类型的文件。7 getfil
3、esavename()显示保存文件对话框,让用户选择要保存的文件。 (用法同上)8 changedirectory(设置为当前目录的目录名称)将当前目录设置为当前目录的父目录,并将新的当前目录显示在单行编辑框 sle_1 中:changedirectory(“.“)sle_1.text=getcurrentdirectory()9 createdirectory(要创建的目录名称 string) 创建一个目录createdirectory(“c:zcf“)在 C 盘根目录下创建一个新目录 zcf10 directoryexists(要检查的目录是否存在)在移动文件之前检查目标文件是否存在,存在
4、时,移动文件string is_path=“c:图片集“if directoryexists(is_path) thenfilemove(“C:Documents and SettingsAdministrator桌面5.JPEG“,is_path+“JPEG“)messagebox(“图片移动“,“照片已经移动到“+is_path+“”下。“)elsemessagebox(“图片移动“,“目录“+is_path+ ”不存在!“)end if11 getcurrentdirectory()得到应用程序的当前目录12 removedirectory()删除指定目录 注:指定目录必须是空目录13
5、数值计算函数abs(n) :n 的数据类型,计算 n 的绝对值ceiling(n) :n 的数据类型,返回大于 N 的最小整数cos(n) :double 型,余弦函数exp(n) :double 型,计算 e 的 n 次方fact(n) :double 型,计算 n 的阶乘int(n) :integer 型,得到小于等于 n 的最大整数log(n) :double 型,计算 n 的自然对数logten(n):double 型,计算 n 的常用对数(以 10 为底)max(x,y)/min(x,y):xy 中更精确的数据类型,最大最小值mod(x,y):(同上)求余数pi(n) :double
6、 型,求 n 与 pi(3.1415926 )的乘积rand(n) :n 的数据类型,得到 1 与 n 之间的一个伪随机数round(x,n):decimal 型,将 x 四舍五入到小数点后 n 位sign(n) :integer 型,确定 n 是整数,负数,还是零sin(n) :double 型,正弦函数sqrt(n) :double,计算平方根tan 正切函数,asin 反正弦,acos 反余弦,atan 反正切truncate(x,n):double,截断数值到指定的小数位 列:truncate(9.62,1)返回 9.6计算正弦real degree, cosinedegree=rea
7、l(sle_2.text)cosine=sin(degree*(pi(2)/360)sle_1.text=string(cosine)14 字符串操作函数函数 返回值 功能asc(string) :(integer)得到字符串第一个字符的 ascll 码整数值char(n) :(char)抽取字符串第一个字符或者把整数转换成字符fill(chars,n) :(string)建立一个由指定字符串填充的指定长度的字符串/返回由 40 个*组成的字符串 :fill(“*“,40)lastpos(string1,string2,searchlength):(long)查找目标字符串在原字符串中最后一次
8、出现的位置/string1 源字符串,searchlength 指定进行搜索的字符串长度,默认为整个字符串列:lastpos(“SUNNY BOY“,“N“) 返回值 4. 注意字符有大小写区别lastpos(“SUNNY BOY“,“BO“,5) 返回值 0。因为前面五个字符不包括 BOleft(string,n) :(string)得到字符串左部指定 n 个的字符right(string,n) :(string)从字符串尾部取指定个数字符len(string or blob):(long)返回字符串的长度lenw(string or blob):(long)在数据窗口中返回字符串的长度le
9、fttrim(string):(string)删除字符串左部的空格righttrim(string):(string)删除字符串尾部空格lower(string) :(string)将字符串的大写字母转换成小写match(string 字串,textpatterm 模式):(boolean)确定字符串中是否包含指定模式的字符模式包括: 起 $尾 . - 等 *+?跟在字符后面表示可以出现的次数mid(string,start,length):(string)取字符串的子串例如:mid(“abcdefgh“,4)返回值 defgh 从第四位开始取(length 不指定则默认取余下长度)pos(s
10、tring1,string2,start):(long)在一个字符串中查找所包含的另一个字符串的起始位置pos(“abcdefg“,“de“)返回值 5 (start 从第几位开始查,默认从头开始)replace(string1,start,n,string2):(string)将一个字符串中指定个数的字符串替换为另一个字符串string1 为原字符串,start 为指定从哪个位置开始替换字符串,字符串的第一个位置为 1,n为指定要替换多少个字符,string2 为替换字符列:把变量的值“春眠不掘小”替换为“春眠不觉晓”string name replace(“abcdef“,3,2,“zzz
11、z“)name=“春眠不掘小“ 返回值 abzzzzefname=replace(name,7,4,“觉晓“)reverse(string) :(string)颠倒字符串中各字符的次序space(n) :(string)生成一个由空格组成的指定字符个数的字符串trim(string) :(string)删除字符串首部和尾部的空格upper(string) :(string)将字符串中的小写字母转换成大写wordcap(text) :(string)将 text 中每一个单词的首字母大写,其他字母小写15 系统与环境函数clipboard()提取或替换 windows 系统剪贴板的文本内容。下面
12、的代码以字符串“春眠不觉晓”取代剪贴板原有的内容,并把该内容显示在文本框中参数为空则显示的当前剪贴板内容string is_conameis_coname=clipboard(“春眠不觉晓“)sle_1.text=is_conamecommandparm()得到应用程序运行时指定的命令参数 ,返回 stringgetapplication()得到当前应用对象的句柄getenvironment(environmentinfo) 得到操作系统,处理器,屏幕显示等与系统相关的信息integer rtnenvironment envrtn=getenvironment(env) env 是用于保存系统
13、环境信息的参数getfocus 确定当前焦点在哪个控件上引用当前焦点的控件的信息赋值给变量 which_cont 然后把该控件的 text 属性的值赋给一个变量 text_valuegraphicobject which_contsinglelineedit sle_whichcommandbutton cb_whichstring text_valuewhich_cont=getfocus()choose case typeof(which_cont)case singlelineedit! /单行编辑框sle_which=which_controltext_value=sle_which.
14、textcase commandbutton! /命令按钮cb_which=which_controltext_value=cb_which.textcase elsetext_value=“end choosesle_1.text=text_valueprofilestring() 从初始化文件( .ini)中读取字符串型设置值setprofilestring()设置初始化文件中指定项的值restart()停止所有程序段的执行,关闭所有窗口,提交事务,断开与数据库的链接,然后重新启动应用程序run(string,windowstate)运行指定的应用程序string 指定要运行的应用程序的名
15、称可以包含路径, windowstate 可选项,窗口的最大最小16 定时操作函数cpu() :返回值 long,得到自当前应用程序启动后开始 CPU 所消耗的时间,以毫秒为单位列:long ll_start,ll_usedll_start=cpu()integer a,b,sa=integer(sle_2.text)b=20s=a*bsle_1.text=string(s)ll_used=cpu() - ll_startsle_2.text=string(ll_used)idle(n):该函数在用户每次活动(列如按键盘,移动鼠标等)后重置定时器,n 秒后触发应用对象的 idle 事件列:在用户不操作应用程序后 5 分钟(300 秒)时触发应用对象的 idle 事件idle(300)timer(interval,windowname) 在指定时间间隔内反复触发指定窗口的定时器事件interval 是指指定两次触发 timer 事件之间的时间间隔,有效值在 0-65 之间windowname 窗口名,默认当前窗口