Beiträge von Kev

nope, worked nich

Mysql.au3 Im include verzeichnis?

Hi, siehT aus als hättest du die includes nicht drin

Der-Eddy: ! THX

$version = "0.9 beta"
#NoTrayIcon

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Skript pausieren/beenden) werden nicht angezeigt.

$aboutitem = TrayCreateItem("About")
$data = TrayCreateItem("Last Entry")
$prefsitem = TrayCreateItem("Exit")

TrayItemSetOnEvent($prefsitem,"beenden")
TrayITemSetOnEvent($aboutitem,"About")
TraySetState()

func beenden()
Exit
Endfunc

func About()
msgbox(0,"","")
Endfunc

Hier möchte ich das TrayItem befüllen. Also das Menu.

bsp:

Guictrlsetdata($data,"bla")

Geht das?

oder du haust nach jedem Schritt ein Winactivate rein

Zitat von Oscar

Die Idee mit dem Scripting.Dictionary hatte ich auch. Nur habe ich gleich den Vergleich in beide Richtungen gemacht.
Das dauert bei mir mit rund 35.000 Verzeichnissen nur ca. 1 Sekunde.

Spoiler anzeigen

[autoit]

$sList1 = FileRead(@ScriptDir & '\list1.txt') ; alte Liste
$aList1 = StringSplit($sList1, @CRLF, 1)

[/autoit] [autoit][/autoit] [autoit]

$oDictionary1 = ObjCreate('Scripting.Dictionary')
$oDictionary1.CompareMode = 1

[/autoit] [autoit][/autoit] [autoit]

$sList2 = FileRead(@ScriptDir & '\list2.txt') ; neue Liste
$aList2 = StringSplit($sList2, @CRLF, 1)

[/autoit] [autoit][/autoit] [autoit]

$oDictionary2 = ObjCreate('Scripting.Dictionary')
$oDictionary2.CompareMode = 1

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite('-> Start! ' & StringFormat('%s:%s:%s.%s', @HOUR, @MIN, @SEC, @MSEC) & @CR)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $aList1[0]
$oDictionary1.Add($aList1[$i], 1)
Next
For $i = 1 To $aList2[0]
$oDictionary2.Add($aList2[$i], 1)
Next

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite('-> Dictionaries erstellt! ' & StringFormat('%s:%s:%s.%s', @HOUR, @MIN, @SEC, @MSEC) & @CR)

[/autoit] [autoit][/autoit] [autoit]

$sOut = ''
For $i = 1 To $aList2[0]
If Not $oDictionary1.Exists($aList2[$i]) Then $sOut &= $aList2[$i] & @CRLF
Next
For $i = 1 To $aList1[0]
If Not $oDictionary2.Exists($aList1[$i]) Then $sOut &= $aList1[$i] & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite('-> Fertig! ' & StringFormat('%s:%s:%s.%s', @HOUR, @MIN, @SEC, @MSEC) & @CR)
ClipPut($sOut)

[/autoit]

Alles anzeigen

!

Danke

Alles klar, werde ich mir morgen vornehmen.

Dank dir soweit.

/Qcode quit.

Die Dateien lade ich ungern hoch. Ist das komplette Filesystem des Notebooks meiner Firma
Am Besten erstellst du dir einfach die 2 Logs.

Ändere aber vor dem 2ten log irgendetwas im Dateisystem ab. Wie zb. eine neue Datei erstellen.

_FileReadToArray(@ScriptDir & "\_Logs\Verzeichnisse\" & $final[0][1],$a_Array1)
_FileReadToArray(@ScriptDir & "\_Logs\Verzeichnisse\" & $final[1][1], $a_Array2)

Danke für deinen Beitrag.

Diese Alternative gibt mir die gleiche Anzahl der Elemente von dem Vortag wieder.
Auf das Element genau.

Um dies deutlicher auszudrücken:

Vortag:154k
Tag: 140k

Ergebnis der Elemente in $s_Ret = 154k.

Wie Chip schon für seine Unfähigkeit verurteilt, funktioniert dieses Script nicht..oder...es dauert zu lange. VIel zu lange..sehr lange.
Desweiteren möchte ich die Disfunktionalität beteuern und ein Austausch meiner zuvor genannten Erwähnung von 20k auf 154k Einträgen vornehmen.
Alternative Möglichkeiten?

Zitat

Gibt die Wartezeit in Sekunden an, bevor die Eingabe-Box automatisch geschlossen wird.

20000 Sekunden. Na dann warte mal...

Hi,

wie fang ich am Besten an.
Ich lese heute alle Verzeichnisse & Dateiorte ein und speichere diese mit in Dir_$datum.txt.
Das Gleiche mache ich am nächsten Tag auch.

Jetzt sind innerhalb dieser 24 Stunden neue Verzeichnisse dazugekommen.
Also lese ich Dir_gestern.txt und Dir_heute.txt in ein Array rein und möchte diese Arrays vergleichen.

Jetzt gibts da was schickes von Bugfix & alternativ nochwas vom au3b**.de.

Leider dauert das Ganze bei ca. 20000 Einträgen ziemlich lange.
Des Weiteren liefert mir das Ganze das nicht so, wie ichs gern hätte.

Ich möchte die Verzeichnisse vergleichen und die doppelten Einträge rauslöschen. Sodass ich nur die Verzeichnisse habe, die dazugekommen sind.

Grüße

Kev

Er redet von der deutschen Hilfe datei.
An sich sollte beim F1 drücken die Hilfe geöffnet werden. In Englisch.

Du hast nun noch die Möglichkeit das Ganze in deutsch zu bekommen in dem du dir die Hilfe runterlädst.

Ist momentan aber nicht möglich, weil die Page down/Verlinkung nicht stimmt. Ich habe Pee schon bescheidgegeben.

Ist mir schon klar, wäre auch nur ein Workaround.

Hast du die Datei mal überprüft? bzw. ist Spybot installiert ?

Zitat von Jeahaha

sofern ich es verstanden habe liegt das problem das dass programm eine website öfnet die unerwünscht ist , man könnte diese seite einfach auf eine andere verweisen lassen:
es giebt unter windows eine Datei wo sich eine art weiterleitung befindet z.b.:
//localhost 127.0.0.1
ich suche die datei mal , da ich sie laaaaange nicht mehr verwendet habe ;D

Wie einen Post vor dir geschrieben, Hosts datei.

C:\Windows\System32\drivers\etc\

Grundwissen

btw klingt das eher nach Spybot Search&Destroy. Kommt mir iwo her bekannt vor, dieses 4342.com oder 4243.com. Wie auch immer

dann patch doch einfach temp. die Hosts datei ?!

Zitat von chip

Zitat von »name22«


Hast du das Font installiert? Ich stell das mal als Anhang rein...

Zitat von chip

Ok jetzt gehts, sieht gut aus :).

Hö? Heut is nich mein Tag. Ich gebs auf.

Habs nun auch zum Laufen bekommen,war doch Layer8.
Aber eben halt auch nur zum Laufen, mehr nicht.
Der Prozess steht, die Font ist auf "Sylfaen" geändert, dennoch weit und breit keine Uhr.