Vanuit Access naar een csv file exporteren en ook verwijderen

[mmooho]

Ik moet vanuit access bepaalde records wegschrijven in een groeiend csv bestand. (dus append)
Op een later tijdstip moet ik uit datzelfde csv bestand bepaalde regels verwijderen (je moet dan kunnen zoeken op het eerste gegeven in de regel)

Wie heeft iedeeen hoe dat te doen?
Alvast bedankt,
Mascha

 

[epfangb]

Ik moet vanuit access bepaalde records wegschrijven in een groeiend csv bestand. (dus append)
Op een later tijdstip moet ik uit datzelfde csv bestand bepaalde regels verwijderen (je moet dan kunnen zoeken op het eerste gegeven in de regel)

Wie heeft iedeeen hoe dat te doen?
Alvast bedankt,
Mascha

Ik gebruik daarvoor het FileSystemObject.

Sub voorbeeld()

'Indien nodig via menu 'Extra' Verwijzing zetten naar Windows Script
'Host Object Model

Dim f As FileSystemObject
Set f = CreateObject("Scripting.FileSystemObject")
Dim fl As TextStream
Dim TextRegel As String

'Controle of tekstfile bestaat
If Not f.FileExists("d:\temp\test.csv") Then
f.CreateTextFile "d:\temp\test.csv"
End If

'Schrijven naar een tekstfile
Set fl = f.OpenTextFile("d:\temp\test.csv", ForAppending)

fl.WriteLine "Tekst"

'Lezen van een tekstfile
Set fl = f.OpenTextFile("d:\temp\test.csv", ForReading)

Do Until fl.AtEndOfStream

TextRegel = fl.ReadLine
MsgBox TextRegel

Loop

Set f = Nothing
Set fl = Nothing


End Sub

 

[mmooho]

en verwijderen?

Bedankt voor je antwoord, het heeft met een eind op weg geholpen.
Blijft alleen nog de vraag hoe ik een specifieke regel verwijder.
Stel dat in de eerste kolom een IDnr staat en ik moet de regel van een bepaald IDnr verwijderen, hoe doe ik dat dan?

Alsvast bedankt.

Mascha

 

[epfangb]

Bedankt voor je antwoord, het heeft met een eind op weg geholpen.
Blijft alleen nog de vraag hoe ik een specifieke regel verwijder.
Stel dat in de eerste kolom een IDnr staat en ik moet de regel van een bepaald IDnr verwijderen, hoe doe ik dat dan?

Alsvast bedankt.

Mascha

Volgens mij kun je niet regels verwijderen, maar wel een tekstfile lezen en alleen de regels schrijven die je over wilt houden.

Paar coderegels waarmee het moet lukken:

Set flinput = f.OpenTextFile("d:\temp\test.csv", ForReading)
Set floutput = f.OpenTextFile("d:\temp\test2.csv", ForAppending)

TextRegel = flinput.ReadLine

if TextRegel = <voorwaarde> then

floutput.WriteLine TextRegel

end if