Wie kann man Dateien (txt) lesen bzw. schreiben?

Manchmal muss man Dateien von Filesystem lesen oder schreiben können. Z.B. funktioniert der Textexport oft nicht in der gewünschten Art und Weise. Auf diese Art kann man den Export 'zu Fuß' programmieren und die Welt ist in Ordnung smile

    Dim db As DAO.Database
    Dim q As DAO.Querydef
    Dim rs As DAO.Recordset
    Dim lngRSCount As Long
    Dim FileID As Variant                     ' ID für die zu erstellende Datei
    Dim txtDatensatz As String
    Dim Datei As String

    Set db = CurrentDb()
    Set q = db.QueryDefs("Name der Abfrage")
    Set rs = q.OpenRecordset
'
    lngRSCount = rs.RecordCount
    Datei = "Pfad + Dateiname"

    If lngRSCount > 0 Then
   ' DateiID initialisieren und öffnen
        FileID = FreeFile
        Open Datei For Output As FileID
        rs.MoveLast
        rs.MoveFirst
        'Schleife über alle Datensätze der Abfrage ExportSAP
        Do Until rs.EOF
            'Daten in der richtigen Reihenfolge zusammenbasteln
            txtDatensatz = rs!feld1 & ";" & rs!feld2 
            
            'Datensatz in Datei schreiben
            Print #FileID, txtDatensatz
            rs.MoveNext
        Loop
        MsgBox "Es wurden " & lngRSCount & " Datensätze in die Datei " & Datei & " exportiert."
    Else
        MsgBox "Es gibt keine Datensätze zum Exportieren!"
    End If

  ' Dateien schließen
    Close #FileID
    rs.Close

-- KerstinSchiebel - 02 Jul 2008
Topic revision: r1 - 2008-07-07, KerstinSchiebel
 
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding GSI Wiki? Send feedback
Imprint (in German)
Privacy Policy (in German)