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, 1264 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

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

Frage von lupi1989 zum Thema VB for Applications ...

Windows Server
Große Dateien mit externen Partnern bearbeiten (4)

Frage von Matsushita zum Thema Windows Server ...

Grafik
Notebook zum Fotos bearbeiten (10)

Frage von KodaCH zum Thema Grafik ...

Microsoft Office
gelöst Makro wird beim öffnen Vorlage nicht ausgeführt (8)

Frage von Sunny89 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...