Thema Datum  Von Nutzer Rating
Antwort
09.11.2015 17:57:13 joerg
NotSolved
09.11.2015 20:27:36 Eisbergle
NotSolved
09.11.2015 21:09:47 joerg
NotSolved
Blau opentext
 10.11.2015 08:19:40 Eisbergle
NotSolved
10.11.2015 08:24:43 Gast11634
NotSolved

Ansicht des Beitrags:
Von:
Eisbergle		 Datum:
10.11.2015 08:19:40		 Views:
812		 Rating:
     
Antwort:
  Ja
Thema:
opentext		 
Sub DateiLesen()
Dim fs As Object
Dim DateiObjekt As Object
Dim DateiVorhanden As Boolean
Dim DateiEof As Boolean

    On Error GoTo Error_DateiLesen
    
    strDateiname = "00123456-010-Durchstrahlung.txt"
    
    DateiVorhanden = True
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set DateiObjekt = fs.Opentextfile(strDateiname)
    
    If DateiVorhanden Then
        Do While Not DateiEof
            Zeile = DateiObjekt.readline
            'mach was mit der zeile'
        Loop
    End If
    
    If DateiVorhanden Then DateiObjekt.Close

CleanUp:
    On Error Resume Next
    Exit Sub

Error_DateiLesen:
    Select Case Err.Number
        Case 53
            DateiVorhanden = False
            MsgBox "Fehler aufgetreten: " & Err.Number & ", " & Err.Description
            Resume Next
        Case 62
            DateiEof = True
            Resume Next
        Case Else
            MsgBox "Fehler aufgetreten: " & Err.Number & ", " & Err.Description
            Resume CleanUp
    End Select
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.11.2015 17:57:13 joerg
NotSolved
09.11.2015 20:27:36 Eisbergle
NotSolved
09.11.2015 21:09:47 joerg
NotSolved
Blau opentext
 10.11.2015 08:19:40 Eisbergle
NotSolved
10.11.2015 08:24:43 Gast11634
NotSolved