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

VBS - Hinzufügen einer Zeile

Frage Entwicklung VB for Applications

Mitglied: gdnmarc

gdnmarc (Level 1) - Jetzt verbinden

12.11.2008, aktualisiert 14.11.2008, 4727 Aufrufe, 4 Kommentare

Hallo,

ich habe die Anforderung eine neue Zeile (bsp. 155.1.1.2 test.com) in die Hosts-Datei (an das Ende) hinzuzufügen.

Dabei soll vorher überpürft werden, ob die Zeile mit diesem Wert schon vorhanden ist, wenn ja, soll nichts gemacht werdn, wenn nein den wert an das Ende der Datei hinzufügen.

1000DANK!!!!
Mitglied: bastla
12.11.2008 um 11:40 Uhr
Hallo gdnmarc!

Etwa so:
01.
Datei = "D:\Datei.txt" 
02.
Zeile = "155.1.1.2 test.com" 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
Inhalt = fso.OpenTextFile(Datei).ReadAll 
05.
If InStr(1, Inhalt, Zeile, vbTextCompare) = 0 Then 
06.
	fso.OpenTextFile(Datei, 8).WriteLine Zeile 
07.
End If
Einschränkung: Es wird nicht exakt nach einer Zeile, sondern nur nach dem Vorhandensein der Zeile als Teilstring des gesamten in der Datei enthaltenen Textes gesucht - allerdings sollte die Kombination aus IP-Adresse und Hostnamen wohl kaum in einer anderen Zeile enthalten sein.

Wenn Du tatsächlich (genau) zeilenweise vergleichen willst, dann in ein Array einlesen und Zeile für Zeile durchgehen.

Grüße
bastla
Bitte warten ..
Mitglied: dog
12.11.2008 um 11:43 Uhr
Ein paar Stichworte:

Scripting.FileSystemObject -> OpenTextFile,Readline
Left()
Split()
Scripting.Dictionary
Trim()
Bitte warten ..
Mitglied: gdnmarc
14.11.2008 um 14:41 Uhr
Vielen Dank schonmal.

Ich glaube es ist besser jede Zeile einzeln zu durchsuchen, da evt. ein Hosteintrag auch mit einem # auskommentiert sein könnte. D.h. ich möchte überprüfen, ob die IP-Adresse in einer Zeile vorhanden ist, aber das erste Zeichen kein # ist.

Viele Grüße an Euch!!
Bitte warten ..
Mitglied: bastla
14.11.2008 um 17:55 Uhr
Hallo gdnmarc!

Dann eben auf die harte Tour ...
01.
Datei = "D:\Datei.txt" 
02.
ZeileNeu = "155.1.1.2 test.com" 
03.
 
04.
Set fso = CreateObject("Scripting.FileSystemObject") 
05.
Zeilen = Split(fso.OpenTextFile(Datei).ReadAll, vbCrLf) 'gesamte Datei in Array Zeilen einlesen 
06.
 
07.
Append = True 'Schalter für "Zeile hinzufügen" setzen 
08.
For i = 0 To UBound(Zeilen) 'alle eingelesenen Zeilen durchgehen 
09.
    If StrComp(Trim(Zeilen(i)), ZeileNeu, vbTextCompare) = 0 Then 'Gibt es die neue Zeile schon (ev Leerzeichen an Anfang und/oder Ende der Zeile werden ignoriert)?  
10.
        Append = False 'Wenn ja, dann keine Zeile hinzufügen ... 
11.
        Exit For '... und die weiteren Zeilen nicht mehr überprüfen. 
12.
    End If 
13.
 
14.
    If InStr(1, Zeilen(i), ZeileNeu, vbTextCompare) > 0 Then 'Ist die neue Zeile in der aktuell überprüften Zeile enthalten ... 
15.
        If Left(Zeilen(i), 1) = "#" Then '... und beginnt diese Zeile mit "#", ... 
16.
            Zeilen(i) = Mid(Zeilen(i), 2) '... dann "#" entfernen und ... 
17.
            Write = True '... vormerken, dass die Datei neu geschrieben werden muss. 
18.
            Append = False 'Die neue Zeile muss nicht hinzugefügt werden. 
19.
            Exit For 'Auch hier kann das Prüfen der restlichen Zeilen entfallen. 
20.
        End If 
21.
    End If 
22.
Next 
23.
If Append Then 'Wenn die neue Zeile hinzugefügt werden muss, ... 
24.
    fso.OpenTextFile(Datei, 8).WriteLine ZeileNeu '... machen wir das, ... 
25.
ElseIf Write Then '... ansonsten noch prüfen, ob neu geschrieben werden muss (da "#" entfernt) ... 
26.
    fso.CreateTextFile(Datei, True).Write Join(Zeilen, vbCrLf) '... und dieses ausführen. 
27.
End If
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
C und C++
C-sharp andere Scrollbar hinzufügen (2)

Frage von Yanmai zum Thema C und C ...

Batch & Shell
Cpl Dateien per Batch oder VBS öffnen (1)

Frage von Angelo131095 zum Thema Batch & Shell ...

Drucker und Scanner
Kernel-mode print driver Fehler beim hinzufügen der Treiber (2)

Frage von Michael89 zum Thema Drucker und Scanner ...

VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (52)

Frage von sabines zum Thema Internet ...

Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

Router & Routing
PFsense - Netzverbindung steht, aber kein Internet vorhanden (24)

Frage von aschmid zum Thema Router & Routing ...

Windows Server
gelöst Windows 2016 Hyper-V und VHDS (19)

Frage von emeriks zum Thema Windows Server ...