Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Zeilenumbrüche in mehreren Dateien eines Ordners entfernen

Mitglied: Tranministrator

Tranministrator (Level 1) - Jetzt verbinden

21.09.2014, aktualisiert 20:19 Uhr, 1029 Aufrufe, 2 Kommentare

Hallo liebe Admins,

habe folgenden Code welcher ganz gut funktioniert und alle Zeilenumbrüche EINER bestimmten Datei entfernt.
Jetzt ist aber die große Frage wie man das so löst, dass alle Dateien eines bestimmten Ordners mit einem bestimmten Dateinamens-Anfang zB. TEST* damit ausgestattet werden ohne dass sich der Dateiname dabei ändert.


01.
'Variablen & Konstanten definieren 
02.
Dim fso, objEingabe, objAusgabe, objSuchen 
03.
Dim Pfad, EingabeDatei, AusgabeDatei, Zeile 
04.
 
05.
Suchen_Click() 
06.
 
07.
Private Sub Suchen_Click() 
08.
 
09.
Pfad = "C:\Users\xxx\Desktop\test\" 
10.
EingabeDatei = "test.txt" 
11.
AusgabeDatei = "aus.txt" 
12.
 
13.
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
14.
'Objekt erstellen 
15.
Set fso = CreateObject("Scripting.FileSystemObject") 
16.
If fso.FileExists(Pfad & EingabeDatei) Then 
17.
Set objEingabe = fso.OpenTextFile(Pfad & EingabeDatei, 1) 
18.
Set objAusgabe = fso.OpenTextFile(Pfad & AusgabeDatei, 2,true) 
19.
Else 
20.
MsgBox "Fehler: Eingabedatei ist nicht vorhanden." 
21.
Exit Sub 
22.
End If 
23.
 
24.
do until objEingabe.AtEndOfStream 
25.
Zeile = objEingabe.ReadAll 
26.
Zeile = Replace(zeile, vbcrlf, "") 
27.
 
28.
objAusgabe.Write (Zeile) 
29.
Loop 
30.
 
31.
objEingabe.Close 
32.
objAusgabe.Close 
33.
 
34.
' Eingabedatei löschen 
35.
fso.DeleteFile Pfad & EingabeDatei, True 
36.
' AusgabeDatei umbenennen durch MoveFile 
37.
fso.MoveFile Pfad & Ausgabedatei, Pfad & EingabeDatei 
38.
 
39.
Set objAusgabe = Nothing 
40.
Set objEingabe = Nothing 
41.
Set fso = Nothing 
42.
 
43.
End Sub
Viele Grüße

Robs
Mitglied: rubberman
LÖSUNG 21.09.2014, aktualisiert um 20:19 Uhr
Hallo Tranministrator,

etwa so:
01.
Option Explicit 
02.
 
03.
Const strPath = "C:\users\xxx\desktop\test" 
04.
Const strFirstPart = "TEST" 
05.
 
06.
Const ForReading = 1, ForWriting = 2 
07.
Dim objFSO, objFolder, objFile, objStream, strContent 
08.
 
09.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
10.
Set objFolder = objFSO.GetFolder(strPath) 
11.
 
12.
For Each objFile In objFolder.Files 
13.
  If InStr(objFile.Name, strFirstPart) = 1 Then 
14.
    Set objStream = objFile.OpenAsTextStream(ForReading) 
15.
    strContent = Replace(objStream.ReadAll, vbCrLf, "") 
16.
    objStream.Close 
17.
    Set objStream = objFile.OpenAsTextStream(ForWriting) 
18.
    objStream.Write strContent 
19.
    objStream.Close 
20.
  End If 
21.
Next
Grüße
rubberman
Bitte warten ..
Mitglied: Tranministrator
21.09.2014 um 20:20 Uhr
Hallo Rubberman,

recht herzlichen Dank für deine Mühe!

Hat bestens geklappt

Viele Grüße

Robs
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Word: Zeilenumbruch bei Textmarke entfernen

Frage von BadgerMicrosoft Office

Hallo, folgende Ausgangslage: In einem Word Dokument sind Textmarken von verschiedenen Excel-Zeilen vorhanden: Das Problem ist, dass automatisch immer ...

Batch & Shell

Zeilenumbruch-Zeilen-Vorschub entfernen? (Batch)

gelöst Frage von clragonBatch & Shell9 Kommentare

Hallo Leute, Ich bin's wieder, mit einem verzwickten Problem. Und ich hab folgendes Problem Ich habe eine riesige Logfile ...

VB for Applications

Auslesen von Dateien eines Ordners

gelöst Frage von KyrinjaVB for Applications5 Kommentare

Hallo liebe Gemeinde, ich würde gerne den Ordner Documents auslesen um zu sehen ob sich darin PDF dateien befinden. ...

Batch & Shell

Powershell Get-Content Zeilenumbrüche und leere Elemente entfernen

gelöst Frage von derhoeppiBatch & Shell6 Kommentare

Hallo, mein Ziel ist es aus einer Textdatei eine Zeile auszulesen und diese zu zerlegen, so dass ich jedes ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 2 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement13 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware12 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android12 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...