1.7常用AYA代码

7年前 (2017-05-29) fancyang yaya技术相关 0评论 已收录 3809℃

一、简易阵列的字符分割


1
2
3
4
5
ColorIdx
{
    _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>'
全部替换

四、常用快捷功能


1
2
3
4
5
6
OnCalculateVar    //f2
{
    "表达式『%(reference0)』的执行结果为:\n"
    --
    TOSTR(EVAL(reference0));
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
OnGetVarValue   //f4
{
    _var = reference0[0,'='];
    _var = _var[0,'['];
    _func = reference0[0,'('];
    if ISVAR(_var) == 0 && ISFUNC(_func) == 0
    {
        "没有这个变量或函数……";
    }
    else
    {
        "表达式『%(reference0)』的执行结果为:\n"
        --
        TOSTR(EVAL(reference0));
    }
}

五、读写文本范例

1.含开始关键字“abc”和结束关键字“#”的读写

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
28
29
30
31
32
33
34
35
36
OnFileRead
{
    _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.读写全文本


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
OnFileRead
{
    _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;
}

六、常用便利功能


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TextToEnd //TextToEnd("a=b=1234",'=',0)=="b=1234"得到字符串"a=b=1234"中从第1个"="到字符串结束的文本"b=1234"
{
    _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
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
BeginToEnd //BeginToEnd("君不见,黄河之水天上来,奔流到海不复回。",',',1,2)得到第一个','到第二个','之间的文本
{
    _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
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
TextBetween
{
    _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回复。

001916;您的ip地址是54.84.65.73; 当前围观人数:2

隐私政策

橘花2支持在线更新了,点我下更新支持文档然后托给橘花,再点SSP面板右键更新