【P语言】 P语言案例片段.docVIP

[P语言]?P语言案例片段 一、声明框架 void main(void) { } 复制代码 二、?随机3种字符，随机插入标题 void main(void) { int i,j,x,cut,zifu; i=strlen($m_ntitle);// i等于标题长度 j=rand(i,0); //j取随机值，最小0，最大i x=rand(3,1); if(x==1) zifu=aaa;//如果x等于1，字符取值aaa if(x==2) zifu=bbb;//如果x等于2，字符取值bbb if(x==1) zifu=ccc; cut=titlecut($m_ntitle,j);// cut等于截取标题中j长度的字符，用titlecut兼容中文，不会乱码 $m_ntitle=cut+zifu+strget($m_ntitle,strlen(cut),i-strlen(cut)); //插入zifu，到标题中任意位置 //msgbox($m_ntitle); } 复制代码 三、?图片发布规则，获取图片网址 void main(void) { int start; start = strfind($m_rethtml, callFunction(); //查找返回代码是否包含地址信息 if(start 0) //如果不包含地址信息 return;? $m_return = strbetween($m_rethtml, , , , start, 0); //抓取返回图片、附件具体地址，需要根据返回的网页代码获取，返回的网页获取方法：在制作好发布子规则及图片抓包数据之后，打开软件模拟抓包，用软件执行一遍采集发布任务，即可看到 } 复制代码 四、?用“退出”字符来判断是否登录 void main(void) { int i; i=strfind($m_curuser,退出); //msgbox(i); if(i=0) //如果在当前用户名里面有 “退出”字符 $m_curuser=已经登录; //则当前用户名取值为“已经登录” 适用于实在找不到登录用户名的情况 if(i0) //如果在当前用户名里面 没有 “退出”字符 $m_curuser=; //则将当前用户名置空，判断为未登录 } 复制代码 五、标题中任意位置,插入固定字符 void main(void) { int i,j,cut; i=strlen($m_ntitle);// i等于标题长度 j=rand(i,0); //j取随机值，最小0，最大i cut=titlecut($m_ntitle,j);// cut等于截取标题中j长度的字符，用titlecut兼容中文，不会乱码 $m_ntitle=cut+固定字符+strget($m_ntitle,strlen(cut),i-strlen(cut)); //插入固定字符，到标题中任意位置 } 复制代码 六、 截取一些字符作为标题 void main(void) { cstr tit; int i; tit=htmlblock1($m_html,class=\singleBlogCont\,0); tit=html2ubb(tit); i=rand(60,30); tit=strget(tit,0,strfind(tit,，));//获取到第一个逗号 if(strlen(tit)30) tit=titlecut(tit,i);//如果字符超过60，则取随机字段,titlecut会计算中文字符 $m_ntitle=tit; } 复制代码 七、将正文中多余的换行处理成1个换行 void main(void) { $m_ncontent=regexrep($m_ncontent,([\\s]{2,}), );? // regexrep为正则，处理所有即将发布的文章正文内容，将2个以上的换行符，替换成1个换行，正则中\s表示空字符，因为\在p语言里面要转义，所以需要多加一个\，或者写在正则过滤p语言中 } 复制代码 八、只在首页抓取介绍，分页不抓取 void main(void) { cstr jj; jj=strbetween($m_html,作品简介：,/p,0,0);//首页需要获取的简介区块 if(strfind($m_url,_)0)// _这个符号只有分页网址才有，如果没有 下划线，则判断为首页，将介绍插入文章中 $m_ncontent=jj+$m_ncontent; } 复制代码 九、将标题中的空格符置空 void main(void) { $m_ntitle=regexrep($m_ntitle,(\\s+),);? // regexrep为正则，处理所有即将发布的文章标题内容，将2个以上的换行符，替换成1个换行，正则中\s表示