条码太小.分割打印.

//================================================================================
// 函  数: f_string_split_by_len()
//--------------------------------------------------------------------------------
// 描  述: 将字符串按希望的长度分解成多行，行之间用回车换行符分割。
//     分解时考虑到避免半个汉字、句首不能出现逗号和句号的问题。
//--------------------------------------------------------------------------------
// 参  数:
//  string  as_input - 需要分行的字符串  
//  integer ai_num   - 每行中字符串的长度

string ls_out_string
integer li_pos

do while(len(as_input))>0
 li_pos=pos(as_input,'~r~n') 
 if (li_pos >= ai_num or li_pos = 0) then
  if lenw(left(as_input,ai_num))=lenw(left(as_input,ai_num - 1)) then li_pos=ai_num -1 else li_pos=ai_num
  if mid(as_input,li_pos+1,1)=','  or mid(as_input,li_pos+1,1)='.'  then li_pos=li_pos + 1
  if mid(as_input,li_pos+1,2)='，' or mid(as_input,li_pos+1,2)='。' then li_pos=li_pos + 2
 end if
 ls_out_string=ls_out_string + left(as_input,li_pos)
 as_input=right(as_input,len(as_input) - li_pos)
 ls_out_string=ls_out_string + '~r~n'
loop

return ls_out_string