Aus vielen TXT eine machen... [Archiv]

Archiv verlassen und diese Seite im Standarddesign anzeigen : Aus vielen TXT eine machen...

ooAlbert

2006-10-11, 14:45:42

Hi,

gibt es ein freewareprogramm das viele TXT dateien einlesen kann und dann die texte in einer einzigen wiederausgiebt?

mfg

JaDz

2006-10-11, 15:04:01

Start -> Ausführen -> "cmd"

Dann in den entsprechenden Ordner wechseln,

copy *.txt komplett.txt

eingeben und Enter drücken.

Die Textdateien werden dabei nach Namen sortiert abgearbeitet. Für eine andere Reihenfolge musst Du entweder die Dateien vorher in der korrekten Reihenfolge benennen oder aber

copy 1.txt + 7.txt + 4.txt + xyz.txt ... (weitere Dateien in der gewünschten Reihenfolge) komplett.txt

eingeben.

The_Strip

2006-10-11, 16:39:04

So einfach? Als ich vor kurzem gefragt habe, kam das raus:
'Programm: JoinTextdateien.vbs
'Zweck: Fügt in einem vorgegebenen Verzeichnis alle Dateien zusammen.
'Autor: mfi
'geändert: 29.01.03
'Konstanten
'==========
'Pfad zu den Textdateien:
Const PFAD="C:\xyz\"
'Endung der Textdatei:
Const ENDUNG="txt"
'Standardausgabeverzeichnis - und datei:
Const AUSGABE="C:\Ausgabe.txt"
'Variablen
'=========
Private strDatei 'as String
Private fsoDateisystem 'as FileSystemObject
Private i 'as Integer
Private flDateiOut 'as File
Private flDateiIn 'as File
Private fol 'as Folder
Private wsSkriptumgebung 'as Shell
'Objektinitialisierung
Set wsSkriptumgebung = WScript.CreateObject("WScript.Shell")
Set fsoDateisystem = WScript.CreateObject("Scripting.FileSystemObject")
'Output Datei löschen, falls vorhanden
If fsoDateisystem.FileExists(AUSGABE)=true Then
Set flDateiOut=fsoDateisystem.GetFile(AUSGABE)
flDateiOut.Delete
End If
'Den MS-Dos Befehl ausführen.
wsSkriptumgebung.Run ("%comspec% /c copy """ & PFAD & "*." & _
ENDUNG & """ """ & AUSGABE & "")
Aber hats genauso getan!

UliBär

2006-10-11, 16:55:15

So einfach? Als ich vor kurzem gefragt habe, kam das raus:
- VB-Gelumpe gekürzt -
Aber hats genauso getan!Das sieht aber sehr nach rektaler Gehirnchirurgie aus... ;D

PHuV

2006-10-11, 18:33:30

So einfach? Als ich vor kurzem gefragt habe, kam das raus:
'Programm: JoinTextdateien.vbs

Aber hats genauso getan!

Das war wohl ein Programmieranfänger oder ein VB-Fan:

Unter UNIX/Cygwin geht das noch einfacher:

cat *.txt > neuer_text.txt

bzw. DOS-Syntax

type *.txt > neuer_text.txt

- VB-Gelumpe gekürzt -

:ulol2: :lol:

ooAlbert

2006-10-11, 22:06:50

hm, also es hat gut funktioniert ... wobei ich in der zwischenzeit sogar ein java programm geschreiben hab was im endeffekt das selbe macht ;)

Rooter

2006-10-11, 22:19:02

hm, also es hat gut funktioniert ... wobei ich in der zwischenzeit sogar ein java programm geschreiben hab was im endeffekt das selbe macht ;)Dann poste das auch noch hier ! :biggrin:

MfG
Rooter

x-dragon

2006-10-11, 23:06:51

Kann man das ganze noch mit einer schöner GUI haben und einem Assistenten und ausführlicher Beschreibung? ;D

PHuV

2006-10-11, 23:52:12

hm, also es hat gut funktioniert ... wobei ich in der zwischenzeit sogar ein java programm geschreiben hab was im endeffekt das selbe macht ;)

ksh/csh/sh Scripte sind sehr mächtig und können vieles erledigen, ohne irgendwelche Programme zu erstellen. Man muß sie nur zu nutzen wissen ;) .

Marcel

2006-10-13, 16:47:57

http://www.turbogenial.de/ablage/FileConcat.zip (114k)

Wollte mal wissen, ob ich's noch drauf habe.
Delphi 3, 12 Minuten (inklusive einem Delphi3-Absturz, irgendwo hängt eine kaputte Komponente drin). Source ist mit drin.

siegemaster

2006-10-13, 17:12:08