12 2012 档案

left()
摘要：功 能：得到字符串左部指定个数的字符。语 法：Left ( string, n )参 数：string：string类型，指定要提取子串的字符串；n：long类型，指定子串长度。如果是中文，则n = 中文个数 * 2返回值：String。函数执行成功时返回string字符串左边n个字符，发生错误时返回空字符串（""）。如果任何参数的值为NULL，Left()函数返回NULL。如果n的值大于string字符串的长度，那么Left()函数返回整个string字符串，但并不增加其它字符。示 例：1、下面的代码返回”ABCD”。 Left(“ABCDEFGH” , 4)2、下面的代 阅读全文
posted @ 2012-12-29 16:27 flowjacky 阅读(250) 评论(0) 推荐(0)
斐波那契数列的递归与迭代写法比较
摘要：递归写法: (defun fib (n) (if (<= n 1) 1 (+ (fib (- n 1)) (fib (- n 2))))) 迭代写法： (defun fib (n) (do ((i n (- i 1)) ... 阅读全文
posted @ 2012-12-29 14:40 flowjacky 阅读(403) 评论(0) 推荐(0)
DeleteRow()
摘要：功能：删除数据窗口控件中的指定行。 语法：dwcontrol.DeleteRow(row) 参数：row,long类型，指定要删除数据hang的行号。当row参数为0时，删除当前行。 返回值:Integer。函数执行成功时返回1，发生错误时函数返回-1。 用法：该函数从数据窗口主缓冲区中删除指定行。如果数据窗口不可更新，则被删除行从系统中清除；如果可以更新，则被删除行从主缓冲区移动到删除缓... 阅读全文
posted @ 2012-12-29 10:06 flowjacky 阅读(721) 评论(0) 推荐(0)
DateWindow does not have UPDATE capability
摘要：引用 DataWindow does not have UPDATE capability是什么原因？ - 泪雨直流的日志 - 网易博客 提示框出现：DataWindow does not have UPDATE capability.是什么原因？已经连接了到了数据窗口，但一运行UPDATE就弹了如上的对话框. 改变数据窗口更新特性的方法 打开一数据窗口，从Rows... 阅读全文
posted @ 2012-12-29 09:37 flowjacky 阅读(4543) 评论(0) 推荐(0)
好好学习，天天向上
摘要：时光飞逝，乱梦纷纭，心情也是阴晴不定，决定好做一件事情，就好好干，半途而废则得不偿失，打破一切，重新开始。 2012年最后的任务： A.完成PoweBuilder创建管理程序； B.看完《ansi Common Lisp》中文翻译版； 工作日时间规划： 6：30 起床 12：35-12：55 午休 20：00-22：00 学习时间（6个工作日抽出5个，... 阅读全文
posted @ 2012-12-29 08:20 flowjacky 阅读(158) 评论(0) 推荐(0)
数据窗口无法编辑的问题
摘要：菜单项->Tab Order,需要编辑的列的值需大于0 阅读全文
posted @ 2012-12-28 16:13 flowjacky 阅读(149) 评论(0) 推荐(0)
一个典型的增删窗口
摘要：窗口的open():dw_1.setTransobject(sqlca)dw_1.retrieve()添加按钮clicked():long ll_insertrowll.insertrow = dw_1.insertrow(0)dw_1.scrolltorow(ll_insertrow)删除按钮clicked():dw_1.deleterow(0)保存按钮clicked():if dw_1.update() > 0 then messagebox(“提示”,“保存成功！”) commit;else messagebox(“提示”,”保存失败！”) rollback;end if刷新按钮c 阅读全文
posted @ 2012-12-28 15:10 flowjacky 阅读(186) 评论(0) 推荐(0)
Remy Zero-Save me
摘要：I feel my wings have broken in your hands, I feel the words unspoken inside... And they pull you under, And I will give you anything you want, oh You are all I wanted, All my dreams are ... 阅读全文
posted @ 2012-12-28 09:59 flowjacky 阅读(158) 评论(0) 推荐(0)
检索函数retrieve
摘要： 阅读全文
posted @ 2012-12-28 09:22 flowjacky 阅读(209) 评论(0) 推荐(0)
字体躺着的问题
摘要：有时候字体躺着，就像这样： 那是因为选择的字体前面有“@”符号就表示躺着的 选择去掉“@”符号的字体，如： 就恢复正常了： 阅读全文
posted @ 2012-12-28 08:50 flowjacky 阅读(343) 评论(0) 推荐(0)
2012.12.27断网
摘要：调制解调器灯显示正常 路由器灯显示正常 电脑无线网络连接正常，但是无法上网 处理办法：关掉调制解调器再开启，等待10分钟，网络恢复。 阅读全文
posted @ 2012-12-27 11:41 flowjacky 阅读(140) 评论(0) 推荐(0)
函数defparameter
摘要：传入一个符号和一个值，来创造一个全局变量：CL-USER> (defparameter *glob* 99)*GLOB*CL-USER> (let ((*print-base* 16)) (princ 32))2032像这样的变量在任何地方都可以存取，除了在有定义了相同名字的局部变量的表达式里。为了避免这样情形发生，通常我们在给全局变量命名时，以星号作开始与结束。刚才我们创造的变量可以念作“星-golb-星”(star-golb-start)。 阅读全文
posted @ 2012-12-26 22:14 flowjacky 阅读(309) 评论(0) 推荐(0)
词法作用域(lexical scope) && 动态作用域(dynamic scope)
摘要：有词法作用域的变量叫词法变量(lexical variable)。在词法作用域下，一个符号参照到语境中符号名字出现的地方(可以理解为参照到定义)。局部变量缺省有着词法作用域。eg:CL-USER> (let ((x 50)) (defun foo () x)) FOOCL-USER> (foo)50CL-USER> (let ((x 80)) (foo));Compiler warnings :; In an anonymous lambda form: Unused lexical variable X50有动态作用域的变量叫特别变量(special variable)。 阅读全文
posted @ 2012-12-26 21:48 flowjacky 阅读(1413) 评论(0) 推荐(0)
窗口函数open()
摘要：功能：打开窗口。该函数有两种语法格式，语法一为打开编程时已知数据类型的窗口对象，语法二为打开程序运行后才能确定数据类型的窗口对象。 语法一：Open(windowvar{,parent}) 语法二：Open(windowvar,windowtype{,parent}) eg： open(w_about,w_main) //语法一 PS.windowtype(带验... 阅读全文
posted @ 2012-12-26 16:41 flowjacky 阅读(209) 评论(0) 推荐(0)
创建检索参数，打开datewindow便弹出Specify Retrieval Arguments对话框
摘要：在SQL画板的菜单Design->Retrieval Arguments命令在SQL画板的下方的视图中选择Where(条件检索）选项卡加入如图示的内容之后可以这样使用： dw_1.retrieve(sle_1.text,sle_2.text) 阅读全文
posted @ 2012-12-26 14:19 flowjacky 阅读(3083) 评论(0) 推荐(0)
自定义事件举例
摘要：定义带参数的用户事件，其事件号必须为None,若选择其它的事件号，则定义的参数无效。 TriggerEvent和PostEvent的区别： TriggerEvent立即触发该事件，而PostEvent则把事件排在事件队列的末尾。 如果用户定义了参数，只能使用如下的形式触发事件： cb_1.EVENT clicked() w_1.EVENT u_display(4,”ma... 阅读全文
posted @ 2012-12-26 14:01 flowjacky 阅读(221) 评论(0) 推荐(0)
函数reduce
摘要：reduce用来把一个序列压缩成一个值。它接受至少两个参数，一个函数与一个序列。这函数必须是一个接受两个参数的函数。在最简单的情况下，函数起初用前两个元素作为参数来调用，之后接续的元素作为下次调用的第二个参数，上次返回的值作为下次调用的第一个参数。最后调用所返回的值作为reduce函数的返回值。也就是说像这样的表达式： (reduce #’fn ‘(a b c d)) 等同于：(fn (fn ... 阅读全文
posted @ 2012-12-21 16:59 flowjacky 阅读(472) 评论(0) 推荐(0)
函数mapcar,maplist
摘要：mapcar:接受一个函数以及一个或多个列表，并返回把函数应用至每个列表的元素的结果，知道有的列表没有元素为止，结果为各次执行的返回值的汇总列表： CL-USER> (mapcar #'(lambda (x) (+ x 10)) '(1 2 3))(11 12 13)CL-USER> (mapcar #'+ '(1 2 3) '(5 6 7 8))(6 8 10) maplist:同mapcar... 阅读全文
posted @ 2012-12-21 15:32 flowjacky 阅读(1026) 评论(0) 推荐(0)
函数apply
摘要：它接受一个函数和一个参数列表，并返回把传入函数应用在传入参数的结果：CL-USER> (apply #'+ '(1 2 3))6CL-USER> (+ 1 2 3)6CL-USER> (funcall #'+ 1 2 3 4)10CL-USER> (apply #'+ '(1 2 3 4))10 阅读全文
posted @ 2012-12-21 15:00 flowjacky 阅读(180) 评论(0) 推荐(0)
闭包
摘要：我的理解：在一个函数或者某个语句块中可以定义或返回另一个函数，这个函数会依赖于包括它的函数或语句的某些变量，这个变量的传递就叫做闭包。正规定义：当函数引用到外部定义的变量时，这外部定义的变量称为自由变量(free variable)。函数引用到自由的词法变量时，称之为闭包(closure)。CL-USER> (defun add-to-list (num lst) (mapcar #'(lambda (x) (+ x num)) lst))ADD-TO-LISTCL-USER> (add-to-list 5 '(1 2 3))(6 7 8)CL-USER> ( 阅读全文
posted @ 2012-12-21 10:56 flowjacky 阅读(150) 评论(0) 推荐(0)
示例：实用函数(Utilities)
摘要：(defun single? (lst) (and (consp lst) (null (cdr lst)))) CL-USER> (single? nil)NILCL-USER> (single? '(a))T (defun append1 (lst obj) (append lst (list obj))) CL-USER> (append1 '(a b c d) 'e)(A B C D ... 阅读全文
posted @ 2012-12-20 22:10 flowjacky 阅读(227) 评论(0) 推荐(0)
形参前的&rest
摘要：a.如果在一般形参前CL-USER> (defun hey (x &rest args) (member x args))HEYCL-USER> (hey '1 '(2 1 3))NILCL-USER> (hey '1 '2 '1 '3)(1 3)CL-USER> (member '1 '(2 1 3))(1 3)CL-USER> (defun world (&rest fn) fn)WORLDCL-USER> (world 'a 'b)(A B)CL-USER& 阅读全文
posted @ 2012-12-20 14:37 flowjacky 阅读(202) 评论(0) 推荐(0)
do语句转化为局部函数一例
摘要：do: (do ((x a (b x)) (y c (d y))) ((test x y) (z x y)) (f x y)) 局部函数： (labels ((rec (x y) (cond ((test x y) (z x y)) (t (f x y) (rec (b x) (d y)))))) (rec a c)) 说明：上面代码中的b,d,test,z,f均为函数。 阅读全文
posted @ 2012-12-20 11:35 flowjacky 阅读(143) 评论(0) 推荐(0)
练习5.1
摘要：将下列表达式翻译成没有使用let与let*，并使用同样的表达式不被求值2次。 (a). (let ((x (car y))) (cons x x)) (b). (let* ((w (car x)) (y (+ w z))) (cons w y)) 答案： (a). ((lambda (x) (cons x x)) (car y)) (b). ((lambda (w) ((lambda (y) ... 阅读全文
posted @ 2012-12-19 14:31 flowjacky 阅读(110) 评论(0) 推荐(0)
示例：日期运算
摘要：(defconstant month #(0 31 59 90 120 151 181 212 243 273 304 334 365)) (defconstant yzero 2000) (defun leap? (y) (and (zerop (mod y 4)) (or (zerop (mod y 400)) (not (zerop (mod y 100)))))) (defun date-... 阅读全文
posted @ 2012-12-19 13:59 flowjacky 阅读(188) 评论(0) 推荐(0)
判断闰年的函数
摘要：(defun leap? (y) (and (zerop (mod y 4)) (or (zerop (mod y 400)) (not (zerop (mod y 100)))))) 说明 闰年： 普通年：能被4整除 世纪年：能被400整除 阅读全文
posted @ 2012-12-19 08:59 flowjacky 阅读(357) 评论(0) 推荐(0)
一个错误
摘要：4.7节的图4.4是这个样子，我认为改成这样才是对的,2和3应该换个位置。 阅读全文
posted @ 2012-12-18 08:20 flowjacky 阅读(104) 评论(0) 推荐(0)
函数：找出一句话中的第二个单词
摘要：(defun second-word (str) (let ((pl (+ (position #\ str) 1))) (subseq str pl (position #\ str :start pl)))) 阅读全文
posted @ 2012-12-15 13:41 flowjacky 阅读(196) 评论(0) 推荐(0)
判断序列是否对称
摘要：1 (defun mirror? (s)2 (let ((len (length s)))3 (if (evenp len)4 (do ((start 0 (+ start 1))5 (end (- len 1) (- end 1)))6 ((or (> start end)7 (not (equal (elt s start)8 (elt s end))))9 (> start end))))))相... 阅读全文
posted @ 2012-12-15 10:37 flowjacky 阅读(236) 评论(0) 推荐(0)
第一遍读书笔记
摘要：P23:大公司为了避免设计上的灾难，选择了减少设计结果的标准差。但是当你排斥差异的时候，你不仅将失败的可能性排除在外，也将获得高利润的可能性排除在外。《黑客与画家》P25：黑客如何才能做自己喜欢的事情？我认为这个问题的解决方法是一个几乎所有创作者都知道的方法：找一份养家糊口的“白天工作”（day job）。这个词是从音乐家身上来的，他们晚上表演音乐，所以白天可以找一份其他工作。更一般地说，“白天工... 阅读全文
posted @ 2012-12-11 16:38 flowjacky 阅读(250) 评论(0) 推荐(0)
压缩与解压缩示例：游标编码（run-length encoding)
摘要：1 (defun compress (x) 2 (if (consp x) 3 (compr (car x) 1 (cdr x)) 4 x)) 5 6 (defun compr (elt n lst) 7 (if (null lst) 8 (list (n-elts elt n)) 9 (let ((next (car lst)))10 (if (equal next elt)11 (compr next (+ n 1) (cdr ... 阅读全文
posted @ 2012-12-11 16:35 flowjacky 阅读(1675) 评论(0) 推荐(0)