【正文】
end if next end function function cutline(str,linelen) dim i,j,c,k cutline= j=0 for i=1 to len(str) c=mid(str,i,1) if asc(c)0 or asc(c)127 then k=2 else if asc(c)32 then k=0 if asc(c)=13 then j=0 cutline=cutline+br/+c c= end if else k=1 end if end if j=j+k if jlinelen*2 then