Subversion Repositories DevTools

Rev

Rev 3942 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3942 Rev 3958
Line 861... Line 861...
861
  'Elrey - move HTML removal into here
861
  'Elrey - move HTML removal into here
862
  If gRemoveHtml Then
862
  If gRemoveHtml Then
863
     newText = removeHTML(newText)
863
     newText = removeHTML(newText)
864
  End If
864
  End If
865
 
865
 
-
 
866
  'David Purdie
-
 
867
  'Remove comments - Lines starting with //
-
 
868
  gRE.Pattern = "(\r\n)//([^\r\n]+)"
-
 
869
  newText=gRE.Replace(newText,"")
-
 
870
  
866
  ' indented paragraph second level using '>' (  '|' is now used with Tables - Elrey
871
  ' indented paragraph second level using '>' (  '|' is now used with Tables - Elrey
867
  newText=replace(newText,vbcrlf & "&gt;&gt;&gt;&gt;",vbcrlf & "<p style=""margin-left:80pt;"">")
872
  newText=replace(newText,vbcrlf & "&gt;&gt;&gt;&gt;",vbcrlf & "<p style=""margin-left:80pt;"">")
868
  newText=replace(newText,vbcrlf & "&gt;&gt;&gt;",vbcrlf & "<p style=""margin-left:60pt;"">")
873
  newText=replace(newText,vbcrlf & "&gt;&gt;&gt;",vbcrlf & "<p style=""margin-left:60pt;"">")
869
  newText=replace(newText,vbcrlf & "&gt;&gt;",vbcrlf & "<p style=""margin-left:40pt;"">")
874
  newText=replace(newText,vbcrlf & "&gt;&gt;",vbcrlf & "<p style=""margin-left:40pt;"">")
870
  newText=replace(newText,vbcrlf & "&gt;",vbcrlf & "<p style=""margin-left:20pt;"">")
875
  newText=replace(newText,vbcrlf & "&gt;",vbcrlf & "<p style=""margin-left:20pt;"">")