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:
968		 Rating:
     
Antwort:
  Ja
Thema:
opentext
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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