title image


Smiley Wozu ein Array?
Ein einfacher String tut's doch auch:



Public Function TextEinlesen(FName As String) As String

Dim Res As String, Tmp As String

Open FName For Input As #1

Do Until EOF(1)

Line Input #1, Tmp

Res = Res & vbCrLf & Tmp

Loop

Close #1

TextEinlesen = Mid(Res, 3)

End Function



Oder auch (mit dem Filesystem-Objekt - Verweis auf die Scripting Runtime erforderlich!):



Public Function TextEinlesen1(FName As String) As String

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

Set S = FSO.OpenTextFile(FName)

TextEinlesen1 = S.ReadAll

S.Close

End Function



Oder auch (binär einlesen):



Public Function TextEinlesen2(FName As String) As String

Dim Tmp As String

Tmp = String(FileLen(FName), 0)

Open FName For Binary As #1

Get #1, , Tmp

Close #1

TextEinlesen2 = Tmp

End Function





Ansonsten, wenn's wirklich ein Array sein soll:



Dim X() As String

Public Sub TextEinlesen(FName as String, X() as String)

Dim i As Integer

Open FName For Input As #1

Do Until EOF(1)

I = I +1

Redim Preserve X(1 to I)

Line Input #1, X(i)

Loop

Close #1

End Sub



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: