Zum Inhalt springen

Suchen&Ersetzen in VBS


charly2005

Empfohlene Beiträge

Hallo zusammen,

ich hab folgendes Problem:

Hab hier ein VBS-Statement, welches in einer txt.-Datei Zeichenketten ersetzen soll. Das Problem liegt in der Zeile

Suchen = "08:07:33"

Er sucht nach der Uhrzeit 08:07:33 und ersetzt diese - allerdings ist die Uhrzeit eine Variable und ich müßte praktisch so was basteln:

Suchen = "**:**:**"

Das funktioniert aber leider nicht.

'Variablen initialisieren

Dim Suchen

Dim Ersetzen

Dim NeuerInhalt

Dim Inhalt

Suchen = "**:**:**"

Ersetzen = "Neuer Text"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.OpenTextFile("Z:\temp\ModularNeu.txt", 1)

Inhalt = File.ReadAll

File.Close

NeuerInhalt = Replace(Inhalt, Suchen, Ersetzen) + vbCr

Set File = FSO.OpenTextFile("Z:\temp\ModularNeu.txt", 2)

File.Write NeuerInhalt

File.Close

End Sub

Ich hoffe, Ihr könnt mir helfen !

Link zu diesem Kommentar
Auf anderen Seiten teilen

Hast du die **:**:** Syntax noch an anderer Stelle in der TXT? Wenn nein, dann kannst du Zeilenweise auslesen und per Instr() checken ob sich da irgendwo die Urzeit befindet...

Oder, wenn dem Uhrzeitblock noch etwas vorran geht (Zeit: ...) such nach dem String und ersetze was dahinter ist...

MfG erratum

Link zu diesem Kommentar
Auf anderen Seiten teilen

Hrm, ich würde dann Zeilenweise auslesen und dann überprüfen ob das 3te und das 6te Zeichen ein Doppelpunkt ist. Wenn ja, dann kannst du die ersten 8 Zeichen ja wegschnibbeln...

if mid(DeineZeile, 3, 1) = ":" & mid(DeineZeile, 6, 1) = ":" then
Und zum ersetzen
DeineZeile = Einzufügendes & mid(DeineZeile, 9, len(deineZeile)-9)

Könnte so funktionieren...

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...