my0707的专栏

原创 两个控制显示格式的函数（自动换行、自动省略）

1)函数:rowscode()-----每行显示n个字母，自动换行Function rowscode(str,n)If len(str)rowscode=strElseDim TStrDim l,t,cDim il=len(str)TStr=""t=0for i=1 to lc=asc(mid(str,i,1))If cIf c>255 thent=t+2Elset=t+1End IfTStr