PDA

Vollständige Version anzeigen : Export in ein Text-File in Access möglich ??


gloria
07.05.2001, 14:30
Hallo ans Board,
ich hab ein Problem mit dem Export von Daten in ein TXT-File, das ich aus dem Inhalt einiger Tabellen erzeugen soll. Dabei soll das TxT-File nachfolgende Struktur haben:

Inhalt von UserNew.txt:
dn: CN=charlym,OU=GL,OU=Biberach,DC=pdvs,DC=popp,DC=de
changetype: add
streetAddress: Freiburger Str. 69
codePage: 0
cn: charlym
company: Systeme GmbH
countryCode: 276
c: DE
department: Geschäftsführung
description: Technik
displayName: Maier, Karl
mail: charlym@xxx.de
facsimileTelephoneNumber: +49 (07351) 1121231
givenName: Maier
homeDirectory: \\server01\users$\charlym
homeDrive: H:
initials: kama
l: Biberach
distinguishedName: CN=charlym,OU=GL,OU=Biberach,DC=pdvs,DC=popp,DC=de
objectCategory: CN=Person,CN=Schema,CN=Configuration,DC=pdvs,DC=popp,DC=de
objectClass: user
homePhone: +49 (07351) 123123
mobile: +49 (0171)/12544
otherTelephone: +49 (07351) 123435
physicalDeliveryOfficeName: PDVS Biberach
postOfficeBox: 88499
postalCode: 88400
profilePath: \\server01\profiles$\charlym
name: charlym
SamAccountName: charlym
scriptPath: gg_login.cmd
st: Baden-Württemberg
sn: Karl
telephoneNumber: +49 (07351) 1520-999
co: GERMANY
title: Technischer Fuzzy


Dies soll nach dem Export in UserNew.txt mit der angegebenen Syntax stehen. Die Strings kann ich in Tabellenfeldern alle so erzeugen, nur hab ich keine Ahnung wie der Export abläuft, damit UserNew.txt diesen Inhalt hat. Hoffe das kapiert jemand, was ich da geschrieben hab.

Danke vorab mal.
glori

Günni
07.05.2001, 15:55
Dim Hnd As Integer 'Windoof verwaltet alle geöffneten Dateien über sog. Handles ... hier mal eben schnell eine Variable dafür bereitstellen.

Hnd = FreeFile 'Nächstes freies Handle vom System anfordern und in Hnd speichern

' jetzt kannst Du die Datei öffnen:
Open "C:\DeinPfad\DeineDatei.txt" For Output As Hnd

' Zu Schreiben in die Datei die print #- Anweisung verwenden
Print #Hnd,"dn: " & DeinRecordset!DeinFeld

' das kannst Du nun Zeile für Zeile mit allen benötigen Informationen machen

' Abschließend die Datei wieder schließen:
Close hnd

Fertig!!!! .... na, ist doch gar net so schwer oder????

Scorefun
07.05.2001, 16:49
Hi,

Günni hat ja schon was passendes gepostet.

Wenn ich davon ausgehen darf, daß das, was vor dem Doppelpunkt in jeder Zeile steht, der entsprechende Feldname Deiner Abfrage ist, kann man das wie folgt erweitern:

Function AusgabeInText(dateiname As String, qryAbfrage As String)
dim hnd as integer
Dim db As DATABASE
Dim rs As Recordset
Dim i As Integer
Dim z As Integer
Dim s As String

Hnd = freefile
Set db = CurrentDb()
Set rs = db.OpenRecordset(qryAbfrage)

i = rs.Fields.count

Open dateiname For Output As hnd
Do While rs.EOF = False
For z = 0 To i - 1
s = rs.Fields(z).Name & ": " & rs.Fields(z).Value
Print #hnd, s
Next z
Print #hnd, ""
rs.MoveNext
Loop
Close hnd
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

End Function

Aufzurufen z.B. mit
AusgabeinText("c:\DeineDatei.txt","DeineAbfrage")


Happy Testing