access-vba
Access Vba에서 텍스트 구분 파일 만들기

.NET Framework C# Language excel-vba HTML MySQL Regular Expressions SQL Microsoft SQL Server Visual Basic .NET Language VBA
수색…


소개

때로는 여러 용도로 구분 된 텍스트 파일을 만들어야 할 수도 있습니다. 다음 예제는이를 수행하는 데 도움이되는 여러 가지 방법 중 하나입니다. 내 구분 기호에 파이프 ( "|")를 사용하여 변경하려면 Sep 변수의 할당 만 변경하십시오. 필자의 예제에서는 레코드 세트를 배열에 덤핑합니다. 이것은 절대 defacto 접근 방식이 아닙니다. 이 작업은 레코드 세트 자체를 사용하여 쉽게 수행 할 수 있습니다.

비고

이것은 지적할만한 가치가있다. 

 Wholeline = Wholeline & aRR(i, j) & Sep

레코드 세트는 배열이 바뀐 배열로 덤프하기 때문에 텍스트 파일을 거꾸로 읽어야합니다. 동적 배열을 사용하여 작업하는 경우 실제로 이미 전환되어 있으므로 실제로는 유용합니다. 따라서 행 수를 줄이면 무거운 것을 들기 전에 수행 할 수 있습니다.

또한 가치가없는 것 :

다음 구문을 사용하여 새로운 행으로 덤프하면 쉽게 배열을 바꿀 수 있습니다. 

    Dim xaRR() As String
    ReDim xaRR(q, z)
    xaRR(j, i) = aRR(i, j)

이건 내 게시물과 관련성이 없지만 지적 가치는 그다지 중요하지 않습니다.

예:

Private Sub this()
    Dim rs As DAO.Recordset
    Dim q%: Dim z%
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Invoice;")

    With rs
        rs.MoveLast
        q = rs.RecordCount
        rs.MoveFirst
        z = rs.Fields.Count
    End With
    
    Dim aRR As Variant
    
    aRR = rs.GetRows(q)
    
    Dim i%: Dim j%: Dim counter#: Dim Sep$: Dim Wholeline$: Dim NewTextFile$: Dim path$: Dim fileNameV$
    
    Sep = "|"
    path = Environ("USERPROFILE") & "\Desktop" & "\"
    fileNameV = "Text007.txt"
    NewTextFile = path & fileNameV
    Open NewTextFile For Output As #2
    For j = LBound(aRR, 2) To UBound(aRR, 2)
        For i = LBound(aRR, 1) To UBound(aRR, 1)
            Wholeline = Wholeline & aRR(i, j) & Sep
        Next i
        Print #2, Wholeline
        Wholeline = vbNullString
    Next j
    Close #2

    rs.Close
    Set rs = Nothing
    Erase aRR
    
End Sub


Modified text is an extract of the original Stack Overflow Documentation
아래 라이선스 CC BY-SA 3.0
와 제휴하지 않음 Stack Overflow