下载.txt文件时如何保持换行符?

时间:2015-08-29 01:57:02

标签: vb.net download

我正在尝试从我的服务器下载一个简单的.txt文件。文件内容如下:

  

.JPG
      .TXT
      .js文件
      的.css
      巴纽
      .gif注意
      .XML
      的CGI
      .ICO
      .PHP
      /可湿性粉剂内容/
      /评论/
      WP-登录
      /进料/
      WP-login.php中?
      /分类/
      /样品页
      ?replytocom
      /页/
      /标签
      /作者/
      /引用/
      评论页面“

我的prorgam必须让线条断开。

当从服务器下载文件时,由于某种原因剥离了所有换行符,并且内容显示在一行中,如下所示:

  

.jpg.txt.js.css.png.gif.xml.cgi.ico.php /可湿性粉剂内容//注释/可湿性粉剂登录/原料/ wplogin.php?/类别//样品页?replytocom /页//标签/作者//引用/评论页面

我的代码非常简单:

Dim folderpath As String = Directory.GetCurrentDirectory + "/Blacklists/"
Dim folderpath2 As String = Directory.GetCurrentDirectory + "/Blacklists/UrlBlacklist.txt"
If (Not System.IO.Directory.Exists(folderpath)) Then
    System.IO.Directory.CreateDirectory(folderpath)
End If

My.Computer.Network.DownloadFile("http://mywebsite.com/blacklists/UrlBlacklist.txt",folderpath2, False, 500)

我可以做些什么来保持换行符?

1 个答案:

答案 0 :(得分:3)

我怀疑是否发生任何剥离。当您使用需要Windows / DOS行结尾(回车换行)的编辑器(记事本我猜)时,该文件可能具有Unix行结尾(仅限换行)。您可以尝试手动加载和转换文件:

 Dim fileData as String = System.IO.File.ReadAllText(folderPath2)
 fileData = fileData.Replace(vbLf, vbCrLf)
 System.IO.File.WriteAllText(folderPath2, fileData)