Domino 9 und frühere Versionen > ND6: Entwicklung

Text aus Datei importieren

<< < (2/2)

Untitled:
Ok. Dann ist Mid() dein freund.

Sag an, wenn du Probleme hast.

Grüsse

ata:
wenn du nicht allzu viele Zeilen hast, dann hilft dir eventuell die folgende Funktion:

Es liefert den Inhalt einer Textdatei als Array zurück. Die einzelnen Zeilen kabnnst du dann mit Explode und einem Trennzeichen, wie z.B. Chr(9) für Tab-Sprung in die einzelnen Bestandteile zerlegen...


--- Code: ---Function ImportFromFile( sFile As String ) As Variant
    REM Eine Import-Funktion für die Praxis...
    ' # ... Rückgabewert = Array
On Error Goto ErrHandle
ImportFromFile = ""
If sFile <> "" Then
Dim sRow() As String
Dim sTxt As String
Dim fileNum As Integer
Dim counter As Integer
fileNum = Freefile()
counter = -1
            ' # ... die Datei zum Lesen öffnen...
Open sFile For Input As fileNum
Do While Not Eof( fileNum ) 
Line Input #fileNum, sTxt
counter = counter + 1
Redim Preserve sRow( 0 To counter )
sRow( counter ) = sTxt
Loop
Close fileNum' # ... schließen
            ' # ... Array zurückgeben...
ImportFromFile = sRow 
Print "Der Import ist abgeschlossen"
End If
Exit Function
ErrHandle:
Close fileNum
Print "Abbruch - es konnte keine Datei geöffnet werden"
Exit Function
End Function
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete