Wo ist das Problem mit der Windows-Suche?
Mein AutoIt-Scripte-Ordner ist einer der ganz wenigen, den ich zur Indizierung durch Windows freigegeben habe. Da im Index gesucht wird, sind Dateinamen(teile) innerhalb kürzester Zeit, und alle Dateiinhalte auch innerhalb Sekunden durchsucht.
Mit Standard-UDF war lediglich gemeint, dass diese UDF zum Lieferumfang der AutoIt-Installation gehört, und bei Änderungen im Defaultverzeichnis nicht 'updatesicher' ist (daher mein Vorbehalt).
Ich wollte weder den Begriff Standard generell zum sakrosankten Qualitätsmerkmal erheben, noch implizieren, das eigene Denken einzustellen. Selbstverständlich darf und sollte man Code hinterfragen und bei Bedarf den eigenen Bedürfnissen anpassen - bin also völlig Deiner Meinung.
Weiß ich doch 
alles gut 
Habe noch ein paar Ideen dazu, möchte den Bogen aber nicht überspannen
Ich bin völlig Musashis Meinung! Immer her mit den Ideen, die sind imho auch viel wichtiger als die Umsetzung, da findet sich meist irgendwer 
Sehe ich auch so, Ich wollte dieselwiesel nur nicht vorschlagen, die Standard-UDF diesbzgl. zu ändern.
Naja, ich sehe das so, dass das U in UserDefinedFunction nicht dazu da ist, um fleissig alles von diesem User zu Copypasten, sondern dass das U an den User gerichtet ist, der diese Funktion anwendet und dementsprechend auch diese Funktionen erweitert bzw. anpasst.
Und bei "Standard" bekomme ich regelmäßigst Zustände, denn das impliziert ja genau, möglichst die Finger davon zu lassen, irgendwer anderes wird die Funktion/Software/API schon geprüft haben und somit wird einem schon irgendwer anderer "den Arm aus der Sonne legen" wenn eine Änderung/Anpassung erforderlich ist. 
Ich erwarte grundsätzlich von einem "Programmierer" , dass der mit seinem Handwerkszeug Programmiersprache umgehen kann. Und ja, warum auch nicht Copypasten? Wo ist das Problem aus bspw. _FileWriteFromArray() ein _FileWriteFromArrayCR() oder _FileWriteFromArrayLF() oder _FileWriteFromArrayANSI() zu erstellen oder die Funktion, wie von dir vorgeschlagen, mit entsprechend erweiterten Parametern auszustatten?! Parametererweiterung verändert den "Standard" dieser Funktion nicht, und wer dann ein Script einfach nur aus einem Forenbeitrag Copypastet ohne den dazugehörigen Thread zu lesen, dem gehört es auch nicht anders wenn das Script dann "nicht funktioniert" Wobei das "nicht funktioniert" nicht stimmt, denn es funktioniert ja, wenn man die beim Funktionsaufruf festgestellte Fehlermeldung liest (Hinweis auf Parameteranzahl) und die Funktion entsprechend der im Thread geposteten Erweiterung anpasst bzw nutzt.
Die mit dem Skript erzeugte Liste ist UTF8 und die "original" Liste ist ANSI.
Na dann sollte es doch funktionieren, wenn die Liste in ANSI in die Datei geschrieben wird....s.o.
Ich habe dazu in der Funktion _FileWriteFromArrayANSI() lediglich beim FileOpen() den Modus $FO_ANSI (512) = Use ANSI reading and writing mode. eingefügt.
Die Datei Fernsehliste-Neu.sdx wird jetzt in ANSI-Kodierung geschrieben. Btw. überprüfe ich bei Unklarheiten bei der Kodierung immer mit einem HEX-Editor, ein einfacher (imho guter) ist HxD.
#include <File.au3>
#include <Array.au3>
#include <Inet.au3>
Local $sNETSource, $aNETList, $sNETChannel, $sPattern
Local $aSDXList, $aSDXListNew[0], $sSDXChannel
$sNETSource = BinaryToString(_INetGetSource("https://www.satindex.de/tv/1/1/0/", 0), 4) ; UTF8
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sNETSource = ' & $sNETSource & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$sPattern = '<div class="col freqx_1" >.*?">(.*?)<\/a><\/div>'
$aNETList = StringRegExp($sNETSource, $sPattern, 3) ; unter col freqx_1 sind die Sendernamen gelistet
;_arraydisplay($aNETList)
; INFO : Aufbau der Fernsehliste.sdx
; ----------------------------------
; Beispielzeile (Zeilenumbruch @LF) :
; SATCODX103Astra 1 (19.2E) TMPG20113030001ServusTV0192___ ______220002____________049140000101007_____________ HD Deutschl
; Die Sendernamen sind gesplittet, aber immer an festen Positionen.
; ==> max 8 Zeichen an Position 44..52 und (falls länger) max 12 Zeichen an Position 116..128
; Der Sendername aus der .SDX-Datei ist max. 20 Zeichen lang, z.B. :
; ServusTV HD Deutschl
; Zu beachten : Die Senderliste aus dem Netz enthält die vollständigen Namen, also z.B. :
; ServusTV HD Deutschland -> wird auf 20 Zeichen gekürzt
; Einlesen der Fernsehliste.sdx in ein Array :
Local $aSDXList, $aSDXListNew, $sSDXChannel
_FileReadToArray(@ScriptDir & "\Fernsehliste.sdx", $aSDXList, $FRTA_NOCOUNT)
For $iSDX = 0 To UBound($aSDXList) - 1
$sSDXChannel = StringStripWS(StringMid($aSDXList[$iSDX], 44, 8) & StringMid($aSDXList[$iSDX], 116, 12), 3)
For $iNet = 0 To UBound($aNETList) - 1
$sNETChannel = StringStripWS(StringLeft($aNETList[$iNet], 20), 3)
If $sSDXChannel = $sNETChannel Then
_ArrayAdd($aSDXListNew, $aSDXList[$iSDX])
EndIf
Next
Next
; Neues Array mit den Treffern :
_ArrayDisplay($aSDXListNew, "Treffer-Array") ; *** nur zur Anzeige beim Test
; ==> Array in eine neue Datei schreiben :
_FileWriteFromArrayANSI(@ScriptDir & "\Fernsehliste-Neu.sdx", $aSDXListNew)
Func _FileWriteFromArrayANSI($sFilePath, Const ByRef $aArray, $iBase = Default, $iUBound = Default, $sDelimiter = "|")
Local $iReturn = 0
; Check if we have a valid array as an input.
If Not IsArray($aArray) Then Return SetError(2, 0, $iReturn)
; Check the number of dimensions is no greater than a 2d array.
Local $iDims = UBound($aArray, $UBOUND_DIMENSIONS)
If $iDims > 2 Then Return SetError(4, 0, 0)
; Determine last entry of the array.
Local $iLast = UBound($aArray) - 1
If $iUBound = Default Or $iUBound > $iLast Then $iUBound = $iLast
If $iBase < 0 Or $iBase = Default Then $iBase = 0
If $iBase > $iUBound Then Return SetError(5, 0, $iReturn)
If $sDelimiter = Default Then $sDelimiter = "|"
; Open output file for overwrite by default, or use input file handle if passed.
Local $hFileOpen = $sFilePath
If IsString($sFilePath) Then
$hFileOpen = FileOpen($sFilePath, $FO_OVERWRITE+$FO_ANSI )
If $hFileOpen = -1 Then Return SetError(1, 0, $iReturn)
EndIf
; Write array data to file.
Local $iError = 0
$iReturn = 1 ; Set the return value to true.
Switch $iDims
Case 1
For $i = $iBase To $iUBound
If Not FileWrite($hFileOpen, $aArray[$i] & @CRLF) Then
$iError = 3
$iReturn = 0
ExitLoop
EndIf
Next
Case 2
Local $sTemp = ""
For $i = $iBase To $iUBound
$sTemp = $aArray[$i][0]
For $j = 1 To UBound($aArray, $UBOUND_COLUMNS) - 1
$sTemp &= $sDelimiter & $aArray[$i][$j]
Next
If Not FileWrite($hFileOpen, $sTemp & @CRLF) Then
$iError = 3
$iReturn = 0
ExitLoop
EndIf
Next
EndSwitch
; Close file only if specified by a string path.
If IsString($sFilePath) Then FileClose($hFileOpen)
; Return the results.
Return SetError($iError, 0, $iReturn)
EndFunc ;==>_FileWriteFromArrayEin mögliches Problem ist, dass die Funktion _FileWriteFromArray als Zeilenabschluss @CRLF anhängt.
Falls nur ein @LF zulässig sein sollte, muss das neue Array manuell gespeichert werden.
Dazu einfach in der Funktion _FileWriteFromArray() (erreichbar in Scite über CTRL-J ) das @CRLF nur durch ein @LF austauschen. Falls das nötig sein sollte....ansonsten die Funktion anpassen bzw. auf eigene Bedürfnisse umschreiben.
Aber auf Grund meines alters, wird dass in diesem Leben nichts mehr.
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! 
Hmmm, ich scheine das Problem nicht verstanden zu haben...du HAST doch bereits die Daten im Array?!
#include <Inet.au3>
#include <MsgBoxConstants.au3>
#include <String.au3>
#include <StringConstants.au3>
#include <Array.au3>
#include <Constants.au3>
$Url = "https://www.google.de/maps/search/mainz+bahnhof/@49.9996883,8.2279501,15z/data=!3m1!4b1"
Run ("C:\Users\xx2\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Mozilla Firefox\firefox.exe" & $Url, "")
Local $oJson = _INetGetSource($Url)
;MsgBox(0,"",$oJson)
Local $aArray = StringRegExp(($oJson ), "\d{1,}.\d{1,}\w", 3)
;_ArrayDisplay($aArray)
; ich benötige die Zahlen im Array
; Row 23
; Row 24
$lat=$aArray[23]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $lat = ' & $lat & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$ion=$aArray[24]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ion = ' & $ion & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Consolestruct;char Name[4];char id[36];endstruct
Beinhaltet im Bereich Name 4 Elemente und id 36 Elemente, richtig?
Richtig, wobei noch zu beachten ist, dass die DllStruct 1-basiert und ein Array 0-basiert ist!
Ok! Das ist noch besser, als die Int- oder Number-Version. Danke!
Aber auch nicht weniger inkonsistent! Bei der Suche nach "double brackets" habe ich weder im bugtracker noch in den einschlägigen Foren etwas dazu gefunden.
Die Dot-Notation bei DllStruct und insbesondere die Ansprache von Array-Indizes über die Klammer ist jedoch überhaupt nicht definiert
Schade eigentlich, dass sich da niemand für interessiert bzw. eine Definition forciert. Genau wie bei ObjCreateInterface, damit hatte ich mich über ein Jahr beschäftigt, und einige Dinge sind mir immer noch unklar. Nicht bezüglich der M$-Dokumentation der Funktionen, die ist astrein, aber bzgl. einiger "Ungereimtheiten" in der Implementierung.
Ich habe immer mehr das Gefühl, dass, und das ist nicht nur bei den Programmiersprachen bzw. -techniken so, bei 90% der Entwicklung stehen geblieben wird, weil die letzten 10% Arbeit um es RICHTIG zu machen zu viel Aufwand erfordern...oder zu viel Skill bzw. knowhow...
Und leider sind die "Spezialisten" dafür SEHR dünn gesät. Oder auf die wird nicht gehört...
Hey AUTOIT321,
was genau willst du mit den Daten denn machen? Nur anzeigen? Wieviel Text wird angezeigt? Das einfachste zum "nur gucken" ist die Messagebox, die ich genau dazu auch zum debuggen verwende (in Scite den Cursor auf die Variable stellen und dann die Tasten CTRL-SHIFT-D drücken)
; komplette Datei in Variable lesen
$sDateiInhalt = FileRead("test.txt")
; alle ";" durch "; " ersetzen:
$sDateiInhalt = StringReplace($sDateiInhalt, ";", "; ")
; alte Datei löschen:
FileDelete("test.txt")
; Datei mit neuem Inhalt schreiben
FileWrite("test.txt", $sDateiInhalt)
;Dateiinhalt anzeigen
msgbox(0,"Dateiinhalt:",$sDateiInhalt)Hi,
Öffne die Datei im ASCII-Format, ohne das "automatische" UTF8/16/32 mit/ohne BOM uswusf....was offensichtlich und immer wieder in die Hose geht...
$h=FileOpen($lied,512) , dann klappts!
Hi,
für derartiges gibt es in AutoIt die Excel-UDF, alternativ dazu, wenn du kein drittes Programm wie AutoIt brauchst, kannst du das auch direkt in Excel per VBA lösen.
Zeig doch mal dein bisheriges Script.
Auch wenn ich AspirinJunkie zu 100% zustimmen muss, im Screenshot stimmt die Farbe also...
Wenn es dann also unbedingt ein Farbensuchspiel sein soll, dann Screenshot machen und im so enthaltenen Bild die Farbe suchen. Dann ist die Position natürlich global, aber die Position des Fensters ist ja bekannt. Alternativ einen Screenshot vom Fenster machen und darin suchen.
Laber Rhabarber!!
Screenshot (Bildschirmgröße!!!) machen und hier einstellen. alles andere ist rumgestochere im Nebel!
...soviel dazu!
Miniscript:
$gui=guicreate("")
$label=GUICtrlCreateLabel("",5,5,300,300)
$text=fileread(@ScriptName)
GUICtrlSetData($label,$text)
guisetstate()
sleep(5000)Ich spiele das immer solo
Naja, selbst einen Server aufzusetzen und zum Coop jemanden einzuladen sollte ja nicht das Problem sein. Macht sicher Spass, habe da auf YT schon gesehen wie auf "schwierigen" Maps das auch für mehrere Spieler zu einer Herausforderung werden kann. Man sieht sich dann ingame
Und die "einfache" AutoIt-Basic-Syntax in etwas RISC-Assembler ähnliches umzusetzen macht sicher auch Spass...wobei ich auch im "richtigen" X86-Assembler nur drei Handvoll Befehle verwende, meistens jedenfalls^^
OH EMM GEH !!!!!
Hab Mindustry runtergeladen (gestern Abend) und bin seitdem am suchten....DAS ist genau mein Ding!
Hab auch schon Tutorials angeschaut bzgl. "Programmierung" auf YT, aber ich stecke aktuell bei ganz anderen Sachen fest...hehe...erst mal auf einer Map die gegnerische Base besiegen....
Spielst du in einem Team? Ansonsten schau ich mal auf Discord rein...
Hey Mars!
Habe gerade in der shoutbox hiervon gelesen...immerhin fast 2 Jahre nach Threaderstellung 
Coole Sache das!!
Ich als TD-Fan zocke meist nur in (alten) Warcraft III-Karten, da werde ich ca. 200 haben^^, leider läuft auf den Servern im Battle.net nichts mehr, daher nur solo oder mal mit Freunden/Kindern im WLAN.
Was ich bisher von Mindustry und vor allem dem Mehrspielermodus gelesen habe hört sich jedenfalls vielversprechend an....
Ggf. hau ich dich demnächst mal an, auf Steam gibts das Spiel ja für kleines Geld!
Und btw.
Also habe ich vor einigen Tagen angefangen einen Compiler zu schreiben
allererste Sahne!!! 
Wie ist der aktuelle Stand?
Hi,
hipfzwirgel , wie Oscar bereits beschrieben hat, ist ExtMsgBox per Konstruktion "Modal", was in diesem Zusammenhang bedeutet, dass es eine Abhängigkeit zu einer Interaktion mit dem User gibt. Klartext: Das Fenster bleibt so lange auf dem Schirm und das Programm so lange angehalten, bis der User mit dem Fenster interagiert!
Wenn du ein "Nicht-modales Fenster mit der Darstellung der ExtMsgBox brauchst, wieso änderst du dann nicht einfach Melbas code zu einer Funktion ExtMsgBox_nonmodal? Die gibt dann nicht den Statuscode der Funktion zurück den du sowieso nicht brauchst sondern den Handle der GUI, also $hMsgGUI.
;Teil der ExtMsgBox-Funktion von Melba
While 1
$aMsg = GUIGetMsg(1)
If $aMsg[1] = $hMsgGUI Then
Select
Case $aMsg[0] = -3 ; $GUI_EVENT_CLOSE
$iRet_Value = 0
ExitLoop
Case Else
; Check for other buttons
For $i = 1 To UBound($aButtonCID) - 1
If $aMsg[0] = $aButtonCID[$i] Then
$iRet_Value = $i
; No point in looking further
ExitLoop 2
EndIf
Next
EndSelect
EndIf
; Timeout if required
If TimerDiff($iTimeout_Begin) / 1000 >= $iTimeOut And $iTimeOut > 0 Then
$iRet_Value = 9
ExitLoop
EndIf
; Show countdown if required
If $fCountdown = True Then
Local $iTimeRun = Int(TimerDiff($iTimeout_Begin) / 1000)
If $iTimeRun <> $iCounter Then
$iCounter = $iTimeRun
GUICtrlSetData($cCountdown_Label, StringFormat("%2s", $iTimeOut - $iCounter))
EndIf
EndIf
WEnd
; Reset original mode
Opt('GUIOnEventMode', $iOrgMode)
If GUICtrlRead($cCheckbox) = 1 Then
; Negate the return value
$iRet_Value *= -1
EndIf
GUIDelete($hMsgGUI)
Return $iRet_ValueDu musst doch nur die Abfrageschleife für die Buttons und den Timeout löschen und die "ExtMsgBox"-GUI nach dem Aufruf deiner Funktion(en) HWS/HaWe löschen...wie bei einer "selbstgestrickten" GUI auch?! Da geht zwar 90% der Funktionalität der ExtMsgBox() flöten, aber die brauchst du doch für deinen Anwendungsfall nicht!
Wobei ich persönlich mir diesen Krampf nicht antun würde...Eine GUI nach GENAU DEINEN VORGABEN zu erstellen und zu managen sollte auch nicht das Problem sein.
Peter S. Taler, ich kann durchaus verstehen, dass du nach dem Post von Andy etwas angefasst warst. Ich hatte nach dem Lesen deines ersten Posts schon den Gedanken "Das triggert den Andy".
Made my day! 
Ja, und ich ärgere mich auch darüber. Nicht, dass ich in meiner "liebreizenden Art" geantwortet hatte, dahingehend hatte ich mich übrigens in diesem Post sehr stark zurückgenommen (!), sondern dass ich überhaupt auf diesen User geantwortet hatte....das hatte ich mir in den letzten Jahren verkniffen...
Und schön, dass nicht nur ich "getriggert" wurde
Aber glaub mir, wenn dir Andy im Biergarten gegenüber säße, würde er sagen: "Das ging nicht gegen dich als Person, aber ich schieße mit breitem Streufeuer und du standest nun mal gerade im Weg."
"Trifft" (haha...Wortspiel gefunden^^) es ziemlich gut! Und es trifft den Punkt! Denn wenn es nicht gegen eine Person geht, dann doch gegen die Aussage bzw. den Hintergrund dieser?! Was ist die Intention? Ich sehe die Intention dieses und anderer Foren, und übrigens auch überhaupt die Kommunikation mit anderen Menschen, nicht GEGEN-, sondern MITEINANDER ein Problem zu lösen. Und dazu gehört zwangsläufig, sich mit dem Problem und den eventuellen Lösungen KONSTRUKTIV auseinanderzusetzen. Und auch die Meinungen und vor allem die Argumente der anderen und auch deren Ausgangsposition zu berücksichtigen. Dabei nehme ich für mich in Anspruch, Lösungsorientiert statt Problemorientiert zu arbeiten!
Es ist viel einfacher, sich in der Herde schreiend "Es ist alles sch***"- grölend durch die Landschaft (aka Internet) zu bewegen, statt eine KONSTRUKTIVE Lösungsmöglichkeit für das aktuell vorliegende Problem Aufgrund vorliegender Daten auszuarbeiten und zu präsentieren.
Das "alles sche***" ist, braucht mir niemand zu erklären, das weiss ich selbst! Ich will anhand vorliegender Lösungsmöglichkeiten eine Auswahl präsentiert bekommen, um daraus dann die möglichst optimale, FUNKTIONIERENDE, Lösung ausarbeiten zu können.
In diesem Prozess unter völliger Ignoranz der Vorgaben EINFACH eine Lösung zu präsentieren, die zufällig "bei mir funktioniert" ist einfach nur kontraproduktiv. Raubt Zeit, Geld, Ressourcen und hält andere ab, sich mit dem Thema zu befassen.
Zum Thema!
Der TE bordermax ist seit 12 Jahren hier im Forum aktiv, anhand seiner Beiträge ist klar, dass er sich im "professionellen" Umfeld befindet und auch weiß, was er da tut!
Wie ist dann ein Thread eines Users zu bewerten, der "den lästigen Stress" mit einer Software dadurch lösen will, in dem er vorschlägt, diese "einfach" und auch noch durch eine portable Version zu ersetzen?! Ohne zu wissen, was das für die Administration, Zusammenarbeit/Abhängigkeit mit anderer bestehender Software und Stabilität auch nur ansatzweise für katastrophale Auswirkungen haben könnte?
Das "lästige" Programm tauschen? Als ob bordermax darauf nicht als allererstes drauf gekommen wär! ICH, und auch viele andere, die sich im produktivem Umfeld bewegen, denke schon, dass diese Option durchgedacht und aus o.g. Gründen verworfen wurde!
Was sagt also so ein Vorschlag aus? Passt der Post überhaupt zum Thema? Und aus welchem Grund wurde der Post erstellt?
bordermax/Markus, bitte kurze Rückmeldung im Fall einer funktionierenden Lösung. Ich habe einen (nicht sehr EDV-affinen) Kunden, der ähnliche Vorgaben und Voraussetzungen hat.
Und es wäre im Sinne des "Netzwerkens" schön, auch jemandem abseits der direkten Geschäftsbeziehung mit einem Dreizeiler und einer "Ein-Klick-Lösung" helfen zu können. 
Verzichte doch auf den Acrobat
Das ist absolut keine Option!
In den allermeisten Umgebungen sind Adobe-Programme nicht "zum Spaß" in Verwendung! Sondern weil entweder der Workflow der Bearbeiter im Netzwerk, Zusammenarbeit mit Drittprogrammen oder der Support diese Softwareprodukte erforderlich machen!
Wenn "Gretchen Müller" zuhause 5x in der Woche PDFs audrucken möchte, dann ist das etwas völlig anderes als in einer Firmenumgebung mit hunderten oder tausenden Mitarbeitern.
Da MUSS Software funktionieren und meistens tut sie das auch, andernfalls greift da der Support, mit dem ich auch schon oft SEHR gute Erfahrungen gemacht habe, allerdings manchmal auch gegen die Wand laufe....
Und dann muss man entsprechende Entscheidungen treffen mit ALLEN Konsequenzen.
Es gibt jede menge PDF Programme die portable funktionieren entweder freeware sind, oder nur kleines Geld kosten.
...die du auch schon für mehrere dutzend/hundert/tausend Mitarbeiter eingerichtet und administriert hast, und die im Problemfall auch innerhalb von Stunden oder sogar auf Zuruf eine Lösung anbieten?!
Ich mach das seit Jahren so... und das funktioniert ohne Probleme...
Bei dir....und wie kommst du darauf, dass das bei anderen, deren Rechnerumgebung du nicht kennst, das genau so ist?
