Wie kann der Inhalt von Batch-Dateien in Notepad oder Excelsheet übertragen werden?

557
Rajkamal kewlani

Ich habe eine Liste von Batchdateien. Ich möchte den gesamten Inhalt aller Dateien in einen einzigen Notizblock oder ein Excelsheet übertragen und eine Liste erstellen.

0
Welche Version von Excel? Wenn es 2003+ ist, gehen Sie zur Registerkarte "Daten" und suchen Sie nach "Importdatei". Kevin Anthony Oppegaard Rose vor 6 Jahren 0

3 Antworten auf die Frage

0
Zwier Dijkhuis

Ich würde das in Powershell machen. Angenommen, alle Stapeldateien befinden sich in einem Ordner.

----- Kopieren Sie den gesamten Text unter dieser Zeile und fügen Sie ihn in eine Skriptdatei ein -----

#### Determine the location of all batchfiles $BatchesFolder = "E:\Batches"  #### Determine the file for all collected data $resultfile = "E:\Data\results.txt"  #### Read all files in batch folder $batchfiles = (Get-ChildItem $BatchesFolder).fullname  #### Read each file and store data in result file Foreach ($file in $batchfiles) { "--- Content of file $file ---" | Out-File -FilePath $resultfile -Append get-content $file | Out-File -FilePath $resultfile -Append }
0
davidmneedham

Mit cmd.exe:

type C:\PathToBatchFiles\* > C:\PathToOutputFolder\OutputFile.txt

Der Inhalt jeder Datei im Verzeichnis PathToBatchFiles wird ohne Dateinamen-Trennzeichen in OutputFile.txt gedruckt.

0
Gary's Student

Dies erfolgt aus Excel heraus mit VBA .

Ich habe einige .bat- Dateien in einem Ordner namens Belfry :

Ausführen dieses VBA- Makros:

Sub BatLister() Dim s1 As Worksheet, s2 As Worksheet Dim WhereToLook As String, FileName As String Dim fPath As String, FileSpec As String Dim L As Long, i As Long, j As Long  Set s1 = Sheets("bat dir") Set s2 = Sheets("bat list") s1.Cells.Clear s2.Cells.Clear WhereToLook = "C:\Users\garys\Documents\Belfry\*.bat" fPath = "C:\Users\garys\Documents\Belfry\"  L = 1 FileName = Dir(WhereToLook) FileSpec = fPath & FileName Do Until FileName = "" s1.Cells(L, 1) = FileSpec L = L + 1 FileName = Dir() FileSpec = fPath & FileName Loop  j = 1 For i = 1 To L - 1 FileSpec = s1.Cells(i, 1).Value s2.Cells(j, 1) = FileSpec j = j + 1 Close #2 Open FileSpec For Input As #2 Do While Not EOF(2) Line Input #2, TextLine s2.Cells(j, 2) = TextLine j = j + 1 Loop Next i Close #2 End Sub

erzeugt eine Liste aller .bat- Dateien im Ordner.

Die Dateinamen in Spalte A und die Dateiinhalte in Spalte B :

Verwandte Probleme