Access 2000 Frage.. ASCII- Datei erstellen

Question

Hallo,
bin auf der Suche nach einer Lösung meines Problems, auf diese Seite gestoßen. Vielleicht kann mir ja jemand helfen
In der DB sind Datensätze zu Objekten mit GPS Daten gespeichert.
Mit diesen GPS Daten möchte ich, auf Klick, einen Geo-Viever öffnen und mir die Position in diesem Programm (TOP 50) anzeigen lassen.
Leider kann ich die Daten nicht direkt übergeben (analog WORD oder EXCEL. Das läßt die Funktionalität des Programms nicht zu.
Ich kann aber eine unformatierte Textdatei mit codierten Zeichen, die die GPS Position bezeichen, öffnen lassen, und habe die gewünschte Anzeige.
Punkt 1, das generieren der Codes ist kein Problem. Habe ich zur Ausgabe beireits als String vorliegen.
Punkt 3, das Öffnen des Programms mit einer Textdatei funktioniert aus ACCESS reibungslos. (shell)
Mein Problem ist der Zwischenschritt, also Punkt 2
FRAGE; Wie generiere ich aus einem String eine ***.txt Datei aus ACCESS?????
Der String bezeichnet nicht den Namen der Datei, der ist völlig egal, sondern den Text.
Im voraus vielen Dank für Eure Anregungen.

Answer 1

Hi drahthaar123

das geht z.B. so:

Dim p As String
dim s as String
Dim f As Scripting.FileSystemObject
Dim ts As Scripting.TextStream

s= "Text der ausgegeben werden soll...."
p = "<pfad>\***.txt"

Set f = New Scripting.FileSystemObject
Set ts = f.OpenTextFile(p, ForWriting, True)
ts.write s
ts.Close
set f = nothing

Du muss allerdings in VBA noch den Verweis "Microsoft Scripting Runtime" aktiverien "Menü Extras-->Verweise"

Gruß
Ralf