S.C.Sam的博客网

thisform.text2.value=atcc("<<正文>>",thisform.edit1.value)
thisform.edit1.value=left(thisform.edit1.value,thisform.text2.value-1)-;
thisform.edit2.value-right(thisform.edit1.value,lenc(thisform.edit1.value)-thisform.text2.value+1-lenc("<<正文>>"))

*或者这样

thisform.edit2.value=strtran(thisform.edit2.value,chr(13),"<br>"-chr(13))
thisform.edit1.value=strtran(thisform.edit1.value,"<<正文>>","<!--正文开始Sam-->"-chr(13)-chr(13)-;
thisform.edit2.value-chr(13)-chr(13)-"<!--正文结束sam-->")

store fopen(’tempc.TXT’) to gnfilehandle && 打开文件
store fseek(gnfilehandle, 0, 2) to gnend && 移动指针到 eof
store fseek(gnfilehandle, 0) to gntop && 移动指针到bof
if gnend <= 0 && 是“空”文件吗?
wait window ’this file is empty!’ nowait
else && 如果非“空”
do while .not.feof(gnfilehandle)
gcstring = fgets(gnfilehandle, gnend) && 存储内容，按行
*注意 gcstring = fread(gnfilehandle, gnend) && 这样写则是全部读入
&gcstring &&直接执行写入内存变量，这个是为ini文件用的
?gcstring
enddo

endif
= fclose(gnfilehandle) && 关闭文件

init事件
ThisForm.KeyPreview=.T.

keypress事件
LPARAMETERS nKeyCode, nShiftAltCtrl
**/判断当前焦点是否在Grid控件上及按键是否是回车键或TAB键**/
With ThisForm.ActiveControl
IF Upper(.Name)=’GRIDDAT’ And (m.nKeyCode=13 OR m.nKeyCode=9)
if .ActiveColumn=Recc("ColMsg")+1 &&判断当前焦点是否在Grid控件的最后一个字段上
KeyBoard "{DnArrow}" Plain &&是则下移一行
Endif
ENDIF
EndWith

把前面的故事总结一下
7号晚上接到李老师电话听说此事（奇怪李老师有我小灵通号？[face05]），8号上午联系到了赵老师，8号一天我都在ec21cn和eachnet看说说明，分四阶段，答知识题，10%，操作模拟系统，20%，写创业计划，30%，“创业大赛”，（我看就是玩易趣[face13]），40%。虽然是网络活动，但这个活动弄的挺严密，得先在易趣注册帐号通过实名认证才能完成比赛。（事实上到我们报名时至少我还没有完成实名认证[face11]）9号也就是昨天晚上大家第一次碰头，在办公室捣鼓了半天，只草草把团体帐号A帐号B注册了，没有进入题库。机器很破，到最后直接上不了网，老福中[face03]。
今天主要完成的是进入题库抖了一眼。下午李没来（也是大忙人~）我和路在“实验室”（全新机，还没有还原卡，我喜欢~）点进了题库，截了绝大部分的题，前面几乎有八十题都是两选一，后面是多选。回头想想遇到的题中，电子商务理论和网络基础相当，（应该叫王晋那家伙来做网络题！）还有几道关于21CN网校和Eachnet的题，感觉怪怪的。当然，最后结果57分[face14]。
赵老师开会一直到晚上十点，可怜的钱被四级骚扰地厉害闪掉了，李在九点半到了。[face26]被新机器软件折磨了一会，赵老师来了以后我说了截止日期推后十天，并且将有免费培训前两项，赵老师跟我想的差不多，易趣可不想失去银子~[face07]。
赵老师认为在易趣里玩了解它的过程了解它的功能很重要（可我更郁闷，我都泡易趣这么久，（唯一一次交易还被盗版书骗了）怎么就没发现了解它最重要呢？[face06]）
还有一点就是掌握它“什么最好卖”。老实说我以前也试图分析过，可商品信息太~~~~多啦，翻几页就放弃了~赵老师给的建议很好，拿到一个站点看首页广告，看多了就发现规律了~去试试ing~[face16]。
赵老师还教导我们，要比别人站得更高~大家都在一个水平线上凭什么说你厉害[face30]？
（小声：赵老师还说了，“做计划书怕什么，市场营销我是专家~”）（啊那感觉肯定很好~[face20]）（赵：你要读书！）……
又及，我总算找到一点点当年玩铁路大亨II时的感觉了~哼那，想当年我发展铁路福利，客运专列绝不挂货车，只靠前期收买的那成堆的产业每年上缴的银两就轻松拿到银牌呐~寒，又扯远了……

山姆总是会幻想一个场景（从来不曾出现在梦境中，啊，因为从未发生过，啊当然这是废话），和心爱的人一起坐在小山坡的草地上（比如东校区后面那个），看着太阳一点点下去，彼此不再说话，就这么看着，看着……

（自言自语：山姆是个不爱说话的家伙:-# 至少除了在信得过的朋友<:o)面前~山姆也不帅(&)没钱(mo)不擅长餐饮(pl)不喜欢足球(so)不会去旅游(ip)不爱逛街(G)不会拖拍({)~连Nokia也要等半年(mp)~~山姆只有平静的心(L)偶尔玩玩计算机(co)观察生活(P)寻找细微之处(sn)不会被人发现(X)，于是也就默默地走(S)静静地感受生活(li)……）

（新建）定义数组
DIMENSION
例如 DIMENSION a(1)&&数组a，1个元素
DIMENSION a(2)&&2个元素
DIMENSION a(1)&&删掉了最后元素

if actlistc=1

select actlist
public array actaa(recc(),3)
copy to array actaa fields actid,actname,acttime

for i=1 to alen(actaa,1)
actaa(i,3)=left(actaa(i,3),2)-"年"-substr(actaa(i,3),3,2)-"月"-"-";
-substr(actaa(i,3),5,2)-"年"-substr(actaa(i,3),7,2)-"月"
endfor

with thisform.Container1.List1
.columncount=3
.columnwidths="50,90,100"
.rowsourcetype=5
.rowsource=’actaa’
endwith

actlistc=0
endif

从纯理论上讲，跟着感觉走是最简单的生存方式，不过事实上跟着感觉走需要有绝对的耐心，我的意思是说，有耐心慢慢地处理引起的麻烦和处理麻烦过程中造成的更多麻烦