Beiträge von Musashi

Zitat von Andy

Ich sehe das genau anders^^ Je älter ich werde, desto mehr will ich noch (dazu-) lernen...und in einigen Jährchen, wenn ich dann in Rente bin, habe ich auch endlich genug Zeit dafür!

Der Webdriver verwendet eine andere JSON-UDF als die von AspirinJunkie .

(siehe : https://www.autoitscript.com/wiki/WebDriver )

Was passiert denn, wenn Du das Skript von AspirinJunkie (Beitrag #20) ohne Änderungen (außer deinem Key) bei Dir laufen lässt ?

Zitat von Windi

Was mache ich falsch?

Wie AspirinJunkie bereits schrieb, benötigst Du den Webdriver überhaupt nicht.

Poste bitte mal die #Include Anweisungen, die Du verwendest.

Nachtrag :

Du solltest, wie schon erwähnt, versuchen, die JSON Variante von AspirinJunkie umzusetzen.

Hier ein erweiterter RegEx Ansatz :

Dabei wird im Aufruf von StringRegExp das Flag 4 verwendet (Rückgabe : Array of Arrays).

AspirinJunkie hat im EN-Forum eine Funktion veröffentlicht, die daraus ein 2-D Array erstellt.

#include <Array.au3>

Local $sSource = '{"summary":{"query":"wilnsdorf hohe roth 6","queryType":"NON_NEAR","queryTime":149,"numResults":1,"offset":0,"totalResults":7314,"fuzzyLevel":2},"results":[{"type":"Point Address","id":"DE/PAD/p0/21286756","score":7.0448002815,"matchConfidence":{"score":0.9350328916967534},"address":{"streetNumber":"6","streetName":"Hoheroth","municipality":"Wilnsdorf","countrySecondarySubdivision":"Siegen-Wittgenstein","countrySubdivision":"Nordrhein-Westfalen","postalCode":"57234","countryCode":"DE","country":"Deutschland","countryCodeISO3":"DEU","freeformAddress":"Hoheroth 6, 57234 Wilnsdorf","localName":"Wilnsdorf"},"position":{"lat":50.82027,"lon":8.11352},"viewport":{"topLeftPoint":{"lat":50.82117,"lon":8.1121},"btmRightPoint":{"lat":50.81937,"lon":8.11494}},"entryPoints":[{"type":"main","position":{"lat":50.82024,"lon":8.11361}}]}]}'

Local $aArrayAdressLatLon = StringRegExp($sSource, "(?U)freeformAddress.*:(.*,.*),.*position.*lat.*(\d+.\d+),.*lon.*(\d+.\d+)\}", 4)
Local $aArrayResult
$aArrayResult = __ArrayAinATo2d($aArrayAdressLatLon)
_ArrayDisplay($aArrayResult, "Result :", default, default, default, "Bereich|FreeFormAddress|Latitude|Longitude")

; #FUNCTION# ======================================================================================
; Name ..........: __ArrayAinATo2d()
; Description ...: Convert a Arrays in Array into a 2D array
; Syntax ........: __ArrayAinATo2d(ByRef $A)
; Parameters ....: $A             - the arrays in array which should be converted
; Return values .: Success: a 2D Array build from the input array
;                  Failure: False
;                     @error = 1: $A is not an 1D array
;                            = 2: $A is empty
;                            = 3: first element is not aa array
; Author ........: AspirinJunkie
; =================================================================================================
Func __ArrayAinATo2d(ByRef $A)
    If UBound($A, 0) <> 1 Then Return SetError(1, UBound($A, 0), False)
    Local $N = UBound($A)
    If $N < 1 Then Return SetError(2, $N, False)
    Local $u = UBound($A[0])
    If $u < 1 Then Return SetError(3, $u, False)

    Local $a_Ret[$N][$u]

    For $i = 0 To $N - 1
        Local $t = $A[$i]
        If UBound($t) > $u Then ReDim $a_Ret[$N][UBound($t)]
        For $j = 0 To UBound($t) - 1
            $a_Ret[$i][$j] = $t[$j]
        Next
    Next
    Return $a_Ret
EndFunc   ;==>__ArrayAinATo2d

Das Pattern selbst ist sicherlich noch optimierbar .

RegEx ist, wie AspirinJunkie bereits schrieb, nicht die erste Wahl.

Ich habe trotzdem mal zwei Pattern zusammengestümpert - mehr fällt mir um diese Zeit nicht mehr ein

Die beiden Arrays kannst Du bei Bedarf joinen.

 #include <Array.au3>

Local $sSource = '{"summary":{"query":"wilnsdorf hohe roth 6","queryType":"NON_NEAR","queryTime":149,"numResults":1,"offset":0,"totalResults":7314,"fuzzyLevel":2},"results":[{"type":"Point Address","id":"DE/PAD/p0/21286756","score":7.0448002815,"matchConfidence":{"score":0.9350328916967534},"address":{"streetNumber":"6","streetName":"Hoheroth","municipality":"Wilnsdorf","countrySecondarySubdivision":"Siegen-Wittgenstein","countrySubdivision":"Nordrhein-Westfalen","postalCode":"57234","countryCode":"DE","country":"Deutschland","countryCodeISO3":"DEU","freeformAddress":"Hoheroth 6, 57234 Wilnsdorf","localName":"Wilnsdorf"},"position":{"lat":50.82027,"lon":8.11352},"viewport":{"topLeftPoint":{"lat":50.82117,"lon":8.1121},"btmRightPoint":{"lat":50.81937,"lon":8.11494}},"entryPoints":[{"type":"main","position":{"lat":50.82024,"lon":8.11361}}]}]}'

Local $aArrayLat = StringRegExp($sSource, "(?U)position.*lat.*(\d+.\d+),", 3)
Local $aArrayLon = StringRegExp($sSource, "(?U)position.*lon.*(\d+.\d+)\}", 3)
_ArrayDisplay($aArrayLat, "Latitude :")
_ArrayDisplay($aArrayLon, "Longitude :")

P.S. Oscar oder BugFix

Könnte einer das Thema aus dem Testforum nach H&U verschieben. Ist ggf. ja von allgemeinem Interesse.

Welche Version von AutoIt verwendest Du ?

Verwende mal die Variante JSON_Dictionary.au3

Windi -> Edit : Damit hat es wahrscheinlich nichts zu tun.

Das Problem ist :

Zitat von Windi

==> Variable subscript badly formatted

Dumme Frage, aber hast Du auch die json-udf eingebunden ?

"C:\Users\xx2\Desktop\Regex test.au3" (36) : ==> Unknown function name.:$oResult = _JSON_Parse($sJSONReturn)$oResult = ^ ERROR

Unknown function name lässt vermuten, dass das nicht der Fall ist.

Bitte auch folgendes beachten :

Zitat

2022/10/19

Script-Breaking!: _JSON_Parse generiert für JSON-Objekte nun AutoIt-Maps anstatt Scripting.Dictionary-Objekte. Die letzte Version mit Dictionary liegt im Anhang als JSON_Dictionary.au3. __JSON_FormatString(): @Tab wird nun durch \t escaped. (thx mko)

Zitat von Windi

Ich brauch davon Row 4 und 5

Beispiel mit dein Originalarray aus Beitrag 3 :

#include <Array.au3>
Local $aArray[10] = ["0/2355632",    _
                     "3.9823999405", _
                     "55116",        _
                     "55116",        _
                     "50.00125",     _
                     "8.2614",       _
                     "50.00143",     _
                     "8.26024",      _
                     "50.00045",     _
                     "8.26333"]

_ArrayDisplay($aArray) ; *** nur zur Ansicht

; Row 4 und 5 anzeigen :
MsgBox(0, "Row 4 und 5: ", $aArray[4] & @CRLF & $aArray[5] & @CRLF)

Mir geht es so wie Andy - das Array ist doch bereits vorhanden

Wenn Du die Werte aus Row 4 und 5 benötigst, dann kannst Du sie doch einfach ansprechen/ausgeben. Hast Du möglicherweise noch Verständnisprobleme mit Arrays im allgemeinen ?

Mit z.B. _ArrayDelete lassen sich Elemente aus einem Array entfernen, aber das ist überhaupt nicht erforderlich.

Schau Dir in der Hilfe mal _Excel_RangeCopyPaste an.

Das ganze Mausgeklicke mit absoluten Koordinatenwerten ist doch recht unzuverlässig.

gmmg :

Mir ist (ähnlich wie Moombas ) nicht ganz klar, was genau Du mit dem RegEx erreichen möchtest.

Aktuell matched Du nach zwei kompletten Strings mit der | , also dem OR-Operator.

Können dort auch nur eine bzw. drei oder mehr Mailadressen ggf. mit unterschiedlichen Domains vorkommen ?

Zitat von AUTOIT321

wie kann ich die Datei in einer GUI anzeigen lassen?

Muss ich dafür ein Label benutzen und gibt es einen ähnlichen Befehl wie ArrayDisplay?

Du könntest z.B. GUICtrlCreateEdit verwenden.

Hier ein Beispiel (mit erhöhter Menge an Zeichen) :

#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>

_Example()

Func _Example()
    Local $idEdit, $sRead, $sFilename

    ; Example : Read GDIPlus.au3 and show the code in an Edit control :
    $sFilename = StringRegExpReplace(@AutoItExe, "(?i)AutoIt3.exe$", "") & "Include\GDIPlus.au3"
    $sRead = FileRead($sFilename)

    GUICreate("Test : Huge Edit Control", 1200, 600)
    $idEdit = GUICtrlCreateEdit("", 2, 2, 1194, 568)

    ; Gets the current text limit for an edit control :
    MsgBox(BitOR(4096, 64), "Info :", "Default Limit : Edit Control (Chars) = " & _GUICtrlEdit_GetLimitText($idEdit) & @CRLF)

    ; Sets a new text limit :
    _GUICtrlEdit_SetLimitText($idEdit, 1500000)
    MsgBox(BitOR(4096, 64), "Info :", "New Limit : Edit Control (Chars) = " & _GUICtrlEdit_GetLimitText($idEdit) & @CRLF)

    GUISetState(@SW_SHOW)
    _GUICtrlEdit_AppendText($idEdit, $sRead)
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Example

Willkommen zurück

Zitat von Alina

Nun möchte ich die Ausgabe wie folgt haben:
sieben "2-er" dem jeweils 1 " " folgt, danach ein "2-er" dem dann zwei " " folgen und danach acht "2-er" mit einem " " und dann ein Zeilenumbruch

Mit einem StringRegExpReplace bekomme ich es leider nicht hin - darum in zwei Schritten :

Global $_Texteingang = 'ab cd ef gh ij kl mn op qr st uv wx yz 01 23 45 67 89 ij kl mn op qr st uv ab cd ef gh ij kl mn op qr st uv wx yz 01 23 45 67 89 ij kl j7 55 6p'
Global $_Ausgabe
$_Ausgabe = StringRegExpReplace($_Texteingang, ".{1,24}\K(\s{1}|$)", '  ')
$_Ausgabe = StringRegExpReplace($_Ausgabe, ".{1,50}\K(\s{1})", @CRLF)
ConsoleWrite($_Ausgabe & @CRLF)

Zitat von Autoit765

Ich wollte fragen, ob mir jemand sagen kann, wie ich aus einer mehrzeiligen txt Datei die Daten auslesen kann.

Hallo124;Tschüss13

...

Dabei soll das "tschüss" vor dem "Hallo" angezeigt werden.

Hier eine kleine Demo mittels _FileReadToArray (wie von Moombas vorgeschlagen) :

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

Local $sFile = @ScriptDir & "\Demo.txt"
Local $aArray

_FileReadToArray($sFile, $aArray, $FRTA_COUNT, ";")
If @error Then Exit MsgBox(BitOR(4096, 16), "Error", "Fehler beim Einlesen von : " & @CRLF & $sFile & @CRLF)

_ArrayDisplay($aArray, "Zeilen der Demo.txt Datei :") ; *** only for test
For $i = 1 To $aArray[0][0]
    ConsoleWrite($aArray[$i][1] & "  VOR  " & $aArray[$i][0] & @CRLF)
Next

Nachtrag :

Zitat von WhiteHorse

Die Sache ist die ich weiß nicht ob ich dann die Musik davon verwenden darf, weil das Programm soll ja später veröffentlicht werden, das jeder es benutzen kann und da ist die Musik sonst mit dabei.

Aus dem Satz werde ich nicht so ganz schlau.

Musikstücke einer Software (egal ob kommerziell oder Freeware) sind in aller Regel urheberrechtlich geschützte Komponenten. Von einer Auskopplung und externen Verwertung ohne Genehmigung des/der Urheber(s) würde ich abraten !

Zitat von WhiteHorse

Also ich werde es so machen, ich werde beide Exen in eine Verpacken, ist auch besser und diese wird ja dann verschlüsselt, indem ich diese Datei fertigstelle.

Verschlüsselt wird dabei gar nichts, aber das wurde ja bereits mehrfach angemerkt. Gleiches gilt für die Problematik mit AutoIt .exe-Dateien (Virenscanner).

Du kannst Dateien auch mittels des File to Base64 String Code Generator v1.20 von UEZ einbinden. Allerdings sollte die Dateigröße nicht zu gewaltig sein .

Danke ! Auch von mir den

Nur eine Idee : In welchen Ordner verschiebst Du denn das (die) Verzeichnis(se) ?

Werden auch erhöhte Rechte angefordert, wenn Du z.B. von c:\temp nach c:\temp2 verschiebst ?

EDIT :

Sorry, nicht genau gelesen - ich hatte DirMove im Kopf .

Zitat von hipfzwirgel

Hat jemand eine Idee wieso WinMove() erhöhte Rechte benötigt?

EDIT : hipfzwirgel

Das Verhalten ist nicht neu, siehe z.B. winmove-does-not-work-under-some-circumstances

Kurzfassung :

WinMove("AdminTool by HS 2017", "", 2963, 1, 450, 480)

Offenbar versuchst Du das Fenster eines mit Adminrechten bereits gestarteten Programms mit einem AutoIt-Skript zu verschieben, welches nicht über Adminrechte verfügt.

Daher ist hier #RequireAdmin erforderlich.

Zitat von HoT

Aber muss es in Zeile 9 nicht Round($g_iUserAppliedDPI/$g_fDPIDefault, 2)

heißen??

Hmm, ich muss mich wohl korrigieren.

Die o.a. Skalierungsformel verwende ich, um z.B. Schriftgrößen in Labels usw. an die eingestellte Prozentdarstellung anzupassen. Bei den Koordinaten hast Du wahrscheinlich recht, da muss der Faktor aus i Round($g_iUserAppliedDPI/$g_fDPIDefault, 2) gebildet werden.

Probiere es einfach aus .