Beiträge von BugFix

Zitat von Mahagon

Hm läuft denn irgendein Dienst oder ist etwas im Taskmanager, was nicht dorthin gehört?
Ansonsten würde ich mal Druckereinstellungen so wie Treiber überprüfen.

Es sind keine neuen Dienste hinzugekommen, der Taskmanager wird nicht genutzt.
Drucker habe ich auch schon kpl. neu installiert.
Das Einzige, was mir grad noch in den Sinn kommt: Bevor das Problem auftrat, war das Motherboard defekt und wurde durch ein identisches vom Garantieservice ersetzt. Vielleicht ist es ja doch nicht sooo identisch?

1. Wie bekommst du den Rechner ohne Tastatur gestartet? (Ist mir noch nie gelungen, immer Abbruch mit Hardware-Error )
2. Du sprichst von "Tastatur simulieren" und verweist auf Mausereignisse?

Zitat von XovoxKingdom

Vielleicht kann man die Uhrzeit des auszuführenden PC's auf eine Uhrzeit festsetzen

Nun, ob es an die PC-Uhrzeit gebunden ist oder evtl. an die Betriebszeit des PC (die um 15 Uhr auch jeden Tag gleich ist) gebunden ist kann ich ja nicht genau sagen. Aber da die Uhrzeit auch in Dokumenten etc. verwendet wird, ist ein Verstellen wirklich kein echter Ausweg.

Wenn ich das Problem an M$ melden würde bekäme ich bestimmt zur Antwort: It's not a bug - it's a feature!
Wir haben in der Firma ein Arbeitsgruppen-Netzwerk. Als Arbeitsstationen werden XP-PC verwendet. Der Drucker hängt über einen Printserveradapter im Netzwerk.
Auf einem PC zeigt sich nun seit einigen Tagen folgendes Problem: Er arbeitet tadellos bis 15 Uhr. Dann ist kein Drucken mehr möglich. Der Auftrag hängt lokal auf dem PC. Die anderen Mitglieder der Arbeitsgruppe können munter weiter drucken - nur der PC nicht. Mit einem Neustart ist das Problem behoben. Es erfolgt keine Fehlermeldung, Netzwerk ist weiter intakt (andere Arbeiten in Netzwerkanwendungen können durchgeführt werden).
Wo soll ich da bloß suchen. :wacko:

Also wenn ihr Ideen habt - her damit.

Zitat von Scritch

Local $sOut = ''

Es wird eine leere Variable zum Aufnehmen der später in die Datei zu schreibenden Einträge erstellt.

Zitat von Scritch

For $i = 1 To UBound($aVergleich) -1

Start bei Index=1 (schau in die Hilfe, an Index=0 steht die Anzahl der gelesenen Zeilen), bis zum letzten Eintrag mit Index= UBound (Anzahl Einträge im Array) -1, da Index mit 0 beginnt ist letzter Wert 1 kleiner als Anzahl.

Zitat von Scritch

$sOut &= $aVergleich[$i] & @CRLF

Hier wird der Variablen, deren Inhalt in die Datei geschrieben werden soll der jeweilige Eintrag (nicht in Tabu und nicht in Referenz) hinzugefügt + Zeilenumbruch. Somit braucht man die Variable später nur direkt in die Datei schreiben. Jede Zeile enthält dann einen Wert.

Du willst ja Komponenten installieren. Ich habe mich damit bisher nie befasst, aber mal kurz bei MSDN nachgelesen.
Folgendes sollte doch laufen:

Local $oCatalog = ObjCreate("ComAdmin.COMAdminCatalog")
Local $compName = "Q277984"
Local $aInstallComponents[2] = ["Q277984.dll","Q277984b.dll"]
Local $aInstallCLSID[2] = ["{44DAAEC9-F383-42CC-BA1A-8F3A036B0DAE}", "{DB2E2C08-2285-4105-925E-B7ECBA8C6C5D}"]

$oCatalog.InstallMultipleComponents($compName, $aInstallComponents, $aInstallCLSID)

Als Skript verteilen an die Arbeitsplätze und mit Eintrag in RunOnce ausführen. Dann brauchst du dich nicht um User/PW kümmern.
Vielleicht geht es auch nicht - wie gesagt, ist eigentlich nicht meine Baustelle.

Edit:
Wenn du mit COM+ herumdoktorst - vielleicht kannst du das ja auch brauchen:

Ich kann da bei mir leider nicht viel testen - habe nur localhost ;).
Vielleicht stolpert ja einer unserer Netzwerkadmins hier drüber.

Das Umsetzen von VBScript ist nicht so schwer. Schau doch mal die Befehlszeilen im direkten Vergleich an. Sie sind sich ziemlich ähnlich.

Es geht - aber ein Problem ist, wenn die Inhalte sich von mal zu mal unterscheiden (Zeilen innerhalb eines Feldes).
Das Unterscheiden, ob mit Chr(13) ein Zeilenumbruch in der Zelle stattfindet oder die nächste Zeile erreicht wird oder das Tabellenende und somit ein 'normaler' Zeilenumbruch in Word erfolgt ist fast unmöglich.
Aber schau dir mal diesen Link an: Link, Dort geht es genau um solche Probleme. Das Portieren von VBA nach AutoIt wird wohl keine Probleme bereiten.

Edit:
Hab mal ein Bsp. erstellt. Auslesen der ersten Tabelle.
Das Entfernen von Chr(7) habe ich mit integriert - hab aber k.A. ob das in jeder Tabelle enthalten ist, oder nur in dieser.

Ich habs mal schnell zusammengebastelt:

Local $fileTabu = 'Pfad_zur_Datei'
Local $fileReferenz = 'Pfad_zur_Datei'
Local $fileVergleich = 'Pfad_zur_Datei'

Local $aTabu, $aReferenz, $aVergleich
_FileReadToArray($fileTabu, $aTabu)
_FileReadToArray($fileReferenz, $aReferenz)
_FileReadToArray($fileVergleich, $aVergleich)

Local $sOut = ''

For $i = 1 To UBound($aVergleich) -1
_ArraySearch($aTabu, $aVergleich[$i], 1)
If @error Then ; Eintrag nicht in Tabu enthalten
_ArraySearch($aReferenz, $aVergleich[$i], 1)
If @error Then ; Eintrag nicht in Referenz enthalten
$sOut &= $aVergleich[$i] & @CRLF
EndIf
EndIf
Next

; Ich weiß nicht genau in welche Datei du das Ergebnis schreiben willst.
; So kannst du an eine bestehende anhängen oder auch eine neue Datei schreiben:
Local $fh = FileOpen('Pfad_zur_Datei', 1)
FileWrite($fh, $sOut)
FileClose($fh)

Ich kenne das Problem nicht, aber prüfe doch sicherheitshalber immer vor dem Löschen, ob das Objekt wirklich noch existiert.

If IsObj($oVar) Then 'Objektdelete-Befehl' ; nach Objekttyp unterschiedlich

Bitte auch beachten, dass die Objekte manchmal in bestimmter Reihenfolge zu löschen sind - wenn sie voneinander abhängig sind.
Und verwende z.B. nicht _GDIPlus_ShutDown() und erst danach _GDIPlus_ImageDispose ($hImage) o.ä. ;-).

Du mußt die ID ( Rückgabe von GUICtrlCreateLabel ) in einem Array auffangen, dann kannst du darauf zugreifen.

For $i = 0 To UBound($aLabel) -1
$aLabel[$i] = GUICtrlCreateLabel(..)
Next

Du mußt die notwendigen Argumente in das Array $aAppID einfügen.

Versuchs mal selber, hier das Gerüst:
- Mit _FileReadToArray alle 3 Dateien in jeweils ein Array einlesen
- Array "Vergleichen" durchlaufen
- suche aktuellen Eintrag in "Tabu" (vorhanden, weiter mit nächstem Eintrag)
- nicht vorhanden: suche Eintrag in "Referenz" (vorhanden, weiter mit nächstem Eintrag)
- nicht vorhanden: Eintrag in Ausgabestring schreiben ($out = $out & $Eintrag[$i] & ',')

Bsp.:

Local $aIndex[6] = [7,6,3,2,1,0] ; Indexwerte müssen fallend enthalten sein!

For $i = UBound($aIndex) -1 To 0 Step -1
_ArrayDelete($ArrayToDelete, $aIndex[$i])
Next

In einer Schleife - aber rückwärts! Anderenfalls stimmt die Indexzuordnung nicht mehr.

Zitat von Knuckels

wo müsste ich denn jetzt diese funktion einfügen

Schau dir progandys Bsp. (Post 7) an.
Dort ersetzt du

MsgBox(0, "", $sText & @CRLF & Dec($sText))

mit

MsgBox(0, "", $sText & @CRLF & _Dec($sText))

und fügst die Funktion mit in das Skript ein.

Eigene Funktion benutzen:

$hex = "0105c0aa90"
ConsoleWrite(_Dec($hex) & @CRLF)

Func _Dec($sHex)
Local $exp = 0, $dec = 0, $a = StringSplit($sHex, '')
For $i = $a[0] To 1 Step -1
$dec += Dec($a[$i])*(16^$exp)
$exp += 1
Next
Return $dec
EndFunc

Zitat von Scritch

Es ist ein Wort pro Zeile was in dem anderen Dokument gefunden werden soll.

Dann werd doch bitte mal ganz konkret:
- Hast du eine Liste mit "Suchwörtern" in einer Datei (1 Begriff/Zeile)?
- In der zu überprüfenden Datei: Kommt der jeweilige Suchbegriff nur einmal od. evtl. öfter vor?
- Was erwartest du für eine "Antwort" von der Funktion?
Am Besten, du stellst mal entsprechende Musterdaten rein, vorher - nachher.

Zitat von AutoITboy

wenn ich die Funktion StringRegExp benutze erhalte ich ein Array. Meistens sind die einzelnen Arrayindizes leer bis auf eines. zB. 86.

Wenn keine Werte enthalten sind, ist dein Pattern nicht optimal. Wenn das Pattern auf die Aufgabe korrekt abgestimmt ist, sind auch entsprechend Werte enthalten.

Dafür würde ich grundsätzlich lieber WinMerge verwenden. Wenn es nur kleinere Texte sind, kannst du es auch so lösen: Schnittmengen und Differenzmengen ermitteln.