Thema Datum  Von Nutzer Rating
Antwort
15.12.2021 17:00:37 Sascha
NotSolved
15.12.2021 17:27:58 Gast15772
NotSolved
16.12.2021 17:45:54 Sascha
NotSolved
16.12.2021 17:52:28 Gast15772
NotSolved
15.12.2021 17:34:22 Mase
NotSolved
15.12.2021 17:35:53 Mase
NotSolved
16.12.2021 17:50:49 Sascha
NotSolved
Blau Shell und Copy
 16.12.2021 09:01:06 volti
*****
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
16.12.2021 09:01:06		 Views:
915		 Rating:
     
Antwort:
 Nein
Thema:
Shell und Copy

Hallo Sascha,

 

hier eine (ggf. ausbaufähige) Idee mit klassischem VBA.

Code:
01
02
03
04
05
06
07
08
09
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		  
Option Explicit

Sub Kopieren()
  Dim sPfadQuell As String, sData As String, sMsgtxt As String
  Dim sFilenameZiel As String, sFilename As String
  Dim iFF As Integer, P As Long

  sPfadQuell = "C:\Users\voltm\Desktop\"                 ' Quelpfad <<<anpassen>>>
  sFilenameZiel = "C:\Users\voltm\Desktop\Gesamt.txt"    ' Zieldatei <<<anpassen>>>

  If Dir$(sFilenameZiel) <> "" Then Kill sFilenameZiel   ' Zieldatei vorher löschen?!

  sFilename = Dir$(sPfadQuell & "*.txt")
  sMsgtxt = "Es wurde keine passende Datei gefunden!"
  If sFilename <> "" Then
     Do While sFilename <> ""
        iFF = FreeFile()                                 ' nächste freie Filennummer
        Open sPfadQuell & sFilename For Input As iFF     ' Datei öffnen
           sData = Input(LOF(iFF), #iFF)                 ' Daten in String schaffen
        Close iFF                                        ' Datei schließen

        P = InStr(sData & vbCrLf, vbCrLf)
        sData = Mid$(sData, P + 2)                       ' Überschrift weg
        Do While Left$(sData, 2) = vbCrLf                ' Leer weg
           if len(sData)>3 then sData = Mid$(sData, 3)
        Loop

        Open sFilenameZiel For Append As iFF             ' Zieldatei öffnen
           Print #iFF, sData                             ' Daten schreiben
        Close iFF                                        ' Datei schließen
        sFilename = Dir$                                 ' Nächste Datei
     Loop
     sMsgtxt = "Die Daten wurden konsolidiert"
  End If
  MsgBox sMsgtxt, vbInformation, "Dateien konsolidieren"
End Sub
_________
viele Grüße
Karl-Heinz

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
15.12.2021 17:00:37 Sascha
NotSolved
15.12.2021 17:27:58 Gast15772
NotSolved
16.12.2021 17:45:54 Sascha
NotSolved
16.12.2021 17:52:28 Gast15772
NotSolved
15.12.2021 17:34:22 Mase
NotSolved
15.12.2021 17:35:53 Mase
NotSolved
16.12.2021 17:50:49 Sascha
NotSolved
Blau Shell und Copy
 16.12.2021 09:01:06 volti
*****
Solved