Hi,
Post by Ekkehard BöhmeIst es möglich von Access (A2K) aus in einer .csv-Datei ein "Suchen &
Ersetzen" auszuführen?
Für Tipps und Hinweise wie immer dankbar
wenn's nur um einen replace geht, würde ich die Datei einfach vollständig
einlesen (sofern sie eine "normale" Grösse aufweist), einen replace darüber
laufen lassen und per #put wieder zurückschreiben.
Hier ein Schnipsel zum Einlesen, zu put/print und Konsorten s. OH:
--- 8< ---
'returns a textfile (specified by strTextFile) as string
Function readFileIntoString(strTextFile As String) As Variant
On Error GoTo HandleErrors
Dim intFileNo As Integer, strTxtStream As String
intFileNo = FreeFile
Open strTextFile For Binary As #intFileNo
strTxtStream = Space(LOF(intFileNo))
Get #intFileNo, , strTxtStream
strTxtStream = LTrim(strTxtStream)
readFileIntoString = RTrim(strTxtStream)
ExitHere:
On Local Error Resume Next
Close intFileNo
Exit Function
HandleErrors:
MsgBox "Error " & Err & vbCrLf & _
"Description:" & vbCrLf & Err.Description, vbCritical, _
"Error while reading file " & strTextFile
Resume ExitHere
End Function
--- 8< ---
Da du von einer CSV sprichst, kannst du diese jedoch auch als Tabelle
einlinken. Sharing-Probleme gibt's, wenn jemand die Datei z.B. in Excel
geöffnet hat und es erwarten dich Probleme beim Linken (oder auch Import)
mit Rechnern, die unterschiedliche Ländereinstellungen aufweisen und/oder
andere Trennzeichen verwenden.
Bis dann,
Olaf [MVP]
--
Bitte keine emails auf NG-postings.
My .02: www.Resources.IntuiDev.com