【正文】
,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 cutline=cutline+br/+vbCrlf+c j=k else cutline=cutline+c end if