1.7常用AYA代码
一、简易阵列的字符分割
2
3
4
5
{
_coloridx = "|93,188,91|194,243,99|108,129,182|165,203,214|216,67,179|238,50,95|255,197,52|216,233,40|229,134,82|231,171,109";
_coloridx[_argv[0],'|'];
}
_a="1#2#3#4#";
_a[2,'#']==3
"1#2#3#4#"[2,'#']==3
二、常用sakura script语法的使用
\![set,choicetimeout,0] 超时禁用
\![quicksession,true] 快速显示
\f[color,231,171,109] \f[color,default]设置颜色 \f[color,192,192,192]灰色
\f[color,%(ColorIdx(3))]蓝色 \f[color,%(ColorIdx(6))]红色
\f[height,数字] 字体大小
\![raiseother,人格名,事件名,r0,r1,r2...]
\![set,alignmenttodesktop,free]\![move,10,10,100,me]\![move,10,-10,100,me]\![move,-10,-10,100,me]\![move,-10,10,100,me]
\![sound,stop]
\![sound,play,档案路径]
\![raise,事件识别子,r0,r1,...,r7]
\![set,autoscoll,false] //禁止对话框卷动
\![sound,wait]
\![sound,stop] //?停止音乐播放。将音乐停止，下次播放时会重头开始。
\![sound,stop]\![sound,wait]//停止音乐播放。并为播放音乐做准备
\![sound,resume] //?．继续音乐播放继续播放被暂停的音乐。
\![open,inputbox,事件识别子,(输入框逾时),(预设字串)]
\_b["%SystemRoot%\system32\shell32.dll,-137"] //显示资源内图标
"\0\![quicksession,true]\![set,choicetimeout,0]\b[2]"; //大对话框快显不逾时
\C\![quicksession,true]\c\0\b[2]\![set,choicetimeout,0] //禁止超时快显防闪动大对话框
\_l[x,y]\__q[OnPic]\_b[PicPath,inline,--option=opaque,--clipping=10 10 30 30]\__q //从图片PicPath截取(10,10)到(30,30)的部分并做成选项到对话框上(x,y)的位置
STRDECODE(STRENCODE("亀変偵徾偭偰恖傪嶌",4),0)//jis转gbk
"\_q\_?"+lastTalk+"\_?\_q" 显示源码
"\_q\_?"+OnChatRoom+"\_?\_q"
"\_q\_?"+chatroomtxt+"\_?\_q"
\d* 正则匹配多个数字
[A-Za-z]正则匹配英文字母
\((.*?)\)正则匹配小括号中内容
<Q>(.*)\n <Q>\1</Q>\n<A>
\![]空标识符
三、查找与替换
用emditor进行批量查找和替换：
蚕豆（胡豆）
性味：甘、微辛、平、有小毒。
扁豆（眉豆）
性味：甘、平、无毒。
要替换成
蚕豆（胡豆）
性味：甘、微辛、平、有小毒。
扁豆（眉豆）
性味：甘、平、无毒。
可以这样:在查找一栏输入：
(.*\n 性味)
在替换一栏输入
\0
再全部替换
用()匹配，再用\0提取
替换
<SESSION>
<Q>["face",10]</Q>
<A>%username也知道尴尬。%selfname还以为%username。不好脸了。天下无敌了</A>
</SESSION>
为空
用emeditor
{
搜索替换功能-正则表达式
<SESSION>\n<Q>\[.*\n.*\n</SESSION>
}
豆浆
性味：甘、平、无毒。
归经：入胃、肺。
功效：补虚，清热，化痰，通淋，降血压，利大肠。
主治：身体虚弱，营养不良，肺痿肺痈，口干咽痛，小便不通，乳汁缺乏。
说明：豆浆由黄豆加工而成。黄豆含有丰富的优良蛋白质，100克黄豆相当于200多克猪瘦肉、300克鸡蛋或1200克牛奶，所以被人们称为“植物肉”。豆浆所含的钙虽比豆腐低，但却比任何乳类都多，此外豆浆还含维生素B1、B2、烟草酸及铁等营养素。因此用豆浆哺育婴儿是非常适宜的。
验方参考：
1、麦芽糖豆浆：麦芽糖一汤匙，冲入滚沸的豆浆搅匀饮服。有补虚益阴作用，适用于体虚哮喘，经久不愈者以及胃疼。
3、白果（去心、皮）十粒，打碎，豆浆炖熟服用，一日一次，连续三至五天，治妇女白带。
4、豆浆一碗，韭菜汁半碗，调匀，空腹服下，治血崩。
5、甜浆粥：新鲜豆浆适量，粳米100克，同煮粥，冰糖适量调味食用。有健脾，养胃，润肺，补虚作用。适用于年老体衰，营养不良，消瘦，久嗽，大便结燥，以及血管硬化，高血压，冠心病等症。
豆腐
性味：甘咸、寒平、无毒。
归经：入肺、大肠。
功效：清热利尿，益气宽中，消胀散血。
主治：大便下血，白浊，白带，乳少；外用烧烫伤，下肢溃疡。
说明：豆制品的种类较多，豆腐、豆浆、豆腐皮、豆腐渣，腐酱锅粑等均可作药用。现代科学分析证明，豆腐的营养和牛奶差不多，豆腐味道鲜美，不仅可以佐餐食用，且药用价值亦颇高。豆腐用石膏或卤水点成，含铁、钙和镁盐较多，以小儿骨骼与牙齿生长有特殊意义；而镁盐对心肌有保护作用，故适合于冠心病患者食用。豆腐中的谷固醇还有降低胆固醇的作用。据报道，日本妇女以吃豆腐来代替吃饭，进行减肥健美。另外，豆腐中植物蛋白量丰富而且质量好，含糖也较少，最适合于糖尿病患者和肥胖者食用。可以说，豆腐是高血压、高血脂、心脏病、动脉硬化、糖尿病患者和肥胖者的有益食品。但由于豆腐含嘌呤较多，因嘌呤代谢失常的痛风病人和血尿酸浓度增高的患者，不宜吃豆腐。
验方参考与药膳：
1、豆腐250克，鲫鱼两条，煮汤食用，在小儿麻疹出齐时清热用。
2、豆腐500克，炒王不留行30克，煮汤，喝汤食豆腐，治产后乳少。
3、豆腐500克，麦芽糖60克，生萝卜汁一杯，混和煮开，一日两次分食，治支气管哮喘。
4、豆腐500克，红糖60克，煮汤食，治吐血（胃出血），白浊，便血（解黑大便）等症。
5、豆腐500克，黄瓜250克，煮汤代茶饮，治小儿夏季发烧不退，口渴饮水多。
6、鲜豆腐、白糖量，共捣烂调匀敷患处，治烧烫伤。
7、先将患处用淡盐水或浓茶水洗干净，将豆腐渣敷患处，每天换一次，治下肢溃疡。
8、豆腐渣500克，花椒30克，放锅内同炒，趁热敷患处，治臁疮。
9、豆腐锅粑250克左右，加水煮汤食，治盗汗。
10、鲜豆腐用醋煎食之，治久痢不止。
11、豆腐、丝瓜（带瓤）各250克备用，香菇15克，猪脚1只，同煮至熟烂时，再放入丝瓜、豆腐同煮，加入食盐生姜适量调味食用。一日分三次食用，治产后乳少。
12、豆腐300克，红糖100克，煮熟后，加入糯米酒50-100克即可食用。连服5日，治产后乳少。
13、豆腐、羊肉、虾、生姜、香葱各适量，同煮熟后加入食盐调味食用，适用于气血不足脾肾阳虚、阳痿，遗精等症。
14、羊肉50克煮熟，加入豆腐200克，生姜15克，适量食盐调味食用，适用于月经不调、脾胃虚寒。
15、天冬、麦冬、百部各15克，水煎去渣取药汁，加入豆腐500克煮熟食用，每日一次，治肺痿、肺痈。
16、煮食豆腐可解旅行或迁移新居所引起的水土不服、呕吐症状。
17、豆腐渣炒焦研细，每次5克，一日两次，用红糖开水送服，治大便下血、长期不愈。
18、豆腐锅粑60克，豆腐皮一张，鸡蛋一个，白糖适量，加水煮熟食，每日一碗，早晨空腹服下，治妇女产后恶露，淋漓不净，腰酸，白带。
19、豆腐皮烧存性，研细末，用香油调和涂患处，一日两次，治小儿遍身疮痒及过敏性皮炎。
20、葱白淡豆鼓煮豆腐：豆腐500克，与淡豆鼓10-15克同煮，放入葱白（连根须）5根，略煮片刻，乘热服食，服后盖被发汗。有发汗解表，利尿化痰，宽中除烦作用。适用于外感风寒，伤风鼻塞，小便不畅，咳嗽痰多等症。
21、豆腐石膏汤：生石膏50-80克，水煎一小时，去渣，加入豆腐200克，食盐少许调味，煮熟食用。有清肺热，降胃火、解毒，润燥作用。适用于肺热咳嗽，痰多稠黄，胃热牙痛，口疮，咽喉炎，鼻衄，暑热烦渴等症。
22、炒豆腐皮：豆腐皮一张，清水泡发，切丝，用植物油煸炒，加入适量食盐、香葱食用。有止汗作用，适用于多汗，自汗，盗汗等症。
替换为aiml格式
如下：
第一步：查找：'\n\n'
替换：\n\n<SESSION>\n<Q>
全部替换
第二步：查找：'<Q>(.*)'
替换：\0</Q>
全部替换
第三步：查找：'</Q>\n '
替换：'</Q>\n<A>'
全部替换
第四步：查找：'\n\n<SESSION>'
替换：'</A>\n</SESSION>\n\n<SESSION>'
全部替换
四、常用快捷功能
2
3
4
5
6
{
"表达式『%(reference0)』的执行结果为：\n"
--
TOSTR(EVAL(reference0));
}
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{
_var = reference0[0,'='];
_var = _var[0,'['];
_func = reference0[0,'('];
if ISVAR(_var) == 0 && ISFUNC(_func) == 0
{
"没有这个变量或函数……";
}
else
{
"表达式『%(reference0)』的执行结果为：\n"
--
TOSTR(EVAL(reference0));
}
}
五、读写文本范例
1.含开始关键字“abc”和结束关键字“#”的读写
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
28
29
30
31
32
33
34
35
36
{
_file="a.txt"
if _argc
{
_file=_argv[0]
}
_strbegin="◇"
_str="abc"
_strend="#"
_txt=""
_found=""
FCHARSET(1);
if FOPEN(_file,"r")
{
for _buff = FREAD(_file); _buff != -1; _buff = FREAD(_file)
{
while _strbegin !_in_ _buff && _buff!= -1
{
_buff = FREAD(_file)
}
while _strend !_in_ _buff && _buff!= -1
{
if _str _in_ _buff&&_str!=""
{
_found+=_str
}
_txt+=_buff;
_buff = FREAD(_file) ;
}
}
}
FCLOSE(_file);
FCHARSET(1);
_txt;
}
2.读写全文本
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{
_file="a.txt"
if _argc
{
_file=_argv[0]
}
_txt=""
FCHARSET(1);
if FOPEN(_file,"r")
{
for _buff = FREAD(_file); _buff != -1; _buff = FREAD(_file)
{
_txt+=_buff;
_buff = FREAD(_file) ;
}
}
FCLOSE(_file);
FCHARSET(1);
_txt;
}
六、常用便利功能
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{
_s=_argv[0]
_begin=_argv[1]
_idx = 0;
if _argc > 2
{
_idx = TOINT(_argv[2]);
}
_d = _s[_idx,_begin];
while _s[_idx+1,_begin]!=""
{
_d+=_begin+_s[_idx+1,_begin]
_idx++
}
if SUBSTR(_s,STRLEN(_s)-1,1)==_begin
{
_d+=_begin
}
_d
}
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{
_s=_argv[0]
_txt=_argv[1];
_begin=TOINT(_argv[2]);
_end=0;
if _argc > 2
{
_end=TOINT(_argv[3]);
}
_d = _s[_begin,_txt];
_idx=_begin+1;
while _s[_idx,_txt]!=""&&(_idx<_end&&_end!=0||_end==0)
{
_d+=_txt+_s[_idx,_txt]
_idx++
}
_d
}
2
3
4
5
6
7
8
9
10
11
12
13
14
{
_s = _argv[0];
_begin = _argv[1];
_end = _argv[2];
_idx = 0;
if _argc > 3
{
_idx = _argv[3];
}
_d = _s[_idx + 1,_begin];
_d = _d[0,_end];
_d;
}
这货来去如风，什么鬼都没留下！！！
嗨、骚年、快来消灭0回复。