ShowRTBox为RichTextBox控件
ShowRTBox.Text = ShowRTBox.Text.Replace(vbCrLf, "") '将空格回车替换为空
ShowRTBox.Text = ShowRTBox.Text.Replace(vbCr, "") '将回车替换为空
ShowRTBox.Text = ShowRTBox.Text.Replace(vbLf, "") '将空格替换为空
ShowRTBox.Text = ShowRTBox.Text.Replace(" ", "") '将空格替换为空