title image


Smiley Tipp: Textdatei einlesen
such dir eines aus (für die erste Funktion brauchst du ein Verweis auf die MS Scripting Runtime [SCRRUN.DLL]!):



Public Function GetFile(FName As String)

Dim FSO As New Scripting.FileSystemObject, Strm As Scripting.TextStream

Set Strm = FSO.OpenTextFile(FName)

GetFile = Strm.ReadAll

Strm.Close

Set FSO = Nothing

End Function



Public Function GetFile1(FName As String)

Dim Lin As String, Res As String, Chan As Integer

Chan = FreeFile

Open FName For Input As Chan

Do Until EOF(Chan)

Line Input #Chan, Lin

Res = Res & vbCrLf & Lin

Loop

GetFile1 = Mid(Res, 3)

Close Chan

End Function



Public Function GetFile2(FName As String)

Dim Buf As String, Chan As Integer

Chan = FreeFile

Buf = String(FileLen(FName), 0)

Open FName For Binary As Chan

Get #Chan, , Buf

GetFile2 = Buf

Close Chan

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: