이진 액세스는 특정 문자열 </p> <p>

Question

Sub ReadEntireFileAndPlaceOnWorksheet() 
 
    Dim X As Long, FileNum As Long, TotalFile As String, FileName As String, Result As Variant, Lines() As String 
 
    FileName = "C:\Users\Mohamed samatar.DSSE-EMEA\Documents\EQVL\Test\WHVP113_140910_TTinsug_TT_299Data_PUoff_WOT-TakeOff_NotKickDown_gearD_FelLambda.dat" 
 
    FileNum = FreeFile 
 
    Open FileName For Binary As #FileNum 
 
    TotalFile = Space(LOF(FileNum)) 
 
    Get #FileNum, , TotalFile 
 
    Close #FileNum 
 
    Lines = Split(TotalFile, vbNewLine) 
 
    ReDim Result(1 To UBound(Lines) + 1, 1 To 1) 
 
    For X = 1 To UBound(Result) 
 
    Result(X, 1) = Lines(X - 1) 
 
    Next 
 
    Range("A1").Resize(UBound(Result)) = Result 
 
End Sub​

내가 메모장에서 각 파일을 열려고 및 추출, 그러나 그들은 매우 큰이 될 수있는 .dat 형식으로,이 파일은 몇 가지 중요한 정보가 포함 된 일부 파일이를 찾고, 읽고 내가 필요로하는 정보는 메모장에 각 파일을 여는 데 오랜 시간이 걸리기 때문에 효율적이지 않습니다. 분명히 대용량 파일을 열고이 파일을 매우 빨리 읽을 수있는 바이너리 액세스 읽기 기능을 접했습니다. 정보의 특정 줄을 찾고/얻는 방법을 궁금해하고 있습니다. 찾기 기능을 말하기 위해 비슷한 기능을 사용할 수 있습니까? 아니면 정보를 얻는 다른 방법이 제가 지금까지 가지고있는 것입니다. 파일 유형을 알려주는 것입니다. 기본적으로 특정 문자열 값을 검색 할 수 있기를 원합니다. 또는 Excel의 모든 텍스트를 덤프하고 거기에서 정렬 할 수 있다면 모든 지침이 유용합니다.

Answer 1

다음은 두 가지 예입니다.

Option Explicit 
Sub testReadLine() 
    Dim filename As String 
    Dim FF As Integer 
    Dim line As String 
    Dim i as Long 

    filename = "C:\yourfilename.txt" '### MODIFY AS NEEDED 

    FF = FreeFile 
    Open filename For Input As FF 
    Do While Not EOF(FF) 
     Line Input #FF, line 

     Range("A1").Offset(i).Value = i 
     i = i + 1 
    Loop 
    Close FF 

End Sub 

번째 예는 전체를 판독한다 : 첫 번째는 각각 라인 위해 A2, A3 등 번까지 다음 파일 셀 A1부터 워크 시트에 인쇄의 각 행을 판독하고, 파일을 문자열 변수로 변환 한 다음 Split 함수를 사용하여 해당 문자열을 줄 구분 기호 (vbCRLF으로 가정)를 기반으로 문자열 배열로 변환합니다.

이 사람은 빨리해야하고, 물론 당신은 등,

Option Explicit 
Option Base 0 
Sub testReadAll() 

    Dim filename As String 
    Dim FF As Integer 
    Dim text As String 
    Dim buffer As Long 
    Dim txtArray() As String 

    filename = "C:\yourfilename.txt" '### MODIFY AS NEEDED 

    FF = FreeFile 
    Open filename For Input As FF 
    buffer = LOF(FF) 
    text = Input(buffer, FF) 
    Close FF 

    'Put the text into an array, split by the LineFeed character: 
    txtArray = Split(text, vbCrLf) 

    'Print to the worksheet: 
    Range("A1").Resize(Ubound(txtArray)).Value = Application.Transpose(txtArray) 

End Sub