Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 1284 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
Outlook & Mail
Outlook - Aufgaben zu Zweit bearbeiten

Frage von ArnoNymous zum Thema Outlook & Mail ...

Vmware
ESXi 6.5 - Benutzer Berechtigung (VM bearbeiten)

Frage von DasBill zum Thema Vmware ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Server-Hardware
Einem Stromausfall entgegen wirken (19)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...