如何实现下列功能？

Question

在文本框空间中有一段中英文混排的文字，如何实现：在指定的密度（如每隔20中文）处插入指定文字。
问题所在：如何统计字数，中英文混排.如何插入？

Answer 1

  用MID函数，MID将一个汉字当作一个字处理。
  dim i as integer,count as integer
  dim a as string,b as string
  dim s as string,STR as string
  '在字符串a中含有'B'的后面插入一个字符串b，有两处
  a="adfgsdfg汉sfgh23452624B5rytsdfgsdfgw4汉5tw4rBgsdfge54t"
  b="ASE"
  for i=1 to len(a)
      s=mid(a,i,1)    
      count=count+1  
      if s<>"B" then 
         STR=STR & s
      else
         STR=STR & b
      endif
  next
  '最后形成的字符串是STR，count是统计的字数
           

Answer 2

谢谢东方之珠！我是为了做个小工具，在一篇文章中指定位置添加关键词，并且加粗，加链接。开始考虑到用api什么的，一直没想到加链接怎么做。现在改变策略了，直接添加关键词加html代码。所以你提供的简单又实用的算法不错。大概粗略统计一下字数就ok.你的程序中有个小错误，这样就变成把'B'替换成所要插入字符了！
在次感谢你！