Hallo,
dieses Skript erstellt eine Liste aller Level im /maps Ordner bei dem Shooter "Counter-Strike: Source" und speichert diese dann in einer Excel-Tabelle!
[spoiler=Maplist by ChrisEU]
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.5.1 (beta)
Author: ChrisEU
Script Function:
Erstellt eine Liste der Maps von CS:S
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]#Include <Excel.au3>
#include <File.au3>
$path=InputBox("Maplist by ChrisEU","Pfad zum CS:S-Mpas Ordner:","C:\Programme\Steam\steamapps\USERNAME\counter-strike source\cstrike\maps","",200,125)
$FileList = _FileListToArray($path,"*.bsp")
If @error = 1 Then
MsgBox(0, "", "Keine Ordner gefunden.")
Exit
EndIf
If @Error=4 Then
MsgBox (0,"","Keine Dateien gefunden.")
Exit
EndIf
$anzahlMaps = $FileList[0]
Dim $FileDatum[$anzahlMaps+1][7]
For $i = 1 to $anzahlMaps
$FileDatum[$i][0] = FileGetTime($path & "\" & $FileList[$i],0,1)
$FileDatum[$i][1] = StringMid($FileDatum[$i][0],1,4)
$FileDatum[$i][2] = StringMid($FileDatum[$i][0],5,2)
$FileDatum[$i][3] = StringMid($FileDatum[$i][0],7,2)
$FileDatum[$i][4] = StringMid($FileDatum[$i][0],9,2)
$FileDatum[$i][5] = StringMid($FileDatum[$i][0],11,2)
$FileDatum[$i][6] = StringMid($FileDatum[$i][0],13,2)
Next
#cs
$FileDatum[$i][$j]
j=1 = Jahr (vierstellig)
j=2 = Monat (Bereich: 01 - 12)
j=3 = Tag (Bereich: 01 - 31)
j=4 = Stunden (Bereich: 00 - 23)
j=5 = Minuten (Bereich: 00 - 59)
j=6 = Sekunden (Bereich: 00 - 59)
#ce
$exID = _ExcelBookNew()
_ExcelWriteCell($exID,"Name",1,1)
_ExcelWriteCell($exID,"Jahr",1,2)
_ExcelWriteCell($exID,"Monat",1,3)
_ExcelWriteCell($exID,"Tag",1,4)
_ExcelFontSetProperties($exID,1,1,1,4,True)
_ExcelHorizontalAlignSet($exID,1,1,1,4,"center")
For $i = 1 To $anzahlMaps
_ExcelWriteCell($exID,$FileList[$i],$i + 1,1)
_ExcelWriteCell($exID,$FileDatum[$i][1],$i + 1,2)
_ExcelWriteCell($exID,$FileDatum[$i][2],$i + 1,3)
_ExcelWriteCell($exID,$FileDatum[$i][3],$i + 1,4)
Next
_ExcelBookSaveAs($exID,@DesktopDir & "\maps")
_ExcelBookClose($exID,0)
MsgBox(0,"Maplist by ChrisEU","maps.xls wurde auf dem Desktop gespeichert!")
[/autoit][spoiler]
:
( nicht phöse gemeint )
