Ändra textsträng i textfiler

Jag har ingen aning om huruvida det är det bästa sättet, eller hur det beter sig i stora datamängder, men...

set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile("foo.log",1)
sTmp = Replace(oF.ReadAll(), "<BOT>", "<STEAM_0:0:123>")
oF.Close
set oF = Nothing

set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile("foo.log",2)
oF.Write(sTmp)
oF.Close
set oF = Nothing

Tack, Ändrade lite i mitt första inlägg @nders..

Genom att det är så pass många filer så kanske man skulle kunna göra att den BARA ändrar i "gårdagens filer" om det finns några sådana.. då blir det ju alla filer ändå genom att jag kör det en gång / dygn?! (annars är väll risken ganska stor för en timeout i scirptet när det blir mcyket filer samt att det lär och ta grymt lång tid att köra det)

En dags loggfiler kanske bara är 3-4 mb om inte mindre...

Ok, dåså:

Scriptet går igenom alla filer i loggfilsmappen. Om filen skapades igår (dvs dagen innan scriptfilen körs), byts alla förekomster av <BOT> ut mot lämpligt steam-id.

set oFSO = CreateObject("Scripting.Filesystemobject")
set oFolder = oFSO.GetFolder("c:\spel\hlserver\czero\logs\")

for each oFile in oFolder.Files
	if Datediff("d", oFile.DateLastModified, date()) = 1 then replaceFileStuff oFile.Name
next

set oFolder = Nothing
set oFSO = Nothing

sub replaceFileStuff (sFileName)
	set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\spel\hlserver\czero\logs\" & sFileName, 1)
	sTmp = Replace(oF.ReadAll(), "<BOT>", "<STEAM_0:0:123>")
	oF.Close
	set oF = Nothing

	set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\spel\hlserver\czero\logs\" & sFileName, 2)
	oF.Write(sTmp)
	oF.Close
	set oF = Nothing
end sub

mvh

Tack Tack...

Dock hade den en inbyggd funktion... den tar bort alla gårdagens filer... hinner inte se om något ändras i dem dom bara försvinner...

Det är lugnt självklart tog jag en backup av loggmappen innan jag började mecka... testade detta script

bot_steamid.vbs

set oFSO = CreateObject("Scripting.Filesystemobject")
set oFolder = oFSO.GetFolder("c:\logs\")

for each oFile in oFolder.Files
	if Datediff("d", oFile.DateLastModified, date()) = 1 then replaceFileStuff oFile.Name
next

set oFolder = Nothing
set oFSO = Nothing

sub replaceFileStuff (sFileName)
	set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\logs\" & sFileName, 1)
	sTmp = Replace(oF.ReadAll(), "<BOT>", "<STEAM_0:0:123>")
	oF.Close
	set oF = Nothing

	set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\logs\" & sFileName, 2)
	oF.Write(sTmp)
	oF.Close
	set oF = Nothing
end sub

Jag vet inte om det har någon betydelse men filerna heter typ

L0720261.log
L0720262.log
L0720263.log
L0720264.log
L0720265.log

osv

c:/logs är en testkatalog

Hmm...

Koden fungerade ju ypperligt när jag testade den, och jag kan inte förstå vad som skulle resultera i att någon fil tas bort... :o

Kan du ladda upp ett par riktiga loggfiler här, så ska vi se?

vad har du för mail... skickar några stycken till dig. hehe kollar din profil... men ingen mailadress.. :(

.

mailar direkt

Okay, here goes...

Se bara till att ändra mappnamnet på översta raden.

sFolder = "d:\logs\"
set oFSO = CreateObject("Scripting.Filesystemobject")
set oFolder = oFSO.GetFolder(sFolder)

for each oFile in oFolder.Files
	if Datediff("d", oFile.DateCreated, date()) = 1 then replaceFileStuff oFile.Name
next

set oFolder = Nothing
set oFSO = Nothing

sub replaceFileStuff (sFileName)
	bRewrite = false
	set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile(sFolder & sFileName, 1)
	sTmp = oF.ReadAll()
	if instr(sTmp, "<BOT>") > 0 then
		sTmp = Replace(sTmp, "<BOT>", "<STEAM_0:0:123>")
		bRewrite = true
	end if
	oF.Close
	set oF = Nothing

	if bRewrite then
		set oF = CreateObject("Scripting.FileSystemObject").OpenTextFile(sFolder & sFileName, 2)
		oF.Write(sTmp)
		oF.Close
		set oF = Nothing
	end if
end sub

Mvh

Verkar funka :)

Får dock ett felmeddelande

Script: c:/bot_steamid.vbs
Line 15
Hcar 2
Error Input past end of file
Code 800A003E
Source Microsfot VBScript runtime error

Om jag fattar detta rätt så får jag detta pga att det inte finns något mer att ändra... kan man på något sätt få bort meddelandet, så att jag kan använda scriptet i schemaläggaren.

Jätte tack @nders....

Hmm, jag kan faktiskt inte svara på varför det felmeddelandet kommer. Jag lyckas inte få det felmeddelandet när jag kör lokalt hos mig.

Jag ska fundera, och återkomma!

Mvh

Tror det har att göra med att det inte finns några filer att ändra...

Det fanns något man kunde skriva så den ska ignorera error mess när man kodade asp? kan man använda det kommandot va de nu va... :) ?

on error resume next

Och ja, det borde gå alldeles utmärkt att använda.

Men, det är inte rätt. :)

Finns inga filer att ändra / gå igenom så ska man inte komma in i subrutinen överhuvudtaget, så det är något som är lite "fiskigt".

nä ddet förståss... men hur ska jag lägga in on error resume next i din kod (tillfälligt)?

McD skrev:

men hur ska jag lägga in on error resume next i din kod (tillfälligt)?

Det är bara att lägga in överst.

okie testar med det så länge så att det i alla fall funkar helt ut tillfälligt... tack anders för hjälpen!