title image


Smiley TIPP: Datei mit anderen Zeilenendezeichen als CR/LF einlesen


Option Compare Database

Option Explicit

Const MaxBuf = 1024

Dim Buf As String, BufPtr As Long, LBuf As String



Private Function ZeileLesen(Zeilenende As String) As String

Dim I As Long

I = InStr(LBuf, Zeilenende)

Do Until I > 0 Or EOF(1)

Get #1, , Buf

LBuf = LBuf & Buf

I = InStr(LBuf, Zeilenende)

Loop

If I > 0 Then

ZeileLesen = Left(LBuf, I - 1)

LBuf = Mid(LBuf, I + Len(Zeilenende))

Else

ZeileLesen = LBuf

LBuf = ""

End If

End Function



Public Function TestZeileLesen(Optional FName = "C:\temp\ttt.txt")

Dim Zeile As String

Open FName For Binary As #1

Buf = String(MaxBuf, 0)

Do

Zeile = ZeileLesen(Chr(10) )

Debug.Print Zeile

Loop Until LBuf = ""

Close #1

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: