问基于字符串的大文件分离和回车插入
EN

Stack Overflow用户

提问于 2015-10-01 01:59:10

回答 1查看 399关注 0票数 0

VB.Net是新手，但一位朋友建议我用它来做我想做的事情。我有一个巨大的文本文件，我想在一个特定的字符串之后插入回车。

除了下面的混乱之外，我如何修改它来读取一个文件，然后一旦我们看到文本"ext“，插入一个新的行提要。我希望输入文件中的一行能产生大量的回车。

目前，我在下面一起模拟的是读取一个输入文件，直到行尾，然后再将它写入另一个文件中。

Module Module1
Sub Main()
    Try
        ' Create an instance of StreamReader to read from a file. 
        ' The using statement also closes the StreamReader. 
        Using sr As StreamReader = New StreamReader("C:\My Documents\input.txt")
            Dim line As String
            ' Read and display lines from the file until the end of  
            ' the file is reached. 

            Using sw As StreamWriter = New StreamWriter("C:\My Documents\output.txt")
                Do Until sr.EndOfStream
                    line = sr.ReadLine()
                    sw.WriteLine(line)
                    Console.WriteLine("done")
                Loop
            End Using
        End Using
    Catch e As Exception
        ' Let the user know what went wrong.
        Console.WriteLine("The file could not be read:")
        Console.WriteLine(e.Message)
    End Try
    Console.ReadKey()
End Sub

在评论之后所作的修改。由于内存限制而掉到500 to文件上：

    Sub Main()
    Try
        ' Create an instance of StreamReader to read from a file. 
        ' The using statement also closes the StreamReader. 
        Using sr As StreamReader = New StreamReader("C:\My Documents\input.txt")
            Dim line As String
            Dim term As String = "</ext>"
            ' Read and display lines from the file until the end of  
            ' the file is reached. 

            Using sw As StreamWriter = New StreamWriter("C:\My Documents\output.txt")
                Do Until sr.EndOfStream
                    line = sr.ReadLine()
                    line = line.Replace(term, term + Environment.NewLine)
                    sw.WriteLine(line)
                    Console.WriteLine("done")
                Loop
            End Using
        End Using

vb.net

carriage-return

回答 1

Stack Overflow用户

回答已采纳

发布于 2015-10-01 06:21:55

因为你的台词很大，你必须：

一次读/写一个字符
保存最后的x字符
如果最后x个字符等于您的项，请写一条新行。 Dim术语As String =“Dim lastChars As String =”.PadRight(term.Length)使用sw As StreamWriter = New StreamWriter("C:\My Documents\output.txt")使用sr作为新System.IO.StreamReader("C:\My Documents\input.txt")，而不是sr.EndOfStream Dim缓冲区( 1)作为Char sr.Read(缓冲区，0，1) lastChars &= (0) lastChars = lastChars.Remove(0，( 1) sw.Write(缓冲器(0))如果lastChars = term，则sw.Write(Environment.NewLine)结束时使用结束

注意:这将不适用于Unicode文件。这假设每个字符都是一个字节。

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/32884674

复制

ruby 安装openssl支持原

其他

首先要安装好openssl openssl官网下载openssl,解压包，然后编译

domain0

2018/08/02

1.5K0