Beiträge von Oscar

Und hier das Ganze inkl. Uhrzeiten:

Du liest die Datei binär ein und suchst nach der Signatur. Viel Spass beim warten.

Ich glaube nicht, dass irgendein AntiVirus-Hersteller einfach so seine Virensignatur-Datenbank freigibt.

Es sind nicht die Nachkommastellen, die die Sortierung "falsch" werden lassen.

Hier die StringFormat-Version (Änderung):

$dir[$id] = GUICtrlCreateTreeViewItem(StringFormat('%.3f', Round($s / 1024 / 1024, 3)) & " MB - " & $n, $dir[$i])

Theoretisch schon, nur woher nimmst Du die Viren-Erkennungs-Datenbank?
Du brauchst ja erstmal von "allen" Viren entsprechende Signaturen.

Die Idee ist theoretisch nicht schlecht, nur sortiert die Funktion "_GUICtrlTreeView_Sort" nicht richtig.
Schau Dir das Ergebnis mal genauer an. Da ist z.B. der Ordner "SciTe" mit ~11 MB mitten drin. Das liegt daran, dass die Funktion nur nach String (nicht nach der Zahl) sortiert.

So, jetzt mit Auswahl und spezieller Abfrage, sodass auch wirklich nur die Backup-Ordner gelöscht werden:

Bitte die Forenregeln lesen! Wir unterstützen hier keine Bots!
[Thread closed]

Da die Backup-Ordner alle mit einer Zahl anfangen wird es nur kritisch, wenn sich in dem Ordner auch Ordner befinden, die ebenfalls mit einer Zahl anfangen (die kleiner ist als die Zahl der Backup-Ordner).

Im letzten Script wähle ich einfach den 5-letzten Voll-Backup-Ordner aus und lösche alle Ordner die "kleiner" sind (also ein älteres Datum haben).

Oh oh...sortieren von TreeViews ist doch nicht so einfach, wie ich mir das gedacht hatte.
Hatte die UDFs im Hinterkopf, doch die Sort-Funktion bietet keine weiteren Optionen zum sortieren.
Sie sortiert stur nach Strings:

Man müsste also die "1. Ebene" einlesen, sortieren, ins TreeView eintragen und dann erst die Child-Items erstellen.

@Harun27: Ich denke, Du suchst eher GUICtrlCreateCheckbox statt -Radio, denn der Sinn von Radio-Buttons ist ja gerade, dass man nur einen (pro Gruppe) auswählen kann.

Nur um eine fehlerhafte AutoIt-Installation auszuschliessen, installiere mal AutoIt neu.
Vielleicht hast Du (oder ein Script) mal die Sound.au3 im Include-Ordner verändert.

Befinden sich in dem Ordner nur die Backup-Ordner (Voll- und Inkrementell)?

Dann könnte man einen Vergleich (Kleiner als) machen:

#include <Array.au3>
#Include <File.au3>
$aFolderFull = _FileListToArray(@ScriptDir, '*_Voll', 2)
$aFolderAll = _FileListToArray(@ScriptDir, '*', 2)
If $aFolderFull[0] > 5 Then
$tmp = StringLeft($aFolderFull[$aFolderFull[0]-4], 16)
For $i = 1 To $aFolderFull[0] - 5
For $j = 1 To $aFolderAll[0]
If StringLeft($aFolderAll[$j], 16) < $tmp Then
;~ DirRemove(@ScriptDir & '\' & $aFolderAll[$j], 1)
ConsoleWrite(@ScriptDir & '\' & $aFolderAll[$j] & @CRLF)
EndIf
Next
Next
Else
MsgBox(0, 0, 'zu wenig Voll-Backups')
EndIf

Zum testen wieder erstmal den DirRemove-Befehl auskommentiert.

Um mal zu erklären, was ich meine:

Beispiel (vor der Sortierung):

c:\
|- Programme\ (500 MB)
    '- AutoIt3\ (43 MB)
|- Windows\ (2100 MB)
|- Weitere Daten\ (5000 MB)
    '- MP3s\ (2000 MB)

Beispiel (nach der Sortierung):

c:\
|- Weitere Daten\ (5000 MB)
|- Windows\ (2100 MB)
'- MP3s\ (2000 MB)
'- AutoIt3\ (43 MB)

Verstehst Du, was ich meine?
Die eingerückten Verzeichnisse im Treeview werden rausgerissen. Oder Du sortierst nur die Verzeichnisse im Hauptpfad.
Deshalb mein Hinweis auf die von Dir gewünschte Sortier-Methode.

Ja, genau! Ich habe den Befehl DirRemove nur auskommentiert, damit Du erstmal schauen kannst, ob das so passt (die Verzeichnisse, die in der Konsole ausgegeben werden, würden dann gelöscht werden).
Wenn das so ok ist, dann brauchst Du nur den auskommentierten Befehl (DirRemove) wieder aktivieren.

Wenn das nur bei manchen MP3s der Fall ist, solltest Du mal die MP3s in Augenschein nehmen. Vielleicht sind diese ja "kaputt" (fehlerhaft kodiert)?!
Für meinen AutoIt-MP3-Player benutze ich ebenfalls die _Sound-Funktionen und habe bisher keine Probleme damit entdecken können.

Deine Variable $oldfile ist nur eine lokale Variable und somit wird das Script nicht richtig funktionieren. Meine Erfahrung mit den _Sound-Funktionen ist aber auch die, dass man besser _SoundOpen benutzen sollte, statt bei _SoundPlay direkt die Datei anzugeben.
Deshalb würde ich das so programmieren:

#include <Sound.au3>
Global $sound
HotKeySet("{f5}", "play")
While 1
Sleep(1000)
WEnd

Func play()
Local $file = FileOpenDialog("Öffnen", "", "(*.mp3)")
If Not @error Then
If $sound Then
_SoundStop($sound)
_SoundClose($sound)
EndIf
$sound = _SoundOpen($file, 'Play')
_SoundPlay($sound)
EndIf
EndFunc ;==>play

Willkommen hier im Forum!

Bei Problemen mit einem Script ist es immer ganz hilfreich, wenn Du das betreffende Script (oder ein nachvollziehbares Beispielscript) hier postest, damit man Dir schneller helfen kann und nicht herumraten muss.

Hier hast Du eine Lösung, bei der Du ein Array mit den letzten 13 Interpreten und den Titeln zurückbekommst:

#include <Array.au3>
#include <Inet.au3>

$aOut = _Get_Playlist_swr3()

_ArrayDisplay($aOut)

Func _Get_Playlist_swr3()
Local $sSource, $aOut, $sBuffer
$sSource = _INetGetSource("http://www.swr3.de/musik/musikrecherche/-/id=47424/did=202234/1wuwzys/index.html")
$sBuffer = StringToBinary($sSource, 1)
$sSource = BinaryToString($sBuffer, 4)
$aOut = StringRegExp($sSource, '(?s)<tr class="farben_hg.+?">.+?<td>(.+?)</td>.+?<td>(.+?)</td>', 3)
If Not IsArray($aOut) Then Return SetError(1, 0, 0)
For $i = 0 To UBound($aOut) -1
$aOut[$i] = StringRegExpReplace($aOut[$i], '<.+?>|\h{2,}|\v', '')
Next
Return $aOut
EndFunc

bernd670 : Mit "*" bei DirRemove hat das bei mir nicht funktioniert.

Hier ist aber eine andere Lösung:

#include <Array.au3>
#Include <File.au3>
$aFolderFull = _FileListToArray(@ScriptDir, '*_Voll', 2)
$aFolderAll = _FileListToArray(@ScriptDir, '*', 2)
;~ _ArrayDisplay($aFolderFull)
If $aFolderFull[0] > 5 Then
For $i = 1 To $aFolderFull[0] - 5
$tmp = StringLeft($aFolderFull[$i], 10)
For $j = 1 To $aFolderAll[0]
If StringInStr($aFolderAll[$j], $tmp) = 1 Then
;~ DirRemove(@ScriptDir & '\' & $aFolderAll[$j], 1)
ConsoleWrite(@ScriptDir & '\' & $aFolderAll[$j] & @CRLF)
EndIf
Next
Next
Else
MsgBox(0, 0, 'zu wenig Voll-Backups')
EndIf