Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: Nathalem

Nathalem (Level 1) - Jetzt verbinden

24.04.2013 um 12:49 Uhr, 1295 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
gelöst CSVs in eine Mappe ziehen per Script (5)

Frage von Crank69 zum Thema Batch & Shell ...

Batch & Shell
gelöst Inhalt einer .txt per Script bearbeiten (2)

Frage von hanni007 zum Thema Batch & Shell ...

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Neue Wissensbeiträge
LAN, WAN, Wireless

WPA-2 hat erste Risse: KRACK

(2)

Information von the-buccaneer zum Thema LAN, WAN, Wireless ...

Hardware

GPD Pocket: Winziger Laptop für Wenig Tipper

(1)

Information von pelzfrucht zum Thema Hardware ...

Windows 10

Microsoft veröffentlicht das "Fall Creators Update

(10)

Information von Penny.Cilin zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (20)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...