Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zugriff auf textdatei
Autor: KevinFreetz
Datum: 12.01.09 15:59
'zeilen einer txt einlesen 'Achtung: aufzurufende Datei wird nicht hier definiert sondern ' so: mod_txtEinlesen.ReadEingabenTxT ("C:\dom\programme\manuell.txt") 'die erstellte txt wird auf frmDaten eingelesen '########################### '# frmDaten füllen aus txt # '########################### Public Sub ReadEingabenTxT(sFilename As String) Dim i As Integer Dim b() As String 'On Error GoTo zError 'On Error Resume Next Dim sInhalt As String Dim f As Integer f = FreeFile() 'nur weiter, wenn Datei vorhanden If Not Dir(sFilename) = "" Then Open sFilename For Binary As #f sInhalt = Space$(LOF(f)) Get #f, , sInhalt Close #f b = Split(sInhalt, vbCrLf) frmDaten.tbMieterNr = b(0) frmDaten.tbEinzug = b(1) 'am tt frmDaten.tbAuszug = b(2) Dim xyz As Variant xyz = b(3) xyz = b(3) xyz = b(4) frmDaten.tbAnteile1 = Left(xyz, 6) xyz = b(4) frmDaten.tbAnteile2 = Right(xyz, 6) frmDaten.cbAnrede.Text = b(6) frmDaten.tbAnrede1 = b(7) '3 = alphaFeld frmDaten.tbAnrede2 = b(8) frmDaten.tbVorname1 = b(11) frmDaten.tbName1 = b(12) frmDaten.tbVorname2 = b(13) frmDaten.tbName2 = b(14) Else GoTo zError 'obiger Code würde sonst keine Fehlermeldung bringen End If Exit Sub zError: MsgBox "Error: ''ErrHandlerReadEingabenTxT = 1''" & vbLf & "sFilename: " & sFilename & vbLf & "Gibt es sFilename? (Pfad und Datei?)" ErrHandlerReadEingabenTxT = 1 End Sub Gruß kev

Zugriff auf textdatei	826	workuhol	12.01.09 15:37
Re: Zugriff auf textdatei	550	KevinFreetz	12.01.09 15:59
Re: Zugriff auf textdatei	525	Ne kölsche Jung	17.01.09 12:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen