Vb.net 发送pushbullet通知时出现正文问题

我在发送PushBullet通知时遇到了一个奇怪的问题。 如果richtextbox包含以下文本，我可以发送通知：

这是文本

如果richtextbox为：

这
是文本

或：

这
是
正文

我尝试使用regexreplace来删除所有的空白，但它不起作用。我用于发送通知的代码：

Private子按钮（）
“子弹
Dim标记为String=“pushbullet标记”
Dim title As String=“通知标题”
暗体为弦
body=Regex.Replace（RichTextBox1.Text，“^\s+$[\r\n]*”，“”，RegexOptions.Multiline）
尝试
'使用可接收帖子的URL创建请求。'
Dim请求作为HttpWebRequest=CType（WebRequest.Create（“https://api.pushbullet.com/v2/pushes），HttpWebRequest）
'将请求的Method属性设置为POST。'
Request.Method=“POST”
'创建POST数据并将其转换为字节数组。'
Dim postData为字符串=“{”类型“：”注释“，”标题“：”&标题和“，”正文“：”&正文和“}”
Dim byteArray As Byte（）=Encoding.UTF8.GetBytes（postData）
'设置WebRequest的ContentLength属性。'
Request.ContentLength=byteArray.Length
'设置WebRequest的ContentType属性。'
Request.ContentType=“应用程序/json”
'将令牌添加到标头。'
Request.Headers.Add（“访问令牌”，令牌）
'获取请求流。'
Dim dataStream As Stream=Request.GetRequestStream（）
'将数据写入请求流。'
dataStream.Write（byteArray，0，byteArray.Length）
'关闭流对象。'
dataStream.Close（）
“得到回应。”
Dim响应为WebResponse=Request.GetResponse（）
'获取包含服务器返回的内容的流。'
dataStream=response.GetResponseStream（）
'使用StreamReader打开流以方便访问。'
Dim读卡器作为新的StreamReader（数据流）
“阅读内容。”
Dim responseFromServer As String=reader.ReadToEnd（）
'在RichTextBox中显示结果。'
'RichTextBox1.Text=responseFromServer
“清理小溪。”
reader.Close（）
dataStream.Close（）
答复:Close()
特例
结束尝试
端接头

有什么想法吗？ 谢谢

我用以下方法解决了问题：

   TextBox1.Text = TextBox1.Text.Replace(vbLf, " ").Replace(vbCr, "")

---

如果要维护多行布局，请替换为\n和\r

TextBox1.Text=TextBox1.Text.replace（vbLf，“\n”）。需要处理替换（vbCr，“\r”）

流。使用

块使用
。