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 VB Script zum ändern einer Textzeile mit vorheriger Abfrage

Mitglied: DrAlcome

DrAlcome (Level 1) - Jetzt verbinden

14.08.2010 um 11:11 Uhr, 5507 Aufrufe, 2 Kommentare

Ich möchte in einer Datei eine Textzeile ändern, sofern diese einen falschen Eintrag hat. Wenn der Eintrag stimmt, soll nix gemacht werden.

Ahoi Kameraden!

Senor Google hat mir in dieser Sache zwar schon enorm weitergeholfen, jetzt bleibe ich aber an einem Punkt hängen wo ich nicht ohne Hilfe weiter komme.
Ich möchte die Cache-Pfade von Java per Script auf ein anderes Verzeichnis umbiegen, dazu muss ich in der Datei "deployment.properties" die Pfade ändern.

Ich bin schonmal soweit dass ich einen Pfad ändern kann, sobald der Pfad den ich vorher abfrage immer gleich ist.
Sieht momentan so aus (Die "deployment.properties" liegt im Beispiel auf D:\temp):

01.
const ForReading=1 
02.
const ForWriting=2 
03.
 
04.
set objFSO		= createobject("Scripting.FileSystemObject") 
05.
 
06.
set objFile = objFSO.opentextfile("d:\temp\deployment.properties", ForReading) 
07.
strText_java1 = objFile.readall 
08.
objFile.Close 
09.
 
10.
strNewText_java1 = replace(strText_java1, "deployment.user.cachedir=D\:\\falsch", "deployment.user.cachedir=D\:\\richtig") 
11.
set objFile = objFSO.opentextfile("d:\temp\deployment.properties", ForWriting) 
12.
objFile.WriteLine strNewText_java1 
13.
objFile.Close
Das Script bewirkt in dieser Form dass der Pfad d:\falsch in d:\richtig geändert wird.
Nur wie kriege ich das hin, wenn der ursprüngliche Pfad auf ein ganz anderes Verzeichnis verweist, z.B. der Standard-Pfad "c:\dokumte und blabla...\sun\cache\"?
Ich hatte es mal probiert mit einer IF-NOT-Abfrage, also wenn da NICHT steht D:\richtig, dann soll er das Script ausführen, ansonsten halt nur eine Messagebox mit "Alles OK".
Nur hab ich mich da irgendwie vertan, er hat dann immer die Messagebox gebracht und den Pfad nicht geändert.

Wie würdet ihr das machen?
Mitglied: bastla
14.08.2010 um 11:27 Uhr
Hallo DrAlcome!

Völlig untgetestet etwa so:
01.
F = "d:\temp\deployment.properties" 
02.
TOld = "deployment.user.cachedir=" 
03.
TNew = "deployment.user.cachedir=D\:\\richtig" 
04.
 
05.
LOld = Len(TOld) 
06.
Set fso = createobject("Scripting.FileSystemObject") 
07.
T = Split(fso.OpenTextFile(F).ReadAll,vbCrLf) 
08.
 
09.
For i = 0 To UBound(T) 
10.
    If Left(T(i), LOld) = TOld Then 
11.
        If T(i) <> TNew Then 
12.
            T(i) = TNew 
13.
            ToWrite = True 
14.
        End If 
15.
    End If 
16.
Next 
17.
 
18.
If ToWrite Then fso.CreateTextFile(F).Write Join(T,vbCrLf)
Jede Zeile, die mit "deployment.user.cachedir=" (Groß-/Kleinschreibung wird beachtet) beginnt, wird, falls sie nicht bereits mit der neuen Zeile "deployment.user.cachedir=D\:\\richtig" übereinstimmt, durch Letztere ersetzt. Falls keine Ersetzung durchgeführt wurde, wird die Datei nicht neu geschrieben.

Grüße
bastla
Bitte warten ..
Mitglied: DrAlcome
14.08.2010 um 17:49 Uhr
Yeah, habs grade ausprobiert - es tut genau das was es soll!

Dankeschön!
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server

Drucker entfernen in VB-Script

gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung

VB Script Drucker hinzufügen

Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 11 MinutenMicrosoft

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 18 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 23 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...