其他数据类型转字符串String
其他数据类型转小数Number
其他数据类型转整数Integer
其他数据类型转数值型Value
1 2
| Value("5.56"); Value("12,300");
|
String类型转Date类型、Datetime类型
1 2 3
| Datetime6(year, month, day, hour, minute, second) Datetime6(1990,01,01,09,30,20);
|
字符串修剪、截取、替换、比对
左修剪方法:LTrim()
1 2 3 4 5 6 7
| Local string &str = ",,.。;:'“”123"; Local string &str1 = LTrim(&str, ",,“”.。;:'");
|
右修剪方法:RTrim()
1 2 3 4 5 6 7
| Local string &str = ",,.。;:'“”123"; Local string &str1 = RTrim(&str, ",,“”.。;:'");
|
截取方法:substring()、left()、right()
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| &str = "12345abc"; &ret = substring(&str,1,5); 结果:12345
&str = "12345abc"; &ret = left(&str,5); 结果:12345
&str = "12345abc"; &ret = right(&str,3); 结果:abc
|
替换方法:Substitute() 对比也可使用该方法实现
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| &str = "12345abc"; &ret = Substitute(&str,"1",""); 结果:2345sbc
if Substitute(&str,"1","") = &str then winmessage("不含该子串"); else winmessage("包含该子串"); end-if;
|
获取随机数
获取唯一ID
获取当前访问组件的CI名称
1 2
| &CI_Name = %CompIntfcName;
|
sleep函数(客制化)
1 2 3 4 5
| Local datetime &dttmTemp; &dttmTemp = %Datetime; While (%Datetime - &dttmTemp) < 1 End-While;
|
URL编码函数
1 2 3
| EncodeURLForQueryString(Substitute(Substitute(&arrResult [2], Char(10), ";"), Char(13), "")) 将char(10) CR 回车,回到首行 替换为 ';' 将char(13) LF 换行 替换为空
|
鼠标聚焦
1 2 3 4
| SetCursorPos(%Page, Record.C_HEAD_TBL, &i, Record.C_DETAIL_TBL, &j, C_DETAIL_TBL.FIELD);
|
获取页面对象
1 2 3 4 5 6 7 8
| GetLevel0()(1).GetRowset(Scroll.C_HEAD_TBL).GetRow(&i).GetRowset(Scroll.C_DETAIL_TBL).GetRow(&j).C_DETAIL_TBL.FIELD
|
获取页面中field对象
1 2
| GetPageField(page.page_name,"fieldName");
|
获取页面中Grid对象
1 2 3
| GetGrid(Page.page_name, grid_name, [L1_row_num]);
|
日期加减
1 2 3
| AddToDate(date, num_years, num_months, num_days) AddToDate(&date, 0, 3, - 1);
|
获取日期中的月份
获取编辑前字段值
1 2
| PriorValue(REC.FIELD.VALUE)
|
判断行数据更改
1 2
| getrow().ischanged = true ;
|
判断行数据新增
1 2
| getrow().isnew = true ;
|