App.Str.HtmlFormat - API 文档

## App.Str.HtmlFormat
方法，仅格式化HTML文本中的空格和换行
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-code"></i> 语法</label></h4>
```asp
App.Str.HtmlFormat(string)
```
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-cogs"></i> 参数</label></h4>
|参数|类型|说明
| ------------ | ------------ |
|string|String(字符串)|待格式化的HTML文本
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-reply"></i> 返回值</label></h4>
|类型|说明
| ------------ | ------------ |
|String(字符串)|经过格式化的字符串
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-info-circle"></i> 说明</label></h4>
仅格式化HTML文本中的空格和换行。
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-plug"></i> 示例</label></h4>
```asp
App.WN App.Str.HtmlFormat("这是一段<b>测试</b>用的" & vbCrLf & "    <font color=""red"">文本</font>。")
```
返回内容的源代码：
```asp
这是一段<b>测试</b>用的<br />& nbsp;& nbsp;& nbsp;& nbsp;<font color="red">文本</font>。<br />
```
加了空格，不然没效果
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-tag"></i> 应用场景 & 使用心得</label></h4>
应用场景
<h4 class="font-thin"><label class="label bg-info text-white"><i class="fa fa-terminal"></i> 源码解析</label></h4>
core/easp.str.asp 第 532 行：
```asp
Public Function HtmlFormat(ByVal String)
	If App.Has(String) Then
		Dim matches, m
		Set matches = Match(String, "<([^>]+)>")
		For Each m In matches
			String = o_re.Re(String, m.SubMatches(0), Replace(m.SubMatches(0), "\s+", Chr(0)))
		Next
		Set matches = Nothing
		String = o_re.Re(String, Chr(32), " ")
		String = o_re.Re(String, Chr(9), "    ")
		String = o_re.Re(String, Chr(0), " ")
		String = Replace(String, "(<[^>]+>)\s+", "$1")
		String = o_re.Re(String, vbCrLf, "<br />")
	End If
	HtmlFormat = String
End Function
```