Thema Datum  Von Nutzer Rating
Antwort
20.04.2014 16:47:32 mac
NotSolved
21.04.2014 12:26:16 Gast15996
Solved
21.04.2014 13:58:33 mac
NotSolved
Blau Rohdaten an meine code anbinden um zu lesen.
 21.04.2014 15:31:10 Gast15996
Solved
21.04.2014 15:44:37 mac
NotSolved
21.04.2014 15:55:53 mac
NotSolved
21.04.2014 17:17:40 Gast69516
Solved
21.04.2014 13:58:38 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:47 mac
NotSolved
21.04.2014 13:58:47 mac
NotSolved
23.04.2014 12:32:30 mac
NotSolved

Ansicht des Beitrags:
Von:
Gast15996		 Datum:
21.04.2014 15:31:10		 Views:
860		 Rating:
     
Antwort:
 Nein
Thema:
Rohdaten an meine code anbinden um zu lesen.

Dein Anliegen verstehe ich weiterhin nicht.

 

Ich gehe jetzt einfach mal davon aus das du:

  • den Inhalt einer Datei, lesen möchtest.
  • Dateien in einem Verzeichnis ermitteln möchtest
Option Explicit

Public Sub Datei_lesen()
  
  Dim strFilename As String
  Dim strFileContent As String
  Dim FN As Integer
  
  strFilename = "X:\Verzeichnis\Unterverzeichnis\Datei.txt"
  
  FN = FreeFile
  
  Open strFilename For Input As #FN
    
    'gesamten Dateiinhalt lesen ...
    strFileContent = Input(LOF(FN), #FN)
    
    '... und zur Veranschaulichung
    'im Direktbereich (ggf. einblenden mit STRG+G)
    'ausgeben
    Debug.Print strFileContent
    
  Close #FN
  
End Sub

Public Sub Dateien_ermitteln()
  
  Dim strRoot As String
  Dim strFile As String
  
  'Verzeichnis in dem gesucht werden soll
  strRoot = "X:\Verzeichnis\Unterverzeichnis\"
  
  Debug.Print "[Dateien in Verzeichnis: '" & strRoot & "']"
  strFile = Dir$(strRoot) 'erste Datei in Verzeichnis abrufen
'  strFile = Dir$(strRoot & "*.txt") 'erste Text-Datei in Verzeichnis abrufen
  Do Until strFile = ""
    Debug.Print " * " & strFile
    strFile = Dir$() 'nächste Datei abrufen
  Loop
  
End Sub

 

 

PS: Das Thema ist für mich jetzt geklärt, ich bin raus. Ich mag es nicht anderen Informationen aus der Nase ziehen zu müssen.

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
20.04.2014 16:47:32 mac
NotSolved
21.04.2014 12:26:16 Gast15996
Solved
21.04.2014 13:58:33 mac
NotSolved
Blau Rohdaten an meine code anbinden um zu lesen.
 21.04.2014 15:31:10 Gast15996
Solved
21.04.2014 15:44:37 mac
NotSolved
21.04.2014 15:55:53 mac
NotSolved
21.04.2014 17:17:40 Gast69516
Solved
21.04.2014 13:58:38 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:46 mac
NotSolved
21.04.2014 13:58:47 mac
NotSolved
21.04.2014 13:58:47 mac
NotSolved
23.04.2014 12:32:30 mac
NotSolved