阅读没有行终止符的文件的第一行

Question

我试图读取.txt文件的第一个非null行，并将其存储在文件夹中，该文件夹的名称将为该.txt的第一个有效行。

所以我的C：/Test/new1.txt 2个空行，然后开始：

example 
this is an example 

，我要重命名/复制到C：/Test/example.txt

我有这个递归递归的函数，并获取我想要的所有文件夹和子文件夹中的所有.txt文件。现在我尝试阅读第一条有效的行和它的作品，但是当我移动/复制它时，我总是得到一个错误：路径中的非法字符。

我试图修剪标题，以取代vbLf。等等...都无济于事

singleFile = New IO.FileInfo(Fullpath) 
    Dim sr As New StreamReader(singleFile.FullName) 
    Dim title As String = Trim(sr.ReadLine).Replace(vbCrLf, "").Replace(vbLf, "").Replace(vbCr, "") 
    While title = "" 
     title = Trim(sr.ReadLine).Replace(vbCrLf, "").Replace(vbLf, "").Replace(vbCr, "") 
    End While 
    filepath = singleFile.Directory.FullName & "\" & title & ".txt" 
    FileSystem.CopyFile(singleFile.FullName, filepath) 

但仍StreamReader的试图把一个行终止在标题的结尾，我怎么能摆脱它？

我总是在标题错误非法字符，和我的文件路径= C：/测试/为例.TXT
（注意为例和.txt之间的空间）

编辑：

问题不是一个回车，它似乎是我想要过滤的导入文件中有一个ascii字符作为“行终止符”。所以我的问题可能会如何从一个字符串中删除所有的空白或特殊字符扭曲

Answer 1

我想大多数类似案例的答案是使用正则表达式来简单地忽略所有不在指定范围内的字符。

Answer 2

试试这个：

Option Strict On 
Option Explicit On 
Option Infer Off 
Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim fullPath As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "new1.txt") 
     Dim fileText As String = String.Empty 
     If System.IO.File.Exists(fullPath) Then 
      fileText = System.IO.File.ReadAllText(fullPath) 
     Else 
      Throw New System.IO.FileNotFoundException("The specified file was not found.") 
     End If 
     Dim newName As String = FirstNonBlankLine(fileText) & ".txt" 
     Dim originalPath As String = System.IO.Path.GetDirectoryName(fullPath) 
     Dim newPath As String = System.IO.Path.Combine(originalPath, newName) 
     MsgBox(newPath) 
     System.IO.File.WriteAllText(newPath, fileText) 
    End Sub 
    Function FirstNonBlankLine(fileText As String) As String 
     fileText = fileText.Replace(vbLf, vbCr).Replace(vbCr & vbCr, vbCr) 
     Dim lines As String() = fileText.Split({vbCr}, StringSplitOptions.RemoveEmptyEntries) 
     Return lines(0) 
    End Function 
End Class 

Answer 3

Dim Path As String = "C:/Test/new1.txt" 
Dim Str As String = IO.File.ReadAllText(Path).Trim 
IO.File.Copy(Path, "C:/Test/" + Split(Str, vbCrLf)(0) + ".txt") 'With Lines 
'Or write the file without Lines 
'IO.File.WriteAllText("C:/Test/" + Split(Str, vbCrLf)(0) + ".txt", Str) 

编辑： 好吧，你可以检查ASCII值

Dim Path As String = "C:/Test/new1.txt" 
    Dim Str As String = IO.File.ReadAllText(Path).Trim 
    IO.File.Copy(Path, "C:/Test/" + GetChars(Split(Str, vbCrLf)(0)) + ".txt") 



    Function GetChars(Str As String) As String 
    Dim Final As String = "" 
    Dim NoInPath As String = "/\*:<>?|" + ChrW(34) ' (34=") 
    For Each x As Char In Str 
     Try 
      If Asc(x) >= 32 And Asc(x) <= 126 Then 'English Language 
       If NoInPath.Contains(x) = False Then Final += x 
      End If 
     Catch ex As Exception 
     End Try 
    Next 
    Return Final 
End Function