Re: [PerlChina] 欢迎测试自动流程图生成脚本

范例，如下。只是识别///后面的而已。而且标准只认utf8。

● grep '///.*' gsm.c
{ ///GSM_Do_FB>
R.S_FB.Head=SmsFB; ///设置缺省值
/// 复制结构到内存
/// 阀门关闭?马达状态2号:马达状态1号
///获取验证数据
/// Gsm_Wait_S>
leng=get_strlen(ack); ///取得ack长度
while(timeout--) //等待接收完毕///超时检查?:>返回超时
if(U6RecCount>oldint)oldint=U6RecCount; ///计数大于保留?保留等于计数
delay_1ms(6); ///延时6毫秒
if(U6RecCount==oldint) ///xxxx保留?:>返回超时
a=find_arr(GSM_RT,U6RecCount,ack,leng); ///接收信息
if(a==SUCCESS){return SUCCESS;} ///接收Ack成功?>返回成功
///接收错误信息
if(a==SUCCESS)return ACK_ERROR;///接收Err成功?>返回错误
} ///测试
return ACK_TIMEOUT;///>返回超时
{///Gsm_Send_AT>
i=get_strlen(Send_AT); ///获取发送长度
UART6_SendData(Send_AT,i); ///发送数据
if(Flag_Order) ///order标志?:>等待返回
tmp[0]=Flag_Order/10+0x30;tmp[1]=Flag_Order%10+0x30;///根据order格式化数据
UART6_SendData(tmp,4);///发送格式化数据
i=Gsm_Wait_S(Find_AT,Gsm_de_search_cnt);///>等待返回
Telephone_NO = GSM_RT+DoubleChar[3]-6 ;////
if(f>1)FlagBit.F_GsmAllRead=1;////
Gsm_Order=0;FlagBit.F_GsmReadEn=0;FlagBit.F_GsmAllRead=0;////
Gsm_AgainStart();////

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。