@ Helfer..
also super erklärt
und ich hab's jetzt dank eurer Hilfe hingekriegt.
Wird alles korrekt angezeigt.
Muß das einfach noch öfter uben
und mich mit diesen Fehlern auseinandersetzen, dann klappt das auch.
Hab nochmals die Hilfe gelesen,....aber es dauert bis es hängen bleibt! 
Also,
nochmal merci für eure tolle Hilfe
Liebe Grüße
Ilse 
Hallo Seubo,
vielen Dank für die Erlösung!
Ich habe jetzt die ganze Zeit in der Hilfe
nachgesehen...
vielleicht kannst du mir kurz diese Syntax erklären Seubo, das wäre super
$aArray = StringRegExp($sString,'g-nav">([^"<]+)',3)
([^"<]+)
zwischen...? Satzanfang...
Konnte das anhand der Hilfe nicht 100% verstehen!
Bei manchen Seiten stimmt das Ergebnis nicht
da sind immer noch Klammern und Zahlen drin:
[0]|(5,907)
[1]|(4,405)
[2]|(2,373)
[3]|(1,586)
[4]|Hunde
[5]|Welpen
[6]|Hunde mit Papieren
[7]|Katzen und Hunde
Liebe Grüße
Ilse
Hallo,
muß mich leider wieder melden.
Ich kämpfe schon die ganze Zeit mit einem RegExAusdruck
Der Html-Quellcode sieht so aus:
class="g-nav">nur Hunde</a></h2>
class="g-nav">Katzen</a></h2>
class="g-nav">Hunde Katzen Welpen</a></h2>
Wie kann ich genau diese Werte mit Regex rausfiltern?
Habe jetzt keine nerven mehr...
Einmal mit einem Leerzeichen, dann mit zwei...
Mein Versuch:
#include <Array.au3>
$sSource= ClipGet()
$alinks2 = StringRegExp($sSource,'class="g-nav">(.*)<',3)
_ArrayDisplay($alinks2,"alle Tiere")
Bin jetzt wirklich gespannt, was ich wieder falsch gemacht habe?
Das ergebnis sollte so aussehen:
nur Hunde
Katzen
Hunde Katzen Welpen
Liebe Grüße
Ilse
ok Schnitzel,
die Bastelstunde hat begonnen!
Merci für die Tipps
Melde mich wieder
Ilse
Hallo Schnitzel,
hm... ich meinte, wenn die Arrays mit den Angaben dorthingeschickt werden (Listwiew)
kann man dann den LINK direkt anklicken!
Mit iniwrite (Textdatei) klappt das ja nicht.
Welchen Weg würdest du gehen?
Oder muß ich eine html Datei machen?
Grüße
Ilse
Hallo,
hm ich dachte \w+
das sind Zeichen Punkte ...
noch ne kurze Frage:
Kann man irgendwie das Ergebnis
in einer Datei, oder Listwiew speichern,
damit man den Link auch anklicken kann?
So zum Beispiel:
[autoit][/autoit][autoit][/autoit][autoit]Katzen http:\http://www.katzen.de
Hunde http:\http://www.katzen.de
Grüße
Ilse
Hallo,
irgendwie stimmt da was nicht. Ich erhalte keine Anzeige
[autoit]
#include <array.au3>
#include <String.au3>
#include <file.au3>
$sSource= BinaryToString(inetread("http://www.hunde.de/hund/hunderassen/index.html",8),4)
;MsgBox(0,"",$sSource)
;ClipPut($sSource)
$arrayfilter = StringRegExp($sSource, 'href=(\w+)>', 3)
MsgBox(0,"",$arrayfilter)
_ArrayDisplay($arrayfilter, "Array Auswertung")
Der regex Befehl stimmt doch (\w+)
wieso wird eine 1 zurückgeliefert?
Grüße
Ilse
Hallo Bugfix,
ich brauch nochmal deine Hilfe.
Ich habe versucht deinen Code in dieses
Script einzubauen, aber es hagelt nur so mit Fehlermeldungen.
Hier mal der Code wo dein Code rein soll:
#include<Array.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
Dim $oIE[1]
$oIE[0] = _IECreateEmbedded()
Dim $Tab[1]
$gui = GUICreate("Browser",800,600)
$NewTab = GUICtrlCreateButton("Neuer Tab",20,20,80,25)
$input = GUICtrlCreateInput("",120,20,400,25)
$TabParent = GUICtrlCreateTab(20,60,760,520)
$Tab[0] = GUICtrlCreateTabItem("Tab")
GUICtrlCreateObj($oIE[0],40,100,700,460)
GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_IENavigate($oIE[0],"http://www.google.de")
GUICtrlSetData($input,_IEPropertyGet($oIE[0],"locationurl"))
While GUIGetMsg()<>-3 * Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $NewTab
$iIE = UBound($oIE)
_ArrayAdd($Tab,GUICtrlCreateTabItem("Tab"&$iIE))
_ArrayAdd($oIE,_IECreateEmbedded())
GUICtrlCreateObj($oIE[$iIE],40,100,700,460)
_IENavigate($oIE[$iIE],"http://www.google.de")
Case $input
$selected = GUICtrlRead($TabParent)
_IENavigate($oIE[$selected],GUICtrlRead($input))
WinSetTitle($gui,"",_IEPropertyGet($oIE[$selected],"locationname"))
Case $TabParent
$selected = GUICtrlRead($TabParent)
WinSetTitle($gui,"",_IEPropertyGet($oIE[$selected],"locationname"))
GUICtrlSetData($input,_IEPropertyGet($oIE[$selected],"locationurl"))
EndSwitch
WEnd
Könntest du bitte nochmal drübersehen?
Liegt bestimmt an den Arrays.
Ich hatte die Funktionen reinkopiert und soweit alles
angepasst, ging aber alles nicht.
Liebe Grüße
Ilse
Noch ein kleines anderes Problem:
Wenn ich meinen Code versuche mit hier dem Forum (SPOILER)
zu veröffentlichen, dann wird die Syntax nicht korrekt angezeigt!
Da sind Smileys drin. Seltsam Ich kopiere von Scite in
Edit BugFix: Du mußt erst auf SPOILER-Tag klicken, DANN auf AUTOIT-Tag und dann den Code dazwischen einfügen:
[ spoiler ][ autoit ] CODE [ /autoit ][ /spoiler ]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiTab.au3>
#include <StaticConstants.au3>
#include <StructureConstants.au3>
#include <TabConstants.au3>
#include <WinAPI.au3>
Global $btCloseTABItem, $iTabItem, $tTabItem, $iItemCount, $tmpItem, $fIsButton = False
#region ### START Koda GUI section ### Form=
$gui = GUICreate("Form1", 615, 440, 192, 124)
$Tab1 = GUICtrlCreateTab(80, 80, 481, 305)
Local $Tab[10] = [ _
GUICtrlCreateTabItem("Eins") , _
GUICtrlCreateTabItem("Zwei") , _
GUICtrlCreateTabItem("Drei") , _
GUICtrlCreateTabItem("Vier") , _
GUICtrlCreateTabItem("Fünf"), _
GUICtrlCreateTabItem("sechs") , _
GUICtrlCreateTabItem("sieben") , _
GUICtrlCreateTabItem("acht") , _
GUICtrlCreateTabItem("neun") , _
GUICtrlCreateTabItem("zehn")]
GUICtrlCreateTabItem("")
$btCloseTABItem = GUICtrlCreateButton('x', 1, 1, 10, 10, BitOR($ES_CENTER, $SS_CENTERIMAGE))
GUICtrlSetBkColor(-1, 0xFF6611)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$tmpItem = -1
$iItemCount = _GUICtrlTab_GetItemCount($Tab1)
For $i = 0 To $iItemCount -1
If _MouseOverTabItem($gui, $Tab1, $i) Then
Msgbox(0,"","")
$tmpItem = $i
ExitLoop
EndIf
Next
If $iTabItem <> $tmpItem Then
GUICtrlSetState($btCloseTABItem, $GUI_HIDE)
$fIsButton = False
$iTabItem = $tmpItem
EndIf
; Löschbutton nur Anzeigen bei min. 2 TabItem und aktivem TabItem
If $iTabItem > -1 And $iItemCount > 1 And (Not $fIsButton) And GUICtrlRead($Tab1) = $iTabItem Then _ShowCloseButtonOnTabItem($gui, $Tab1, $iTabItem)
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $btCloseTABItem
_GUICtrlTab_DeleteItem($Tab1, $iTabItem)
GUICtrlSetState($btCloseTABItem, $GUI_HIDE)
$fIsButton = False
EndSwitch
WEnd
Func _ShowCloseButtonOnTabItem($GUI, $TabID, $iTabItem)
Local $aSize = _GUICtrlTab_GetItemRectRelativ($GUI, $TabID, $iTabItem)
Local $posRight = $aSize[2]
Local $x = $posRight -10
Local $y = $aSize[1] +2
ControlMove($gui, '', $btCloseTABItem, $x, $y)
GUICtrlSetState($btCloseTABItem, BitOR($GUI_SHOW,$GUI_FOCUS,$GUI_ONTOP))
$fIsButton = True
EndFunc
Func _MouseOverTabItem($GUI, $TabID, $iTabItem)
If Not BitAND(WinGetState($GUI), 
Then Return False
Local $old = Opt('MouseCoordMode', 2)
Local $posM = MouseGetPos(), $tMouse = DllStructCreate($tagPOINT)
DllStructSetData($tMouse, 1, $posM[0])
DllStructSetData($tMouse, 2, $posM[1])
Opt('MouseCoordMode', $old)
Local $tTabItem = _GUICtrlTab_GetItemRectRelativ($GUI, $TabID, $iTabItem, 1)
If _WinAPI_PtInRect($tTabItem, $tMouse) Then
Return True
Else
Return False
EndIf
EndFunc ;==>_MouseOverTabItem
;===============================================================================
; Function Name: _GUICtrlTab_GetItemRectRelativ($GUI, $TabID, $iTabItem, $iReturnType=0)
; Description: Returns the coordinates of a TabItem relatively to the GUI co-ordinates
; Parameter(s): $GUI - window handle
; $TabID - Tab ID (not handle!)
; $iTabItem - TabItem index
; $iReturnType - Return type array=0 (default), RECT-structure=1
; Return Value(s): Array or structure with coordinates of a TabItem (left, top, right, bottom)
; Author(s): BugFix (bugfix@autoit.de)
;===============================================================================
Func _GUICtrlTab_GetItemRectRelativ($GUI, $TabID, $iTabItem, $iReturnType=0)
Local $hWnd = GUICtrlGetHandle($TabID)
Local $TabPos = ControlGetPos($GUI, '', $TabID)
Local $tRECT = DllStructCreate("int Left;int Top;int Right;int Bottom")
Local $pRect = DllStructGetPtr($tRECT)
GUICtrlSendMsg($TabID, $TCM_GETITEMRECT, $iTabItem, $pRect)
Local $posLeft = $TabPos[0]+2, $posTop = $TabPos[1]+2
Local $width = (DllStructGetData($tRECT,3) - DllStructGetData($tRECT,1))
Local $height = DllStructGetData($tRECT,4) - DllStructGetData($tRECT,2)
If $iTabItem > 0 Then
For $i = 0 To $iTabItem -1
GUICtrlSendMsg($TabID, $TCM_GETITEMRECT, $iTabItem, $pRect)
$posLeft += (DllStructGetData($tRECT,3) - DllStructGetData($tRECT,1))
Next
EndIf
If $iReturnType Then
DllCall("user32", 'long', 'SetRect', 'ptr', $pRECT, 'long', $posLeft, _
'long', $posTop, 'long', $posLeft+$width, 'long', $posTop +$height)
Return $tRECT
Else
Local $aOut[4] = [$posLeft, $posTop, $posLeft +$width, $posTop +$height]
Return $aOut
EndIf
EndFunc ;==>_GUICtrlTab_GetItemRectRelativ
Hallo Bugfix,
huh...sieht heftig aus.
Super - Lösung!
Herzlichen Dank!
Klasse!
Liebe Grüße
Ilse
Hallo Osiris,
stimmt das geht. Aber intuitiv ist das leider nicht!
Gibt es nicht vielleicht eine fertige Funktion die das
vielleicht etwas eleganter löst?
Oder vielleicht per icon im Tab das man
anklicken kann.
Mach mich mal auf die Suche.
Grüße
Ilse
Guten Morgen Misterspeed,
,,,hoffe du hattest ein schönes Pfingsfest.
Merci nochmal für deine Hilfe.
Hab alles nochmal nachgesehen und neu gemacht.
Der Fehler lag bei meinen Freunden den (Arrays)
$oIE[0]
... jetzt klappt alles.
Liebe Güße
Ilse
Hallo,
wie kann man nach einem Formsubmit
die neue Adresse ermitteln?
Also, das wäre Schritt 1
Beispiel:
#include <IE.au3>
$oIE = _IECreate ("http://www.google.com")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery, "AutoIt IE.au3")
_IEFormSubmit ($oForm)
Die neue Zielseite wäre
[autoit]
http://www.google.de/search?sclient…&aql=&oq=&pbx=1
also das Ergebnis _ieFormSubmit
Wenn ich den IE nun eingebettet habe und keine Adresszeile da ist,
kann ich diesen Wert irgendwie anders ermitteln?
Das Problem ist, ich muß nach dem
_IEFormSubmit ($oForm)
einen Klick ausführen.
_IELinkClickByText($oIE, "button")
und hier wird halt $oIE gebraucht, was mir fehlt!
Grüße
Ilse 
Hallo XovoxKingdom,
merci für deine Hilfe.
Klappt irgendwie nicht.
Weiß du vielleicht wie ich den aktuellen Tab,
also der Tab der angeklickt wurde löschen kann?
Ilse
Versuch das mal:
[autoit]
#include <IE.au3>
$oIE = _IECreate ("http://www.google.de")
$oForm = _IEFormGetObjByName ($oIE, "f")
$oQuery = _IEFormElementGetObjByName ($oForm, "q")
_IEFormElementSetValue ($oQuery, "AutoIt IE.au3")
_IEFormSubmit ($oForm)
Q ist das Suchfeld
Ilse
Hallo,
schau dir das mal in der Hilfe an:
http://translation.autoit.de/onlinehilfe/li…s/_IEAction.htm
Grüße
Ilse
Hallo,
eine Frage zu Gui Tabs:
Wie kann man bestimmte Tabs ähnlich
wie bei Firefox beim anklicken löschen?
#include <GuiTab.au3>
#include <GUIConstantsEx.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 440, 192, 124)
$Tab1 = GUICtrlCreateTab(80, 80, 481, 305)
Local $tabitems[10] = [ _
GUICtrlCreateTabItem("Eins") , _
GUICtrlCreateTabItem("Zwei") , _
GUICtrlCreateTabItem("Drei") , _
GUICtrlCreateTabItem("Vier") , _
GUICtrlCreateTabItem("Fünf"), _
GUICtrlCreateTabItem("sechs") , _
GUICtrlCreateTabItem("sieben") , _
GUICtrlCreateTabItem("acht") , _
GUICtrlCreateTabItem("neun") , _
GUICtrlCreateTabItem("zehn")]
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("Button1", 456, 40, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(4160, "Information", "Lösche TAB ")
;For $i = 2 To UBound($tabitems) - 1
_GUICtrlTab_DeleteItem($Tab1, 3)
;Next
EndSwitch
WEnd
also nicht mit einem Button!
Grüße
Ilse
Hallo RR04,
prima Lösung.
Dank dir
Liebe Grüße
Ilse
Guten Morgen Oscar,
huh.. ich hab's jetzt gefunden.
Ich dachte es hätte mit den Variablen (Höhe,Breite...) zu tun.
Danke nochmals
Viele Grüße
Ilse
Hallo Oscar,
konnte mich jetzt erst melden.
Hatte noch mit anderen Problemen zu kämpfen.
Leider klappt das so nicht!
Das hatte ich auch schon probiert!
Ich habe mal in deinem Code alles geändert.
Schau dir mal die ersten beiden Namen an! Petra und Klaus
Die Abstände wurden ebenfalls vergrößert
Geht trotzdem nicht!
#include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
[/autoit][autoit][/autoit][autoit]$Gui = GUICreate("Namen", 701, 571, 208, 178)
GUISetOnEvent($GUI_EVENT_CLOSE, "_End")
$Pic1 = GUICtrlCreatePic("C:\Users\Ilse\Desktop\Backbild.jpg", -4, -4, 805, 629)
GUICtrlSetState(-1, $GUI_DISABLE)
$SelectAll = GUICtrlCreateButton("Select all", 568, 424, 75, 25)
GUICtrlSetOnEvent(-1, "_SelectAll")
;$Alle = GUICtrlCreateButton("Alle", 304, 232, 75, 25)
Dim $var[19][2] = [[18,0],[1, 'Petra-Müller'],[2, 'Klaus Schmidt'],[3, 'Lissi'],[4, 'Norbert'],[5, 'Paul'],[6, 'Carla'],[7, 'Fritz'],[8, 'Tanja'],[9, 'Bert'], _
[10, 'Rosi'],[11, 'Peter'],[12, 'Lena'],[13, 'Ralf'],[14, 'Theo'],[15, 'Zora'],[16, 'Birgit'],[17, 'Sandra'],[18, 'Tom']]
;~ $var = IniReadSection(@ScriptDir & '\meine.ini', "Titel")
[/autoit][autoit][/autoit][autoit];~ If @error Then
;~ MsgBox(4096, "", "Error occurred, probably no INI file.")
;~ EndIf
_ArrayDelete($var, 0)
;Local $aktiv = True
Dim $arControl[UBound($var)][2], $arProgress[UBound($var)]
Dim $Links = 50
Dim $Oben = 20
Dim $Zwischen = 25
Dim $Zeilen = 8 ; <- hier die Anzahl der Zeilen eintragen
Dim $Abstand = 220 ; <- hier den Abstand zwischen den Spalten eintragen
For $i = 0 To UBound($arControl) - 1
$arControl[$i][0] = GUICtrlCreateCheckbox('', $Links + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 20, 20)
GUICtrlSetFont(-1, 12, 500, 0, "Arial") ; hier habe ich die Schriftgröße geändert
$arControl[$i][1] = GUICtrlCreateLabel($var[$i][1], $Links + 20 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 60, 20) ; <- hier die Breite (60) und Höhe (20) angeben.
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetOnEvent(-1, "_CheckboxSelect")
GUICtrlSetFont(-1, 12, 500, 0, "Arial") ; hier habe ich die Schriftgröße geändert
$arProgress[$i] = GUICtrlCreateProgress($Links + 120 + Int($i / $Zeilen) * $Abstand, $Oben + Mod($i, $Zeilen) * $Zwischen, 70, 20)
Next
GUISetState(@SW_SHOW)
While Sleep(1000)
WEnd
Func _End()
Exit
EndFunc ;==>_End
Func _SelectAll()
For $i = 0 To UBound($arControl) - 1
GUICtrlSetState($arControl[$i][0], $gui_checked)
Next
EndFunc ;==>_SelectAll
Func _CheckboxSelect()
Local $ID = @GUI_CtrlId - 1
If BitAND(GUICtrlRead($ID), $gui_checked) Then
GUICtrlSetState($ID, $gui_unchecked)
Else
GUICtrlSetState($ID, $gui_checked)
EndIf
EndFunc ;==>_CheckboxSelect
Grüße Ilse
Hallo Misterspeed,
habe das in deinem Link entdeckt
[autoit]
$progress = GUICtrlCreateProgress(10, 60, 380, 25, 0x08)
GUICtrlSendMsg($progress, 0x040A, 1, 10
sieht interessant aus,
aber das Problem mit den 100% wenn die Seite fertig ist, bleibt.
Ich schau mal, ob ich noch was finde
Ilse
