メモ帳でテキストを編集する

Question

メモ帳の.csvファイルにテキストを編集する際に助けが必要です。 Excel用の行が多すぎる大きなファイルがあります。私はメモ帳でファイルを開き、メモ帳でファイルの最初の15行を削除し、.txtファイルとして保存する必要があります。可能であれば、このマクロを実行するのに必要な複数の.csvを含むサブフォルダを持つフォルダを選択できるようにしたいと考えています。最初の15行には必ずしも同じテキストが含まれているとは限りません。誰かがこれで私を助けることができますか？ここ

おかげ

Answer 1

は、任意のテキストファイル（かかわらず、これらの行の内容）から上面15行を削除手順の一例です。それは一度に1行で動作するので、任意の大きなファイルを扱うことができるはずです。

Sub removeTopLines() 

    Dim srcFile As String, nSrc As Integer ' source file (read from) 
    Dim dstFile As String, nDst As Integer ' destination file (write to) 
    Dim textLine As String 

    Const LINES_TO_SKIP = 15 
    Dim lineCounter As Long 

    srcFile = "c:\opt\src.txt" 
    dstFile = "c:\opt\dst.txt" 

    nSrc = FreeFile 
    Open srcFile For Input As #nSrc 

    nDst = FreeFile 
    Open dstFile For Output As #nDst 

    lineCounter = 1 
    Do Until EOF(nSrc) 
     Line Input #nSrc, textLine 
     If lineCounter > LINES_TO_SKIP Then 
      Print #nDst, textLine 
     End If 
     lineCounter = lineCounter + 1 
    Loop 

    Close #nDst 
    Close #nSrc 

End Sub 

あなたはhow to traverse a directory tree hereの例を見ることができる、あるいはあなただけのすべてのそれらのファイルのパス名のリストを取得し、一度それを一つのファイルを与える別のループからこのプロシージャを呼び出すことができます。

アップデート：ここでは行数は「時間」とそれ以降の行だけのコピーを含む文字列を検索する代わりに、別のバージョンがあります。

Sub removeTopLinesAfter() 

    Dim srcFile As String, nSrc As Integer ' source file (read from) 
    Dim dstFile As String, nDst As Integer ' destination file (write to) 
    Dim textLine As String, strAfter As String 

    strAfter = "time" 
    Dim copyLines As Boolean 

    srcFile = "c:\opt\src.txt" 
    dstFile = "c:\opt\dst.txt" 

    nSrc = FreeFile 
    Open srcFile For Input As #nSrc 

    nDst = FreeFile 
    Open dstFile For Output As #nDst 

    copyLines = False 
    Do Until EOF(nSrc) 
     Line Input #nSrc, textLine 
     If Not copyLines Then 
      copyLines = InStr(textLine, strAfter) > 0 
     Else 
      Print #nDst, textLine 
     End If 
    Loop 

    Close #nDst 
    Close #nSrc 

End Sub