Beiträge von Tweaky

Danke euch beiden.

Habe das ganze nun getrennt.

Hi,

On_WM_DROPFILES funktioniert nicht mit #RequireAdmin.

Ich starte das folgende Skript über den Explorer.

Nun kann ich eine Datei auf das ListView ziehen.

Es erscheint eine msgbox.

Aktiviere ich #RequireAdmin funktioniert es nicht mehr.

Es kommt keine Fehlermeldung.

Was muß man das ändern damit es läuft?

#Region    ;************ Includes ************
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysWin.au3>
#EndRegion ;************ Includes ************
;~ #RequireAdmin

Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert

Global $hGui_haupt = GUICreate("Test", 300, 300, 0, 0, -1, $WS_EX_ACCEPTFILES)
Global $idListview_bilder = GUICtrlCreateListView("Test", 10, 10, 200, 200, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER), BitOR($LVS_EX_DOUBLEBUFFER, $WS_EX_CLIENTEDGE))

;mehrere Dateien auf die GUI ziehen und so einlesen
GUIRegisterMsg($WM_DROPFILES, "On_WM_DROPFILES")

GUISetState(@SW_SHOW, $hGui_haupt)
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

;********************************************************
;        Dateien aus dem Explorer auf die GUI ziehen        *
;********************************************************

Func On_WM_DROPFILES($hWnd, $msg, $wParam, $lParam)
    Local $aFileList, $nSize, $pFileName, $tPoint, $hCtrl

    $tPoint = _WinAPI_DragQueryPoint($wParam)
    If Not DllStructGetSize($tPoint) Then Return     ;window border
    $hCtrl = _WinAPI_ChildWindowFromPointEx($hWnd, $tPoint)

    If $hCtrl = ControlGetHandle($hGui_haupt, "", $idListview_bilder) Then     ;ListView
        $aFileList = _WinAPI_DragQueryFileEx($wParam)
        If Not @error Then MsgBox(0, 0, 0)
        _WinAPI_DragFinish($wParam)
        _WinAPI_MessageBeep(0)     ;Ton erzeugen
    EndIf

    Return
EndFunc   ;==>On_WM_DROPFILES



Func _beenden()
    Exit
EndFunc   ;==>_beenden



While 1
    Sleep(10)
WEnd

erledigt

behoben

behoben

behoben

Habs mal in "Der String der den gesuchten Teilstring ersetzt" geändert. OK?

erledigt

Zuerst hatte ich auch StringLeft($String, 4) <> "img-".

Allerdings wollte ich es über StringRegExp löschen, da das eigentliche Pattern noch länger ist.

In dem Teststring gibt es keine Zeilenumbrüche usw.

Danke euch beiden. Funktioniert.

behoben

Hi,

ich steh grad aufm Schlauch.

Ich will nur Strings finden die nicht mitt IMG- beginnen.

#Region    ;************ Includes ************
#include <Array.au3>
#EndRegion ;************ Includes ************

$sFileName = "IMG-1232343"

$aTest = StringRegExp($sFileName, "(?i)" & "\A" & "(?<!IMG)" & ".+" & "\z", 3)
_ArrayDisplay($aTest)

habs angepasst

mir ist es egal

Hab in der deutschen Hilfe das doppelte Beispiel entfernt

Oh man. Ich habe diesen Hinweis gelesen, aber das ActiveSheet übersehen.

Danke

Hi,

ich habe ein Problem mit _Excel_RangeRead.

Kann es sein, dass der beim 2. Parameter angegebene Name des Tabellenblatts ignoriert wird?

Es wird immer das Tabellenblatt verwendet, welches gerade aktiv ist.

#Region    ;************ Includes ************
#include <Excel.au3>
#EndRegion ;************ Includes ************

$exceldatei_pfad = "E:\Mappe1.xlsm"
$exceldatei_pfad_suchen = $exceldatei_pfad

$oAppl = _Excel_Open()
$oWorkbook = _Excel_BookOpen($oAppl, $exceldatei_pfad)
$oWorkbook = _Excel_BookAttach($exceldatei_pfad_suchen)
$aNamen = _Excel_RangeRead($oWorkbook, "Tabelle1", $oWorkbook.ActiveSheet.Usedrange.Columns("A:G"), 1, True)

Excel-Datei zum testen:

- neue Excel-Datei erstellen

- Daten auf dem Tabellenblatt "Tabelle1" ausfüllen

- das Tabellenblatt "Tabelle2" auswählen

- Speichern und Schließen

Ich habe Office 2010 32bit.

Danke, es funktioniert.

Hab diese Variante wohl vergessen beim testen

Ich muss das Thema nochmals aufgreifen.

Wenn ich die folgende Seite lade, bekomme ich den Inhalt angezeigt

https://www.asus.com/support/api/pr…model=Z87DELUXE

Bei der folgenden Seite wird nur eine Infozeile angezeigt

https://www.asus.com/support/api/pr…el=PRIME-Z390-A

Weiß jemand wie ich herausfinde, was ich bei "model" genau anhängen muss.

Ich habe es schon mit Leerzeichen, ohne Leerzeichen usw. probiert. Es klappt einfach nicht.

"Allgemein"

- Da poste ich wenn es eine neue Version gibt

"Bugs"

- Fehler (am besten direkt in den Post zur jeweiligen Version"

"Fragen/Anregungen"

- keine Ahnung