☰

여러 개의 파일 끝 플래그가 있는 파일 읽기

tag-icon • tag-icon microsoft-excel vba
여러 개의 파일 끝 플래그가 있는 파일 읽기

서버 업데이트에서 내보낸 파이프로 구분된 파일이 있습니다. 약 1억 3,400만 개의 레코드가 있습니다. 저는 데이터를 다른 프로그램(예: SAS)으로 읽기 전에 Excel을 사용하여 소수의 레코드(1,000 - 10,000)를 가져와 데이터를 탐색하고 문제를 찾고 있습니다.

파일의 레코드 6200에 문제가 있지만 Excel에서는 처음 3,200개의 레코드만 읽을 수 있으므로 파일을 읽을 수 없습니다. 파일에 여러 개의 파일 끝 표시가 있음을 발견했습니다(파일은 Linux에서 가져온 것이며 Windows에서는 파일 끝을 표시하는 1A 16진수 코드를 찾습니다). 누구나 이 문제를 해결하는 방법을 알고 있습니다. 내 현재 코드는 다음과 같습니다

Sub Test()
file = "c:\user\myfile"
Open file For Input As #1
For i = 1 To 10000
    Line Input #1, dat
    Cells(i, 1) = dat
Next i

Close #1
End Sub

답변1

파일에서 값을 찾아서 바꿔보세요.

Dim CellContent as String
Dim NewCellContent as String
CellContent = 'the line you're bringing in
NewCellContent = (Worksheetfunction.Substitute([your line], chr(26),vbnullstring))

Do Until CellContent = NewCellContent

    CellContent = NewCellContent
    NewCellContent = Worksheetfunction.Substitute(NewCellContent,chr(26),vbnullstring)

Loop

아니면 정규식을 사용할 수도 있습니다.

관련 정보