格式化字符串的问题

Question

dim iA as int 
  dim iB as int
  dim LA as int
  dim sstr as string 
  dim sA as string
  dim sB as string
  dim sEnd as string
 sstr=....   '要处理的字符串
  do while len(sstr)<=10  
     ib=1
     for   ia=1 to 10 
       if asc(mid(sstr,i,1))<0 then ib=ib+2 else ib=ib+1
       if ib>=10 then exit for
     next
     if ib>10 then   
         sa=left(sstr,ia-1) 
         sstr=right(sstr,len(sstr)-ia+1)
     else        
         sa=leftsstr,ia)
         sstr=right(sstr,len(sstr)-ia)
     endif
     send=send & chr(13) & sa
  loop
  if sstr<>"" then send=send & chr(13) & sstr
  send=right(send,len(send)-1)  '将send返回
   

Answer 1

效率高的话，只能用API函数了，VB在字符串的操作函数上是比较弱的。

Answer 2

mornwoo(疾风之虫)：你的程序效率比较低，能不能优化一些？