我一直用textbox显示文章内容,但发现文章最开始的空格总是显示不出来。一些资料里谈到替换空格、换行符等等,如何应用?谢谢。

解决方案 »

  1.   

    把\t替换成8个 
    把空格替换成两个 
    把\r\n替换成<br>
      

  2.   

    这样用两个函数:
    Function Format(formatdata)
         formatdata=replace(formatdata,"&","&amp;")
               'formatdata=replace(formatdata,"'","''")  
             formatdata=replace(formatdata,"<","&lt;")
             formatdata=replace(formatdata,">","&gt;")
             formatdata=replace(formatdata,"chr(60)","&lt;")
             formatdata=replace(formatdata,"chr(37)","&gt;")
             formatdata=replace(formatdata,"""","&quot;")
               'formatdata=replace(formatdata,";",";;")    
             formatdata=replace(formatdata,chr(13),"<br>" & chr(13)+chr(10))
             format=replace(formatdata,chr(32),"&nbsp;")
        End Function Function UFormat(formatdata)
        formatdata=replace(formatdata,"&amp;","&")
              'formatdata=replace(formatdata,"''","'")  
            formatdata=replace(formatdata,"&lt;","<")
            formatdata=replace(formatdata,"&gt;",">")
            formatdata=replace(formatdata,"&lt;","chr(60)")
            formatdata=replace(formatdata,"&gt;","chr(37)")
            formatdata=replace(formatdata,"&quot;","""")
              'formatdata=replace(formatdata,";;",";")    
            formatdata=replace(formatdata,"<br>" & chr(13)+chr(10),chr(13))
            Uformat=replace(formatdata,"&nbsp;",chr(32))
        End Function
    Format是添加时,替换字符.
    UFormat是读取时,替换原来的字符.