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 VBS - Zeile nach Bedinung aus Ursprungsdatei löschen

Mitglied: Iwan

Iwan (Level 2) - Jetzt verbinden

10.12.2007, aktualisiert 13:07 Uhr, 6079 Aufrufe, 2 Kommentare

folgendes Problem:
ich lese eine TXT-Datei ein, wo Computernamen drin stehen:
strCompListe = "C:\Temp\Test\done\0\0.txt"
Set objCompFile = fso.OpenTextfile(strCompListe, 1)
strComputer = objCompFile.ReadLine

danach werden Computerinfos abgefragt und diese in neue Dateien geschrieben
nun möchte ich aber, das wenn z.B. der Username ermittelt werden konnte, das der Computername aus der Liste gelöscht wird, so das ich am Ende in der strCompListe nur noch die Rechner drin habe, wo ich eben nicht die Daten ermitteln konnte, weil z.B. der PC offline oder keiner angemeldet war

nur wie mache ich das?
If objItem.Name <> "" then Lösche.strComputer.in.strCompListe??


*nachtrag*
wird nicht mehr benötigt, siehe mein Beitrag weiter unten
Mitglied: bastla
10.12.2007 um 12:44 Uhr
Hallo Iwan!

Du könntest es etwa so versuchen (ungetestet):
01.
...
02.
strCompListe = "C:\Temp\Test\done\0\0.txt"
03.
Set objCompFile = fso.OpenTextfile(strCompListe, 1)
04.

05.
strListeNeu = ""
06.
Do Until objCompFile.AtEndOfStream
07.
    strComputer = objCompFile.ReadLine
08.
    ...
09.
    If objItem.Name = "" Then 'Computername bleibt in Liste
10.
        If strListeNeu <> "" Then 'nicht erster Eintrag, daher vorher eine Zeilenschaltung
11.
            strListeNeu = strListeNeu & vbCrLF & strComputer
12.
        Else
13.
            strListeNeu = strComputer
14.
        End If
15.
    End If
16.
Loop
17.
objCompFile.Close
18.

19.
'Liste neu schreiben
20.
Set objCompFile = fso.OpenTextfile(strCompListe, 2, True)
21.
objCompFile.Write strListeNeu
22.
objCompFile.Close
Grüße
bastla
Bitte warten ..
Mitglied: Iwan
10.12.2007 um 13:07 Uhr
da die Daten in Excel benötigt, bzw. dort weiter verarbeitet werden, werde ich das ganze nun direkt in Excel einbinden, was die Sache für mich wesentlich einfacher macht
trotzdem vielen Dank für den Tip, ich werde es bei Gelegenheit mal ausprobieren
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Dateien in einer Verzeichnisstruktur komprimieren und Ursprungsdatei löschen

gelöst Frage von kayes73Batch & Shell4 Kommentare

Hallo zusammen! Folgendes möchte ich bewerkstelligen: Ich habe auf einer Festplatte in einer bestimmten Datenstruktur xml Daten liegen. Diese ...

Microsoft Office

Microsoft Excel VBS

gelöst Frage von Mohji32Microsoft Office6 Kommentare

Guten Tag liebe Leute, ich kenne mich leider nicht sehr gut mit VBS aus aber habe angefangen mich einzuarbeiten. ...

VB for Applications

Excel VBS Datenvergleich

Frage von rocco61VB for Applications

Hallo zusammen, möchte ein Excel Makro in VB, das mit die Gleichheit von 2 Zellen in einer Meldung ausgibt. ...

VB for Applications

Vbs Script Hilfe

gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

Neue Wissensbeiträge
Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 1 TagInternet4 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 1 TagWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 2 TagenWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 2 TagenSicherheit6 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Heiß diskutierte Inhalte
TK-Netze & Geräte
TAPI auf einem Win2016Server installieren und einrichten
Frage von wstabelTK-Netze & Geräte28 Kommentare

Hallo liebe Admins, ich habe folgende Situation: 1 Windows Server 2016 Standard als DC 1 SNOM 710 IP-Telefon 1 ...

Batch & Shell
Mit findstr batch doppelte zeilen einer txt löschen
Frage von Burningx2Batch & Shell24 Kommentare

Hi Vor einer weile habe ich im netzt einen windows shell befehl gefunden mit welchem man über die konsole ...

Verschlüsselung & Zertifikate
Netzwerkfreigabe Verschlüsselung
Frage von grill-itVerschlüsselung & Zertifikate20 Kommentare

Moin zusammen, sicher nutzen hier die ein oder anderen ein Produkt zur Verschlüsselung von Netzwerkfreigaben/-laufwerken auf denen hochsensible Daten ...

Microsoft
Übertragung von MS Volumenlizenzen
Frage von SherlockineMicrosoft19 Kommentare

Ich bin Angestellte in einer kleinen 10-köpfigen IT-Firma, die Netzwerklösungen, Telefonielösungen und Ähnliches anbietet. Im Sommer hatten wir einen ...