När man har tråkigt…
Idag fick jag lite tråkigt. Rebecka sov, Pär var inte hemma, Erik såg på något tråkigt på tv och jag var helt less på att kolla på Scrubs så jag satte mig och gjorde ett litet vbscript som ger alla filnamn i en mapp ett prefix. Scriptet är till Mats på jobbet som har tusentals filer som ska läggas ihop, problemet är att många av dem har samma namn så för att skilja på dem behöver man döpa om dem.
’ prefix.vbs
’ André Laszlo 2008-02-14
’
’ Script för att lägga till ett prefix till alla filnamn i en katalog.
’
’ Använd scriptet genom att lägga det i samma katalog som filerna som ska få
’ prefixet. Kör sedan scriptet och ange prefix. Filer som redan har prefixet,
’ kataloger, filer i underkataloger samt scriptet själv döps inte om.
Dim prefix
prefix = InputBox(“Ange prefix”)
If prefix <> ”“ Then
Dim scriptName, scriptPath
Dim fso, folder, fileCollection, file
Set fso = CreateObject(“Scripting.FileSystemObject”)
scriptName = Wscript.ScriptName
scriptPath = Mid(Wscript.ScriptFullName, 1, Len(WScript.ScriptFullName) - Len(scriptName))
Set folder = fso.GetFolder(scriptPath)
Set fileCollection = folder.Files
For Each file in fileCollection
If file.name <> scriptName And Not (Mid(file.Name, 1, Len(prefix)) = prefix) Then
file.Move(prefix & file.name)
End If
Next
End If
’ André Laszlo 2008-02-14
’
’ Script för att lägga till ett prefix till alla filnamn i en katalog.
’
’ Använd scriptet genom att lägga det i samma katalog som filerna som ska få
’ prefixet. Kör sedan scriptet och ange prefix. Filer som redan har prefixet,
’ kataloger, filer i underkataloger samt scriptet själv döps inte om.
Dim prefix
prefix = InputBox(“Ange prefix”)
If prefix <> ”“ Then
Dim scriptName, scriptPath
Dim fso, folder, fileCollection, file
Set fso = CreateObject(“Scripting.FileSystemObject”)
scriptName = Wscript.ScriptName
scriptPath = Mid(Wscript.ScriptFullName, 1, Len(WScript.ScriptFullName) - Len(scriptName))
Set folder = fso.GetFolder(scriptPath)
Set fileCollection = folder.Files
For Each file in fileCollection
If file.name <> scriptName And Not (Mid(file.Name, 1, Len(prefix)) = prefix) Then
file.Move(prefix & file.name)
End If
Next
End If
Referenser kontra pekare
Om man någonsin undrat över vad som egentligen skiljer pekare från referenser i C++ så borde man läsa Dan Saks artikel “Rerences vs. Pointers” som handlar om just det, det blir inte mycket tydligare än så.
Om du aldrig har funderat över saken så är det också helt okej, såklart.
Tetris i all evighet
Efter att Adam slog min highscore hittade jag en wiki-artikel om hur man, under vissa förutsättningar, kan spela tetris hur länge som helst utan att förlora.
Satt sedan i nästan en timme med Adams java-tetris som han knåpade ihop efter att vi gjort vårt nätverkstetris för två spelare i Ada-95. Det går som tur är inte att spela i all evighet - till slut går det alldeles för fort, dessutom är det “äkta” slump i det.
Det är såklart pseudoslump men i många tetris-versioner är det omöjligt att få samma bit två gånger i rad. När man spelar med “äkta” slump (vet inte vad jag ska kalla det annars) så har det visat sig att även en perfekt tetrisspelare alltid förlorar till slut. Det finns tydligen matematiska bevis för det.
Tyvärr lyckades jag inte slå hans poäng. Kan du?
