[求助]短信发送的换行符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim ln As String = vbcrlf & vbcrlf '定义两个换行

Dim drs As List(Of DataRow) = DataTables("股piao信息").Select("龙头 = 1","股piao代码") '"发送内容 Is not null","好友手机")

Dim fsnr As String = ""

For Each dr As DataRow In drs

fsnr = fsnr & vbcrlf & "股piao代码:" & dr("股piao代码") & ",当前价格:" & Format(dr("当前价格"),"00.00") & ";" & vbcrlf

Dim web As New System.Windows.Forms.WebBrowser()

web.Navigate("http://quanapi.sinaapp.com/fetion.php?u=" & fxsj & "&p=" & fxmm & "&to=" & jssj & "&m=" & fsnr)

Do Until web.ReadyState = 4

Application.DoEvents

Loop

上述代码在命令窗口执行，可以正确换行，将内容黏贴到其他文档也正常换行，但是发送信息就不行，所有文字全部连在一起，请前辈给予指教，谢谢。

另外，飞信发送内容是在论坛找到的，红色部分不理解，请一并指教，谢谢。

[此贴子已经被作者于2015-1-9 14:25:12编辑过]

编码转换。

第一步,在外部引用里输入 System.Web.dll 点击添加,然后点击确定

然后使用如下代码,你可以放到命令窗口测试

Dim str As String = "字符串"

Dim jm As String = System.Web.HttpUtility.UrlEncode(str)

output.show("加密后:" & jm)

甜版够迅速的，谢谢你。

甜版，你好，

修改后

Dim drs As List(Of DataRow) = DataTables("股piao信息").Select("龙头 = 1","股piao代码") '"发送内容 Is not null","好友手机")

Dim fsnr As String = ""

For Each dr As DataRow In drs

fsnr = fsnr & vbcrlf & "股piao代码:" & dr("股piao代码") & ",当前价格:" & Format(dr("当前价格"),"00.00") & ";" & vbcrlf

Dim jm As String = System.Web.HttpUtility.UrlEncode(fsnr)

output.show("加密后:" & jm)

输出内容：加密后:%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000007%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a14.53%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000008%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a23.31%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000009%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a13.15%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000011%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a09.59%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000012%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a08.99%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000014%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a13.55%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000016%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a06.46%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000017%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a08.27%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000018%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a23.39%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000019%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a07.90%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000020%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a00.00%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000022%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a19.99%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000023%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a18.05%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000024%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a25.88%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000025%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a10.30%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000026%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a10.69%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000027%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a11.15%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000028%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a50.50%3b%0d%0a%0d%0a%e8%82%a1%e7%a5%a8%e4%bb%a3%e7%a0%81%3a000029%2c%e5%bd%93%e5%89%8d%e4%bb%b7%e6%a0%bc%3a06.80%3b%0d%0a

发送失败，请问我想要的是换行，跟这个加密有什么关系吗？

甜版，你好，重启项目后，发送可以换行了，请问（Dim jm As String = System.Web.HttpUtility.UrlEncode(fsnr)）这段是什么意思？是否就为了短信换行？请回复，谢谢。

不要加密全部啊，加密回车符号啊

甜版，你好，加密全部也正常换行，我再试试加密换行符，谢谢。

加密换行符（vbcrlf）后，短信就可以正确识别了，谢谢甜版。

找到了

Do Until web.ReadyState = 4 ‘检查网页状态（4表示加载完毕）

Application.DoEvents ’交回工作权限给系统，以免“软死机”

Loop

0 －（未初始化）还没有调用send()方法 1 －（载入）已调用send()方法，正在发送请求 2 －（载入完成）send()方法执行完成，已经接收到全部响应内容 3 －（交互）正在解析响应内容 4 －（完成）响应内容解析完成，可以在客户端调用了

[此贴子已经被作者于2015-1-9 15:25:14编辑过]

主题：[求助]短信发送的换行符