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 CSVs mit Makro oder Scripts bearbeiten

Mitglied: Nathalem

Nathalem (Level 1) - Jetzt verbinden

24.04.2013 um 12:49 Uhr, 1304 Aufrufe, 2 Kommentare, 1 Danke

in allen CSV Dateien in bestimmten Ordner die 0KB groß sind soll ein Eintrag gemacht werden

Scripts A erzeugt eine Menge CSV Dateien mit Namen der User die in bestimmten AD Gruppen sind. In einigen dieser Gruppen sind keine User. Ein weiteres Script fasst den Inhalt der CSVs zusammen und schreibt diesen in eine Weitere CSV Datei.
Diese sieht in etwa so aus

Schumacher Weltmeister
Alonso Weltmeister
Hamilton Weltmeister
Button Weltmeister
Vettel Weltmeister

Sutil nicht Weltmeister
Glock nicht Weltmeister
Perez nicht Weltmeister
Webber nicht Weltmeister

Da so jedoch nicht ersichtlich ist welche Gruppen leer sind würde ich in jede CSV die 0KB groß (und daher leer ist) einen Eintrag machen "kein User enthalten"

Die CSVs liegen alle im gleichen Ordner

Als Ablaufplan stelle ich mir das etwa so vor

gehe in c:\ADDGE\CSV\
ist die erste Datei unter 10kb groß
wenn ja mach in Zeile 1 den Eintrag "kein User enthalten" und gehe zur nächsten Datei
wenn nein gehe zur nächsten Datei
hör auf wenn du am Ende des Ordners angekommen bist
Mitglied: colinardo
24.04.2013, aktualisiert um 13:23 Uhr
Hi Nathalem Willkommen im Forum,
01.
Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
02.
Set rootFolder = fso.GetFolder("c:\ADDGE\CSV\") 
03.
 
04.
For Each file In rootFolder.Files 
05.
	If file.Size = 0 And LCase(Right(file.Name,3)) = "csv" Then 
06.
		Set f = file.OpenAsTextStream(2) 
07.
		f.WriteLine "kein User enthalten" 
08.
		f.Close 
09.
	End If 
10.
Next 
11.
Set fso = Nothing 
12.
Set f = Nothing 
13.
Set rootFolder = Nothing
Grüße Uwe
Bitte warten ..
Mitglied: Nathalem
24.04.2013 um 13:37 Uhr
Ich musste noch eine Kleinigkeit ändern was aber an mir liegt da ich mich einem Workaround anpassen musste.
Funktioniert aber super Dankeschön
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
CSVs in eine Mappe ziehen per Script
gelöst Frage von Crank69Batch & Shell5 Kommentare

Hallo leute habe ein kleines Problem, ich möchte mehrere csv Dateien in eine Mappe ziehen. Mein Problem ist das ...

Outlook & Mail

Outlook 2013 - Emails bearbeiten und erneut senden (Makro?)

gelöst Frage von FlooooOutlook & Mail16 Kommentare

hey moin, es kann ja eigtl nicht sein, dass OUTLOOK 2013 keinen shortcut für "Email erneut senden" hat :-D ...

Batch & Shell

Inhalt einer .txt per Script bearbeiten

gelöst Frage von hanni007Batch & Shell2 Kommentare

Hallo Mitstreiter! Habe zu dieser Sache leider keinen alten Beitrag gefunden. Mein Problem ist daher folgendes: Ich habe eine ...

VB for Applications

Makro - mehrere csv Dateien aus einem Verzeichnis bearbeiten (bestimmten Bereich löschen) und speichern

gelöst Frage von FredlaboschVB for Applications10 Kommentare

Guten Morgen, leider bin ich ein absoluter Neuling im Bereich Makros und benötige eure Hilfe. Meine Aufgabenstellung wurde hier ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 17 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 20 StundenAdministrator.de Feedback14 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Network
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Network15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Memory Cards
Vergessliche USB-Sticks?
Frage von hanheikMemory Cards14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...