我正在尝试从我的服务器下载一个简单的.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)
我可以做些什么来保持换行符?
答案 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)