Beiträge von BugFix

Hi,
ich hatte ja schonmal in der SB rumgeulkt - nun aber mal ernsthaft:
Ich habe etliche Geräte, die hauptsächlich aufgrund mechanischer Defekte zu verschrotten sind. Als alter Bastler tut mir das in der Seele weh.
Da ich selber aber keinerlei Elektronikbastelei mehr mache, hoffe ich vielleicht jemandem etwas Gutes zu tun.
Neben den üblichen Dingen, die man auf Geräteplatinen so findet (Trafos, Elkos, Transistoren, Dioden, Widerstände), habe ich einige Platinen mit:
- TopSwitch TOP249Y mit Kühlkörper
- Optokoppler CNY17F-3
- 40-Segment LCD-Anzeige mit Steuerchip PCF2100CT
Ich finde, das sind schon kleine Leckerbissen.

Haben möchte ich dafür nix.
Nur Auslöten müßt ihr selbst und wenn ihr nicht in meinem Arbeitsgebiet wohnt (dann würde ich es sogar vorbeibringen), dann tragt ihr das Porto.

Hier noch ein paar Bilder:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Zitat von meistertogo

Geht das auch bei beiden Menüs?

Laß dir die Positionsdaten für das entsprechende Menu ausgeben mit:
$aPos = _GUICtrlMenu_GetItemRect($hGui, $hMenu, $INDEX)
$INDEX ist der 0-basierte Index der Menüs.

Zitat von Gummibaer

ich find halt nichts für den eigenschaften dialog

Es gibt darauf keinen direkten Zugriff - aber es gibt AutoIt! Einfach selbst automatisieren:

#Include <GuiListView.au3>
Local $Path1 = 'C:\Programme\AutoIt3'
Local $Path2 = 'C:\Programme\AutoIt3\AutoIt3Help.exe'

Local $Window = _ShowPropertiesDialog($Path1)
Do
Sleep(100)
Until Not WinExists($Window)
_ShowPropertiesDialog($Path2)

Func _ShowPropertiesDialog($sPath)
; BugFix
Local $Parent, $Target, $hListView, $index
If StringRight($sPath,1) = '\' Then $sPath = StringTrimRight($sPath,1)

$Parent = StringLeft($sPath, StringInStr($sPath, '\', 1, -1) -1)
$Target = StringTrimLeft($sPath, StringLen($Parent)+1)

RunWait(@WindowsDir & '\explorer.exe /root,"' & $Parent & '"')
$hListView = ControlGetHandle($Parent, '', '[CLASS:SysListView32; INSTANCE:1]')

$index = _GUICtrlListView_FindText($hListView, $Target, -1, False)
_GUICtrlListView_SetItemFocused($hListView, $index)
_GUICtrlListView_SetItemSelected($hListView, $index, True, True)
ControlSend($Parent, '', '[CLASS:SysListView32; INSTANCE:1]', '{ALTDOWN}d{ALTUP}i')
Return $Parent
EndFunc

Standardmäßig gibt es keinen Befehl oder Style dafür.
Einen Rahmen mit _WinAPI_FrameRect() zu zeichnen scheitert daran, dass für den Menübereich kein Device Context ermittelbar ist.
Ein Versuch mit _GDIPlus_GraphicsDrawRect() scheitert ebenfalls daran, dass der Menübereich nicht zum Fenster gehört und somit mit _GDIPlus_GraphicsCreateFromHWND() nicht erfassbar ist.

Vielleicht fällt ja noch wem was anderes ein. Mein momentaner Tipp wäre: Menü selbst erstellen mit eigenen Schaltflächen.

Zitat von TimBlo

Ich will die daten zwischen dem browser und einer bestimmten website abfangen und meinen wünschen anpassen.
ist daran etwas verkehrt?

Ja. Mangels Erklärung, die darauf schließen ließe, dass es etwas Legales wäre: ==> CLOSED

Zitat von oh-ha

Was mich nur wundert ist das man sie problemlos über den Text-Assistenten von Excel öffnen kann.
Nur mit dem Code geht es halt nicht.

Mögliches Problem:
Nicht jede Zeile enthält dieselbe Anzahl an Feldtrennern. Einige (faule) Programmierer geben nur die Zeile bis zum letzten belegten Feld aus, das nimmt dir Excel dann sicher beim Import übel. Jede Zeile muß auch wenn nicht alle Datenfelder besetzt sind, die Felder dafür bereit halten.

Bsp.:
ORT;NAME;BERUF;TELEFON;FAX
A-ort;Meier;;;    <==Richtig
B-ort;Müller      <==Falsch

Zitat von myrix

wenn ich die zeilen bei mir einfüge kommt, wenn ich alle 3 Checkboxen anklicke, es fehlt die sprach angabe.

Sorry, mein Fehler. Ich frage gewöhnlich auf _CHECKED und nicht auf _UNCHECKED ab. Setze einfache die Abfragen auf _CHECKED, dann paßt es.

Vielleicht Probleme in Excel-Version (habe Excel 2000, da gehts problemlos).
Oder fehlerhafter Aufbau der CSV-Datei?
Probier mal mit dieser Datei: CSV-Muster, mit der hat es bei mir auch tadellos funktioniert.

$faSprache = 0 ; Variable für Vergleichswert
If BitAND(GUICtrlRead($cbSpracheJ), $GUI_UNCHECKED) = $GUI_UNCHECKED Then $faSprache += 1
If BitAND(GUICtrlRead($cbSpracheD), $GUI_UNCHECKED) = $GUI_UNCHECKED Then $faSprache += 1
If BitAND(GUICtrlRead($cbSpracheE), $GUI_UNCHECKED) = $GUI_UNCHECKED Then $faSprache += 1

;~ if GUICtrlRead($faSprache) = 0 Then ; wieso GUICtrlRead für Variable? - ist doch kein Eingabefeld
if $faSprache = 0 Then
MsgBox(64,"Angabe Fehlt","Sprache")
$Fehler = 1
EndIf

Zitat von oh-ha

Kann man den Text-Assistenten von Excel so steuern über Autoit das er eine *.csv Datei richtig öffnet ?

Ich verstehe deine Frage nicht. Wenn du eine *.csv hast, wird diese mit dem normalen ..WorkBooks.Open in Excel geöffnet und läßt sich als *.xls abspeichern. Es bedarf dabei keiner zusätzlicher Einstellungen.
Dein gezeigtes Makro bezieht sich auch auf kein CSV - du öffnest dort eine XLS und diese im falschen Format ( .OpenText) .

Zitat von Andy

Eine ganz neue Art der Elektronikschrottverwertung

Ich bin doch ein ganz seriöser Mensch und möchte nuuur helfen.
Evtl. auftretende Synergien werden allerdings dankend angenommen.

Ich hab grad zum Verschrotten an die 15 Geräte mit (funktioniernden) 3*7-Segmentanzeigen bei mir rumliegen. Geräte enthalten auch Netzteile, oft noch ganz, hab nicht alle geprüft.
Falls du da was möchtest: Da kannst du auch munter runterlöten, kann ich dir gern zukommen lassen oder, wenns mal auf meiner Route liegen sollte, auch "abwerfen" :D.

Ah, OK - Ursache: Select markiert die gesamte Zelle! Es darf aber nur eine Auswahl sein, in der der Cursor in der Zelle steht.
Insofern reicht Select und dann als Workaround per Tab aus der Zelle und zurück. Wird wohl noch andere Lösungen geben - aber das funktioniert:

#include <Word.au3>
;Word öffnen
Local $oWordApp = _WordCreate("")
;Tabelle 5x5 erzeugen
$oWordApp.ActiveDocument.Tables.Add($oWordApp.Selection.Range,5,5)

;Zelle 1,1 markieren
$oWordApp.ActiveDocument.Tables(1).Cell(1,1).Select()
; erste Zelle ist markiert, aber Cursor nicht in Zelle
; per Tab in nächste Zelle und zurück - jetzt steht der Cursor drin
$oWordApp.Selection.MoveRight(12) ; 12=wdCell
$oWordApp.Selection.MoveLeft(12) ; 12=wdCell

;Feldfunktion einfügen
$oWordApp.Selection.Fields.Add($oWordApp.Selection.Range, -1, "SEQ Step", False)

; für restliche 24 Felder in Schleife
For $i = 1 To 24
; nächste Zelle wieder mit MoveRight
$oWordApp.Selection.MoveRight(12)
$oWordApp.Selection.Fields.Add($oWordApp.Selection.Range, -1, "SEQ Step", False)
Next

Hier dein Bsp., nur an den genannten Punkten geändert.

Das funktioniert doch. Du brauchst die Inputs nicht vorbelegen, erstelle sie mit Leerstring und am Besten mit dem Style $ES_NUMBER.

Ich verwende Tortoise SVN. Kann man auch nur lokal verwenden.
Wollte das auch schon immer mal als Projekt zur Integration in SciTE verwenden - da fehlt mir aber einfach die Zeit bisher.
Es gibt für SciTE ein Versions-PlugIn, das mich aber gar nicht überzeugen konnte.

Wenn ich nicht falsch liege, paßt das markierte Objekt nicht zur Folgeoperation. "Selection.Fields.Add" erwartet ein Range-Objekt.
Also statt:

$oWordApp.ActiveDocument.Tables(1).Cell($x,$y).Select()

verwende:

$oWordApp.ActiveDocument.Tables(1).Cell($x,$y).Range.Select()

Reaktion auf Stichwörter halte ich grundsätzlich nicht für bedenklich.
Ich sehe hier keinen direkten Bezug zu einem Keylogger. Sicher könnte man das daraus irgendwie ableiten....
Aber auf dem Niveau der Fragestellung mache ich mir da keine Sorgen.

Ich verweise auf das Hilfebeispiel zu _WinAPI_SetWindowsHookEx, dieses kommt seinem genannten Problem sehr nahe.
Sollte sich der Thread doch anders entwickeln, werden wir entsprechend reagieren.

Vorerst: Wieder freigegeben.

Ich denke, so ists OK und eindeutig.

Zitat von zemkedesign

Wie der Text es zeigt, möchte ich die Feldfunktion "SEQ" hinzufügen.

Ich wußte nicht, welche Funktion sich dahinter verbirgt, daher auch die Frage.

So sollte es gehen:

; vba-Code:
; Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, text:="SEQ Step", PreserveFormatting:=True
; Funktion ist: Selection.Fields.Add
; Parameter sind: Range, Type, text, PreserveFormatting
; Reihenfolge der übergebenen Parameter einhalten

; Selection.Range ist die gewählte Range des Objektes
; wdFieldEmpty ist eine Konstante (-1)
; text ist die Bezeichnung für das Feld
; PreserveFormatting, ein boolscher Parameter

$oWord = ObjCreate("Word.Application")
$oWord.Selection.Fields.Add( $oWord.Selection.Range, -1, "SEQ Step", False )