求一段长文章100个字自动断开并且以指定符号连接的代码,高手帮忙了,我怎么写都是乱码

Question

http://blog.csdn.net/xuzuning/archive/2003/08/18/19577.aspx

Answer 1

<%
function transStr(Str,num)
  if Instr(len(Str)/num,".")>0 then
    Cnt=Int(len(Str)/num)+1
  else
    Cnt=Int(len(Str)/num)
  end if
  for i=0 to Cnt-1
    transStr=transStr&left(Str,num)&"&"
    Str=Mid(str,num+1)
  next
  transStr=Mid(transStr,1,len(transStr)-1)
end functionstr="aaaaaaaaaaaaa"response.write transStr(str,4)
%>

Answer 2

<%
function transStr(Str,LinkStr,num)
  if Instr(len(Str)/num,".")>0 then
    Cnt=Int(len(Str)/num)+1
  else
    Cnt=Int(len(Str)/num)
  end if
  for i=0 to Cnt-1
    transStr=transStr&left(Str,num)&LinkStr
    Str=Mid(str,num+1)
  next
  transStr=Mid(transStr,1,len(transStr)-Len(LinkStr))
end functionstr="aaaaaaaaaaaaa"response.write transStr(str,"&",4)
%>

Answer 3

给你写个通用函数吧，$str_cut是你的文章内容，$length=4是你的要求字符串变换的间隔长度
   function substr_cut($str_cut,$length=4){     //截取字符串,当4个字符时就开始换行连接&
     $str_cut1 = "";
     if(strlen($str_cut)>$length){              //如果字符串长度>4的时候
       $len = strlen($str_cut);
       for($i=0;$i<$len;$i+=4){                  
         for($j=0;$j<$length;$j++){
           if(ord($str_cut1[$j])>128)             //判断是不是完整的字符
             $j++;
         }
         $str_cut1 = substr($str_cut,$i,$j)."&";  
         $str_cut2 = $str_cut2.$str_cut1;
       }
     }else{  //当字符串的长度<=4的时候只显示原来的字符串（你可以根据你自己的需要加或不加）
       $str_cut2 = $str_cut;
     }    
   return $str_cut2;
   }

Answer 4

上面第一句注释写错了一点   ，应该是：             
                     //截取字符串,当4个字符时就开始连接&

Answer 5

上面的函数比较简单，你应该可以看懂，函数的返回值$str_cut2就是你要的结果，