Thema Datum  Von Nutzer Rating
Antwort
06.10.2010 15:37:41 AP
NotSolved
06.10.2010 15:43:15 BennoX
NotSolved
06.10.2010 15:51:00 AP
NotSolved
Blau Aw:Aw:Aw:Zeilen zählen (aus Textdatei)
 06.10.2010 16:44:50 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
06.10.2010 16:44:50		 Views:
1075		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Zeilen zählen (aus Textdatei)
AP schrieb am 06.10.2010 15:51:00:

BennoX schrieb am 06.10.2010 15:43:15:

Hey,

also in Word gibt es unter
"Extras" den Punkt "Wörter zählen", da wird dann auch die Zeilenmenge ausgegeben.

Ich hoffe, das hilft weiter...?

-----------------------------------------------------

Danke, aber ich brauche in meinem MS ACCESS-Modul eine Funktion, die dies für mich tut.


Im Modul einen Verweis auf die Scripting Runtime setzen!

Private Function ZeilenZahl_TextFile(ByVal DateiName As String) As Long
Dim FS As New Scripting.FileSystemObject
Dim txtDatei As TextStream
Dim Zeilen As Long
Dim txtZeile As String
Set txtDatei = FS.OpenTextFile(DateiName, ForReading, False)
Zeilen = 0
On Error Resume Next
Do
Zeilen = Zeilen + 1
txtZeile = txtDatei.ReadLine
Loop Until Err.Number <> 0
Err.Clear
Set txtDatei = Nothing
ZeilenZahl_TextFile = Zeilen - 1
End Function

Severus

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
06.10.2010 15:37:41 AP
NotSolved
06.10.2010 15:43:15 BennoX
NotSolved
06.10.2010 15:51:00 AP
NotSolved
Blau Aw:Aw:Aw:Zeilen zählen (aus Textdatei)
 06.10.2010 16:44:50 Severus
NotSolved