Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: DrAlcome

DrAlcome (Level 1) - Jetzt verbinden

14.08.2010 um 11:11 Uhr, 5493 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
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Windows Server
Drucker entfernen in VB-Script (2)

Frage von NilsvLehn zum Thema Windows Server ...

Batch & Shell
Script Lokales Admin Passwort ändern (3)

Frage von MaxBerg zum Thema Batch & Shell ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (31)

Frage von McLion zum Thema Router & Routing ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (24)

Frage von ahstax zum Thema Visual Studio ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Netzwerk
Netzwerk Neustrukturierung (15)

Frage von IT-Dreamer zum Thema Windows Netzwerk ...