Beiträge von horphi

horphi

Dann weiß ich nicht, was ich falsch mache...bei mir kommt immer der Fehler...
Win8.1 IE 11

AutoIt

FUNC _test()
Local $oIE = _IECreate("http://www.google.com")
Local $oForm = _IEFormGetObjByName($oIE, "gbqf")
Local $oQuery = _IEFormElementGetObjByName($oForm, "q")
_IEFormElementSetValue($oQuery, "AutoIt IE.au3")
_IEFormSubmit($oForm)
EndFunc

Code

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
--> IE.au3 T3.0-2 Warning from function _IEFormGetObjByName, $_IESTATUS_NoMatch
--> IE.au3 T3.0-2 Error from function _IEFormElementGetObjByName, $_IESTATUS_InvalidDataType
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType
--> IE.au3 T3.0-2 Error from function _IEFormSubmit, $_IESTATUS_InvalidDataType

horphi

Hallo,

ich hab eine Frage dazu.

Was ist, wenn das User und PW Feld als "Hidden" gekennzeichnet sind?

Funktioniert der Login dann?

Spoiler anzeigen

--> IE.au3 T3.0-2 Warning from function _IEGetObjByName, $_IESTATUS_NoMatch (Name: email_address, Index: 1)
--> IE.au3 T3.0-2 Warning from function _IEGetObjByName, $_IESTATUS_NoMatch (Name: password, Index: 1)
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType
--> IE.au3 T3.0-2 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType

VG
Horphi

horphi

Tach zusammen,

Habe die Suche endlich mal ausgebaut.

Problem dabei: ich lasse mir jede Zeile vom Suchanfang bis zum SuchEnde einzeln ausgeben....das ist ein bisschen langsam.

Kennt jemand einen Weg, das zu beschleunigen?

Danke und Gruß,

horphi

Spoiler anzeigen

AutoIt

#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>


$sFile = FileOpenDialog("TXT öffnen",@ScriptDir & "\", "All (*.*)")
$sSearch = InputBox("Suchstring ?", "Geben Sie den zu suchenden Text ein:")




$FileData = FileRead($sFile)
$sStringset = StringInStr($FileData, $sSearch, 0)
$sFound = StringLeft($FileData, $sStringset)
$sOut = StringReplace($sFound, @LF, "")


$extendAnfang = @extended + 1
$extend = @extended + 1


MsgBox(0, "Ausgabe", "Start in Zeile: " & $extend)




Local $i = 0
While $i <= 2


	$extend = $extend + 1
	$sLineEnd = FileReadLine($sFile, $extend)
	$sLineEndLen = StringLen($sLineEnd) ;if Schleife sucht Zeile ohne Text


	If $sLineEndLen = 0 Then
		ProgressOn("Analyse", "Datei wird gelesen", "Working...")
		$i = $i + 1
		$extend = $extend + 1
		$extendDelta = $extend - $extendAnfang


		For $i = 0 To 100
			ProgressSet($i)
		Next
		ProgressSet(100, "Done!")
		Sleep(750)
		ProgressOff()
		MsgBox(0, '', "Zeile gefunden:" & $extend & " Differenz: " & $extendDelta)


		ExitLoop
	EndIf
WEnd

Alles anzeigen

horphi

Zitat von NapNap

; Alle doppelte Datensätze suchen und löschen in t1
$query = $adCN.Execute("DELETE FROM t1 WHERE EXISTS (SELECT ID FROM t1 t2 WHERE t1.s2 = t2.s2 AND t1.s3 = t2.s3 AND t1.s4 = t2.s4 AND t1.ID > t2.ID)")

Fehlt da nicht ein Komma?

SQL

DELETE FROM t1 WHERE EXISTS (SELECT ID FROM t1, t2 WHERE t1.s2 = t2.s2 AND t1.s3 = t2.s3 AND t1.s4 = t2.s4 AND t1.ID > t2.ID

horphi

Zitat von Micha_he

Klar, mit etwas mehr Aufwand:

Micha du bist der Wahnsinn....vielen Dank.

VG

horphi

horphi

Dank dir für die Erklärung Chesstiger.

Werde daran mal weiter basteln.

VG

horphi

horphi

Hey ho, das klappt ja super.

Vielen DAnk.

Nur ich verstehe die Vorgehensweise mit @extended nicht....

Spoiler anzeigen

AutoIt

#include <Array.au3>


FileWrite(@ScriptDir & '\gefunden.txt', @CRLF & 'eins' & @CRLF & 'zwei' & @CRLF & 'drei')


$test = FileOpen(@ScriptDir & '\gefunden.txt')


$sSearch = InputBox("Suchstring ?","Geben Sie den zu suchenden Text ein:", "drei")


$FileData = FileRead($test) ; --> die Datei wird eingelesen


$sFound = StringLeft($FileData, StringInStr($FileData, $sSearch)) ; --> sucht in der Datei den Wert und gibt alles aus der Dtei bis zum 1 Wert des gefundenenen Suchbegriffs zurück


$sOut = StringReplace($sFound, @LF, "") ; --> nimm alle Zeilenumbrüche und ersetze sie mit ""


Msgbox(0,"",@extended + 1) ;--> was macht jetzt @extended????

Alles anzeigen

EIne Frage hab ich noch:

Kann ich auch festlegen, ab welcher Zeile gesucht werden soll?

VG

horphi

horphi

Hallo zusammen,

ein kurze Frage meinerseits. Ich kriege es nicht hin.

Ich möchte die Datei nach einem Begriff durchsuchen und mir dann die Zeilennummer ausgeben lassen, um dann zu sagen, "suche ab der Zeilennummer weiter".

mit _FileCountLines kann ich mir nur die komplette Anzahl ausgeben lassen..

Ich möchte aber:

AutoIt

$Wert
$Datei


Suche $Wert in $Datei und gib die Zeilennummer (nicht den Inhalt) zurück....

Geht das ?

VG

horphi

horphi

Hallo Zeitriss,

danke für den Tipp.

Habe das jetzt auch so umgesetzt. Vielen Dank.

Spoiler anzeigen

AutoIt

#include <array.au3>
#include <Firebird_ADODB.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <FireBird.au3>
#include <ImageSearch.au3>
#include <DesktopWidth.au3>
#include <DotNetIdentification.au3>
#include <ComboConstants.au3>
#include <GUIListBox.au3>
#include <StringConstants.au3>
#include <AutoItConstants.au3>
#include <ListViewConstants.au3>




#region - Allgemeine Deklaration
Opt("GUIOnEventMode", 1)
#endregion - Allgemeine Deklaration


#region ### START Koda GUI section ### Form=
$Form1_1_1 = GUICreate("Form1", 627, 444, 192, 124)


$EAN = GUICtrlCreateInput("4250740300182", 32, 32, 233, 21)
$NAME = GUICtrlCreateInput("Name", 32, 80, 233, 21)


$Amount = GUICtrlCreateInput("Amount", 32, 128, 233, 21)
$Search = GUICtrlCreateButton("Search", 288, 32, 193, 49, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Save = GUICtrlCreateButton("Save", 288, 96, 193, 57, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")


$g_hListView = _GUICtrlListView_Create($Form1_1_1, "Name|Titel|Anzahl|Lagerfach|Preis|EAN", 32, 168, 442, 118)
_GUICtrlListView_SetExtendedListViewStyle($g_hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))


GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 110)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT)


$Lagerfach = GUICtrlCreateInput("Lagerfach", 32, 304, 233, 21)


Local $accels[1][2] = [["{Enter}", $EAN]]
GUISetAccelerators($accels)


GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
GUISetOnEvent(-3, "_exit")
GUICtrlSetOnEvent($Search, "Search")


#endregion ### END Koda GUI section ###






While 1
	Sleep(1000)
WEnd




Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
	Global $hLastControl
	Local $sNewControl = ControlGetFocus($Form1_1_1)
	If StringInStr($sNewControl, "Edit") Then $hLastControl = _ArrayToString(ControlGetPos($Form1_1_1, "", $sNewControl), "|", 1, 1)
EndFunc   ;==>MY_WM_COMMAND




Func Search()


	Global $isEAN = GUICtrlRead($EAN)
	Global $isName = GUICtrlRead($NAME)
	Global $isAmount = GUICtrlRead($Amount)
	Global $isLagerfach = GUICtrlRead($Lagerfach)


	Select
		Case $hLastControl = 32
			MsgBox(0, '', 'EAN')
		Case $hLastControl = 80
			MsgBox(0, '', 'Name')
		Case $hLastControl = 128
			MsgBox(0, '', 'Amount')
		Case $hLastControl = 304
			MsgBox(0, '', 'Lagerfach')
	EndSelect
EndFunc   ;==>Search


Func _exit()
	Exit
EndFunc   ;==>_exit

Alles anzeigen

VG Horphi

horphi

Hallo zusammen,

ich komm einfach nicht auf die Lösung....
ich habe eine GUI und möchte beim klicken eines Button Suche mit WinGetState abfragen, welches der Fenster als letztes selektiert war, damit die dementsprechende Query ausgegeben wird....
Ist das so überhaupt möglich?

Spoiler anzeigen

AutoIt

#include <array.au3>
#include <Firebird_ADODB.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <FireBird.au3>
#include <ImageSearch.au3>
#include <DesktopWidth.au3>
#include <DotNetIdentification.au3>
#include <ComboConstants.au3>
#include <GUIListBox.au3>
#include <StringConstants.au3>
#include <AutoItConstants.au3>
#include <ListViewConstants.au3>




#region ### START Koda GUI section ### Form=
$Form1_1_1 = GUICreate("Form1", 627, 444, 192, 124)


$EAN = GUICtrlCreateInput("4250740300182", 32, 32, 233, 21)
$NAME = GUICtrlCreateInput("Name", 32, 80, 233, 21)


$Amount = GUICtrlCreateInput("Amount", 32, 128, 233, 21)
$Search = GUICtrlCreateButton("Search", 288, 32, 193, 49, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Save = GUICtrlCreateButton("Save", 288, 96, 193, 57, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")


$g_hListView = _GUICtrlListView_Create($Form1_1_1, "Name|Titel|Anzahl|Lagerfach|Preis|EAN", 32, 168, 442, 118)
_GUICtrlListView_SetExtendedListViewStyle($g_hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))


GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 110)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT)


$Lagerfach = GUICtrlCreateInput("Lagerfach", 32, 304, 233, 21)


Local $accels[1][2] = [["{Enter}", $EAN]]
GUISetAccelerators($accels)


GUISetState(@SW_SHOW)


#endregion ### END Koda GUI section ###


Global $iCGetFoc = BitAND(WinGetState ("",$EAN),4)
Global $iCGetFoc2 = BitAND(WinGetState ("",$NAME),4)
Global $iCGetFoc3 = BitAND(WinGetState ("",$Amount),4)
Global $iCGetFoc4 = BitAND(WinGetState ("",$Lagerfach),4)


While True
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Search
			Search()
	EndSwitch
WEnd


Func Search()


	#region - Database Deklaration
	; Datenbank:
	Global $data_source = "E:\AUTOIT\Scripts\test.fdb"


	; Verbindungsstring:
	Global $strConnection = "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; DBNAME=" & $data_source & ";"
	Global $isEAN = GUICtrlRead($EAN)
	Global $isName = GUICtrlRead($NAME)
	Global $isAmount = GUICtrlRead($Amount)
	Global $isLagerfach = GUICtrlRead($Lagerfach)


Select
	Case $iCGetFoc = 4
		MsgBox(0,'','EAN')
;~ 	Global $sql_str = "SELECT Distinct ""RefCode"", ""Title"" , ""Stock"" , ""MatchCode"", ""SalesPrice"" , ""EAN""FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"
	Case $iCGetFoc2 = 4
		MsgBox(0,'','Name')
;~ 	Global $sql_str = "SELECT Distinct ""RefCode"", ""Title"" , ""Stock"" , ""MatchCode"", ""SalesPrice"" , ""EAN""FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"
	Case $iCGetFoc3 = 4
		MsgBox(0,'','Amount')
;~ 	Global $sql_str = "SELECT Distinct ""RefCode"", ""Title"" , ""Stock"" , ""MatchCode"", ""SalesPrice"" , ""EAN""FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"
	Case $iCGetFoc4 = 4
		MsgBox(0,'','Lagerfach')
;~ 	Global $sql_str = "SELECT Distinct ""RefCode"", ""Title"" , ""Stock"" , ""MatchCode"", ""SalesPrice"" , ""EAN""FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"
EndSelect
EndFunc

Alles anzeigen

Danke und Gruß,

horphi

horphi

Zitat von Kanashius

Gerade heute (oder gestern) war da noch was: GUI Switch Case bei Mausklick via _GUICtrlListView_GetSelectionMark

Zitat von Oscar

GuiCtrlSetOnEvent mit der Ctrl-ID der ListView reagiert immer nur auf die Header-Einträge.

Danke für die Tipps.

Dann baue ich das für WM_NOTIFY um.

Wollte nur die Verständnisfrage mit GuiCtrlSetOnEvent geklärt haben.

Danke und Gruß,
horphi

horphi

Hallo Community,

ich schreibe mit " _GUICtrlListView_AddArray ( $List1, $array)" in die die $List1 zurück.

AutoIt

$List1 = GUICtrlCreateListView("Name|Titel|Anzahl|Lagerfach|Preis|EAN", 32, 168, 442, 118)
GUICtrlSetOnEvent($List1, "_ClickListView")

Jetzt möchte ich via GUICtrlSetOnEvent mit der Maus in eine Zeile klicken und damit die nächste Funktion auslösen...
Leider geschieht das nicht in der ausgewählten Zeile, sondern nur in dem Listenkopf....also $List1...

Fällt euch ein, was ich vergessen habe?

VIelen DAnke und Gruß,

horphi

horphi

Zitat von Oscar

Hier mal ein Beispiel, wie das im OnEventMode ganz ohne WM_NOTIFY funktioniert:

Hallo Oscar,

das ist ja auch mal genial einfach....:-)

Vielen Dank.

2 super funktionierende Methoden.

Vielen Dank

horphi

Hallo Kanashius,

vielen Dank.

Das ist es.

Hab es grob schon überblickt und verstanden.

Werd das jetzt mal ins Script einbauen. Mit der DLL Thematik bin ich ja noch nicht so vertraut...

VG

horphi

horphi

Hallo zusammen,

ich möchte gerne _GUICtrlListView_GetSelectionMark als Case im Switch GUI benutzen, um eine Aktion direkt nach Klick in der Liste auszuführen.

Die selektierte Zeile soll direkt übergeben werden...

Geht sowas?

AutoIt

#include <ComboConstants.au3>
#include <GUIListBox.au3>
#include <StringConstants.au3>
#include <AutoItConstants.au3>
#include <ListViewConstants.au3>


$iSelectListItem = _GUICtrlListView_GetSelectionMark ($List1) ;gibt die selektierte Zeile wieder


While True
$nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
	    Exit
	  Case $iSelectListItem = 1
            Aktion()
   EndSwitch
WEnd

Alles anzeigen

VG
horphi

horphi

Zitat von Kanashius

Du hast die inneren doppelten Anführungszeichen vergessen

Vielen Dank.

horphi

Mal ne andere Frage.

Ich habe zum Test nur ein Feld was ich auslese.

Nun möchte ich mehrere Felder nehmen, bekomme aber immer einen Fehler, dass die Abfrage so nicht funktioniert....:-(

Ich bin mit den Hochkomma ein bisschen irritiert...

So funktionierts....

AutoIt

Global	$sql_str = "SELECT Distinct ""RefCode"" FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"

So nicht...

AutoIt

Global	$sql_str = "SELECT Distinct ""RefCode,Title"" FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"

AutoIt

Global	$sql_str = "SELECT Distinct ""RefCode", "Title"" FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%';"

DAnke und Gruß,

horphi

horphi

Hallo BugFix,

PERFEKT!!!

So geht´s also auch....

Vielen Dank. DAs erleichtert es erheblich.

VG

horphi

horphi

Hallo, ich habe eine Abrage auf eine Firebird Datenbank.

Problem dabei: das Ergebnis gibt alle Meta DAten mit. Die brauch ich aber nicht. Kann man das irgendwie unterdrücken?
Ich brauch nur die Eckigen Klammerwerte...

Code

<results><metadata><fields><name value="Title" alias="Title" type="5" size="255" scale="0" /></fields></metadata><data><row num="1" ><Title><![CDATA[Crew Member Windbreaker in schwarz]]></Title></row></data></results>

AutoIt

#include <Array.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <FireBird.au3>
#include <ImageSearch.au3>
#include <DesktopWidth.au3>
#include <DotNetIdentification.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StringConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 442, 192, 124)
$EAN = GUICtrlCreateInput("4250740300182", 32, 32, 233, 21)
$NAME = GUICtrlCreateInput("Name", 32, 80, 233, 21)
$Amount = GUICtrlCreateInput("Amount", 32, 128, 233, 21)
$Button1 = GUICtrlCreateButton("Search", 288, 32, 193, 49, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Save", 288, 96, 193, 57, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$List1 = GUICtrlCreateEdit("", 32, 176, 449, 227)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




Global $h_fbDll = DllOpen(@ScriptDir & "\fbdll4vb20.dll")
Global $servername=@ComputerName
;~ Global $g_DBName="E:/Organisation/AUTOIT/Scripts/AuctionStudio1.fdb"
Global $g_DBName="C:/Program Files (x86)/Auction Studio/Data/AuctionStudio.fdb"
Global $i1 = 0
Global $g_idMemo


;~ _FireBird_About($h_fbDll)
;~ _FireBird_Help($h_fbDll)
;~ MsgBox(0, "Execute Firesird_SetDebug Function.", _FireBird_SetDebug($h_fbDll,True))


While True
$nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
	    Exit
	  Case $Button1
		 SearchItem()
 EndSwitch
WEnd








Func TestSelect($h_fbDll,$sServerName,$sDBName)
Local $rv, $rcount, $result, $xmldoc
$rv = _FireBird_ConnectDatabase($h_fbDll,$sServerName,$sDBName, "SYSDBA", "masterkey")
If $rv Then
Local $isEAN = GUICtrlRead($EAN)
$rcount = _FireBird_ExecuteSelect($h_fbDll,"SELECT Distinct ""Title"" FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%'", $result)
EndIf


_FireBird_DisConnectDatabase($h_fbDll)


ConsoleWrite ($result)
GUICtrlSetData ($List1,$result)


EndFunc


Func SearchItem()
TestSelect($h_fbDll, $servername, $g_DBName)


;~ DllClose($h_fbDll)
;~ Exit




EndFunc

Alles anzeigen

Danke und Gruß,

horphi

horphi

Perfekt!

Danke

Beiträge von horphi

IE: Login auf Website funktioniert nicht

IE: Login auf Website funktioniert nicht

Read file -> return Zeilennummer

SQL query DELETE FROM bei AODB ohne Auswirkung

Read file -> return Zeilennummer

Read file -> return Zeilennummer

Read file -> return Zeilennummer

Read file -> return Zeilennummer

WinGetState

WinGetState

GUICtrlSetOnEvent auf _GUICtrlListView_AddArray

GUICtrlSetOnEvent auf _GUICtrlListView_AddArray

GUI Switch Case bei Mausklick via _GUICtrlListView_GetSelectionMark

GUI Switch Case bei Mausklick via _GUICtrlListView_GetSelectionMark

GUI Switch Case bei Mausklick via _GUICtrlListView_GetSelectionMark

Firebird Query Result eingrenzen?

Firebird Query Result eingrenzen?

Firebird Query Result eingrenzen?

Firebird Query Result eingrenzen?

Outlook get _OL_FolderTree