메모장에서 텍스트 편집

Question

메모장 .csv 파일에서 텍스트를 편집하는 데 도움이 필요합니다. Excel 용 행이 너무 많은 큰 파일이 있습니다. 메모장에서 파일을 열고 메모장에서 파일의 처음 15 개 행을 제거한 다음 .txt 파일로 저장해야합니다. 가능한 경우이 매크로를 실행하는 데 필요한 여러 .csv 하위 폴더가있는 폴더를 선택하고 싶습니다. 처음 15 개의 줄에는 항상 같은 텍스트가 들어있는 것은 아닙니다. 누군가가 나를 도와 줄 수 있습니까?

감사

Answer 1

여기 (상관없이 그 라인의 내용) 텍스트 파일의 상단 선 (15)을 제거하는 방법의 일례이다. 한 번에 한 줄에서 작업 할 때 대용량 파일을 임의로 처리 할 수 ​​있어야합니다.

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