Beiträge von BugFix

**BugFix**

Das verwendete Pattern sucht nach alphanumerischen Zeichen (Buchstaben, Ziffern, Unterstrich). Wenn in dem Namen noch andere Zeichen enthalten sein können, so läßt sich das problemlos einfügen. Nur ein ' " ' wäre problematisch, da dieser sich sehr gut als Begrenzer macht

Edit: Verwende den Pattern: "((?<=user/)[^"]+)" ==> alles nach 'user/' aber kein "

Wie wird wieder Text draus?
Das RegEx-Ergebnis ist ein Array. ==> _FileWriteFromArray( )

@pee: Hast recht, Negation von " (^"). Bin heut nich voll da

**BugFix**

Oder so:

Spoiler anzeigen

[autoit]

#include <array.au3>
$dateiQuelltext = "blabla.txt"
$fh = FileOpen($dateiQuelltext,0)
$pattern = "((?<=user/)\w*)"
$string = FileRead($fh) ; liest gesamte Datei in eine Variable
FileClose($fh)
; Muster:
;$string = ':<a href="/user/ChristianVu" target="ChristianVu" onclick="return p' & "('ChristianVu')"& 'class="fre">ChristianVu</a><br>' & @CRLF & _
;':<a href="/user/MartinIx" target="ChristianVu" onclick="return p' & "('ChristianVu')"& 'class="fre">ChristianVu</a><br>' & @CRLF & _
;':<a href="/user/GustavKnuth" target="ChristianVu" onclick="return p' & "('ChristianVu')"& 'class="fre">ChristianVu</a><br>'

[/autoit] [autoit][/autoit] [autoit]

$arSelect = StringRegExp($string, $pattern,3)
_ArrayDisplay($arSelect, "Gefunden")

[/autoit]

**BugFix**

Hallo,
ich möchte keineswegs Tatendrang bremsen, aber ganz persönlich halte ich ein Tut zum Koda für nicht sehr notwendig.
Aus zweierlei Gründen:
1. Fast alle Möglichkeiten von Koda erschließen sich dem Nutzer von allein - Fenster Ctrl-Eigenschaften
2. Wenn man etwas nicht versteht ist der Lerneffekt größer, wenn man sich intensiv mit dem Problem auseinander setzt (Trial & Error)

Ich nehme Koda eigentlich nur um eine GUI grob zu entwerfen. Das Feintuning mache ich ausschließlich von Hand.

**BugFix**

Zitat

Original von hxhjx
hi,

ich hab ein script (will/kann ich nicht näher erläutern),

Hmm, dann verfremde es doch einfach in den "brisanten" Punkten
Ist so schwierig zu erahnen, was dein Problem ist.

**BugFix**

Hallo,
benötigt habe ich es hierfür.

Da ich es sehr sinnvoll finde, wurde gleich eine Funktion daraus.
Was tuts?
- übergebenes (2-Dimensionales) Array wird nach vorgegebener Hauptdimension sortiert
- innerhalb dieser Dimension erfolgt die Sortierung nach der anderen Dimension
- wahlweise auf- oder absteigend

Bsp. s.o. Link

Edit: Danke Mega für den Hinweis mit ByRef. Hiermit eingebunden. Aufruf somit gewohnt wie bei _ArraySort( ).
Übrigens, die Lösungsidee kam mir bei der Arbeit mit RegEx. Die Erkennung der zu sortierenden Elemente in der 2.Dimension ist wie bei RegEx ein positiver bzw. negativer Lookahead.

Edit:
- Parameter $REVERSE hinzugefügt
- zweite Dimension kann entgegengesetzt zur ersten sortiert werden

Edit:
Arbeitet jetzt mit beliebig vielen Vorkommen in der 2.ten Dimension.

Spoiler anzeigen

[autoit]

;------------------------------------------------------------------------------------------------------------
; Function _ArraySort_2ary(ByRef $ARRAY [, $DIM_1ST=0 [, $DESCENDING=0 [$REVERSE=False]]])
;
; Description sort an 2D-Array 2-ary
; BaseIndex is 0
; sort the whole array
;
; Parameter $ARRAY: Array to sort
; optional $DIM_1ST: MainSortIndex; 1st Dim. [0] or last occurence in 2nd Dim.[all other values] (default 0)
; optional $DESCENDING: Sort ascending[0]/descending[1] (default 0)
; optional $REVERSE: Sort 2nd Dimension reverse to 1st Dimension (default False)
;
; Return Succes ByRef 2-ary sorted Array
; Failure 0 set @error
; @error = 1 given array is not array
; @error = 2 given array has only 1 dimension
;
; Requirements By using numeric entry, be sure that type is "number" for correct sort
; Works with any occurences in 2nd Dimension
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;------------------------------------------------------------------------------------------------------------
#include <Array.au3>
Func _ArraySort_2ary(ByRef $ARRAY, $DIM_1ST=0, $DESCENDING=0, $REVERSE=False)
If ( Not IsArray($ARRAY) ) Then
SetError(1)
Return 0
EndIf
Local $FIRST = 0, $LAST, $tmpFIRST, $sortYES = 0
Local $UBound2nd = UBound($ARRAY,2)
If @error = 2 Then
SetError(2)
Return 0
EndIf
If $DIM_1ST <> 0 Then $DIM_1ST = $UBound2nd-1
Local $arTmp[1][$UBound2nd]
_ArraySort($ARRAY,$DESCENDING,0,0,$UBound2nd,$DIM_1ST)
If $REVERSE Then
Switch $DESCENDING
Case 0
$DESCENDING = 1
Case 1
$DESCENDING = 0
EndSwitch
EndIf
For $u = 0 To $UBound2nd-1
For $i = 0 To UBound($ARRAY)-1
If $sortYES = 0 Then
If $u > 0 Then
If ( $i < UBound($ARRAY)-1 ) And ( $ARRAY[$i][$u] = $ARRAY[$i+1][$u] ) And _
( $ARRAY[$i][$u-1] = $ARRAY[$i+1][$u-1] )Then
$sortYES = 1
$FIRST = $i
EndIf
Else
If ( $i < UBound($ARRAY)-1 ) And ( $ARRAY[$i][$u] = $ARRAY[$i+1][$u] ) Then
$sortYES = 1
$FIRST = $i
EndIf
EndIf
ElseIf $sortYES = 1 Then
If ( $i = UBound($ARRAY)-1 ) Or ( $ARRAY[$i][$u] <> $ARRAY[$i+1][$u] ) Then
$sortYES = 0
$LAST = $i +1
ReDim $arTmp[$LAST-$FIRST][$UBound2nd]
$tmpFIRST = $FIRST
For $k = 0 To UBound($arTmp)-1
For $l = 0 To $UBound2nd-1
$arTmp[$k][$l] = $ARRAY[$tmpFIRST][$l]
Next
$tmpFIRST += 1
Next
$tmpFIRST = $FIRST
Switch $DIM_1ST
Case 0
If $u = $UBound2nd-1 Then
_ArraySort($arTmp,$DESCENDING,0,0,$UBound2nd,$UBound2nd-1)
Else
_ArraySort($arTmp,$DESCENDING,0,0,$UBound2nd,$u+1)
EndIf
For $k = 0 To UBound($arTmp)-1
For $l = 1 To $UBound2nd-1
$ARRAY[$tmpFIRST][$l] = $arTmp[$k][$l]
Next
$tmpFIRST += 1
Next
Case $UBound2nd-1
If $u = $UBound2nd-1 Then
_ArraySort($arTmp,$DESCENDING,0,0,$UBound2nd,0)
Else
_ArraySort($arTmp,$DESCENDING,0,0,$UBound2nd,$UBound2nd-1-$u-1)
EndIf
For $k = 0 To UBound($arTmp)-1
For $l = 0 To $UBound2nd-2
$ARRAY[$tmpFIRST][$l] = $arTmp[$k][$l]
Next
$tmpFIRST += 1
Next
EndSwitch
EndIf
EndIf
Next
$sortYES = 0
Next
EndFunc ;==>_ArraySort_2ary

[/autoit]

**BugFix**

Hallo,

für eine Funktion benötigte ich die Position von Anzeigen, die aber je nach Bildschirmauflösung stark variieren.
Um nicht jedes Mal den gesamten Screen zu scannen, habe ich eine Funktion erstellt, die mir einmalig für die aktuelle Auflösung alle Positionen der gewünschten Farbe ermittelt und 2-stufig sortiert ( nach X und bei gleichen X nach Y ) und in eine Datei ausgibt.

Edit: Tipp - Rastergröße ($step) nicht kleiner als 4 wählen. Sonst kann man Kaffee trinken gehen.
Beendigung des Scans wird mittels Beep bekanntgegeben.

Spoiler anzeigen

[autoit]

Dim $DateiOut = @ScriptDir & "\Farbbereiche.txt"
Dim $Farbe = 0x00314A
Dim $Schrittweite = 12

[/autoit] [autoit][/autoit] [autoit]

_pix_scan($Farbe, $Schrittweite, $DateiOut)

[/autoit] [autoit][/autoit] [autoit]

;------------------------------------------------------------------------------------------------------------
; Funktion _pix_scan($color, $step, $file)
;
; Beschreibung scannt Display nach gesuchter Farbe, Ausgabe in Datei
; Pixelbereiche 2-stufig sortiert
;
; Parameter $color: zu suchende Farbe
; $step: Rastergröße
; $file: Ausgabedatei
;
; Return Datei mit den gefundenen Pixelpositionen
;
; Erfordernisse Funktion: _ArraySort_2ary( )
; Nach dem Funktionsaufruf wird der Scan erst mit {F9} gestartet
; um z.B. vorab ein Spiel starten zu können
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;------------------------------------------------------------------------------------------------------------
#include <File.au3>
#Include <Misc.au3>
Func _pix_scan($color, $step, $file)
Local $endX = @DesktopWidth, $endY = @DesktopHeight
Local $left = 0, $top = 0, $right = $step, $bottom = $step
Local $arPos, $arSort[1][1]
Do
Sleep(100)
Until _IsPressed("78") ; F9
$fh = FileOpen($file,1)
Do
For $left = 0 To $endX Step $step
$pos = PixelSearch($left, $top, $right, $bottom, $color, 0, $step)
If IsArray($pos) Then FileWriteLine($file, $pos[0] & "|" & $pos[1])
$right += $step
Next
$left = 0
$right = $step
$top += $step
$bottom += $step
Until $bottom > $endY
FileClose($fh)
Beep(500, 2000)
_FileReadToArray($file, $arPos)
FileDelete($file)
ReDim $arSort[UBound($arPos)][2]
For $i = 0 To UBound($arPos)-1
$var = StringSplit($arPos[$i], "|")
If ( IsArray($var) And UBound($var) = 3 ) Then
$arSort[$i][0] = Number($var[1])
$arSort[$i][1] = Number($var[2])
EndIf
Next
$arSort = _ArraySort_2ary($arSort)
$fh = FileOpen($file,1)
For $i = 0 To UBound($arSort)-1
If $arSort[$i][0] <> "" And $arSort[$i][1] <> "" Then _
FileWriteLine($fh, "X: " & $arSort[$i][0] & " , Y: " & $arSort[$i][1])
Next
FileClose($fh)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;------------------------------------------------------------------------------------------------------------
; Funktion _ArraySort_2ary($ARRAY [, $DIM=0 [, $ASCENDING=0]])
;
; Beschreibung sortiert ein 2D-Array 2-stufig
;
; Parameter $ARRAY: zu sortierendes Array
; optional $DIM: HauptSortierIndex (default 0; 1.Dimension)
; optional $ASCENDING Sortierung auf[1]/ab[0] -steigend (default 0; aufsteigend)
;
; Return das 2-stufig sortierte Array
;
; Erfordernisse Wenn dass Array Zahlenwerte enthält, muss sichergestellt sein,
; dass diese vom Typ "Number" sind
; BaseIndex 0 und Sortierung des gesamten Arrays
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;------------------------------------------------------------------------------------------------------------
#include <Array.au3>
Func _ArraySort_2ary($ARRAY, $DIM=0, $ASCENDING=0)
Local $FIRST = 0, $LAST, $tmpFIRST, $sortYES = 0, $arTmp[1][1]
; Sortierung Hauptdimension
_ArraySort($ARRAY,$ASCENDING,0,0,2,$DIM)
For $i = 0 To UBound($ARRAY)-1
If $sortYES = 0 Then
; wenn Folgewert 1./2.Dimension gleich
If ( $i < UBound($ARRAY)-1 ) And ( $ARRAY[$i][$DIM] = $ARRAY[$i+1][$DIM] ) Then
$sortYES = 1
$FIRST = $i
EndIf
ElseIf $sortYES = 1 Then
; wenn Folgewert 1./2.Dimension ungleich oder Arrayende
If ( $i = UBound($ARRAY)-1 ) Or ( $ARRAY[$i][$DIM] <> $ARRAY[$i+1][$DIM] ) Then
$sortYES = 0
$LAST = $i +1
ReDim $arTmp[$LAST-$FIRST][2]
; alle Einträge mit gleicher 1./2.Dimension in temp. Array auslagern
$tmpFIRST = $FIRST
For $k = 0 To UBound($arTmp)-1
$arTmp[$k][0] = $ARRAY[$tmpFIRST][0]
$arTmp[$k][1] = $ARRAY[$tmpFIRST][1]
$tmpFIRST += 1
Next
; temp. Array sortieren nach 1./2.Dimension
$tmpFIRST = $FIRST
Switch $DIM
Case 0
_ArraySort($arTmp,$ASCENDING,0,0,2,1) ; sortieren 2.Dimension
; zurückschreiben in Ausgangsarray (nur 2.Dimension)
For $k = 0 To UBound($arTmp)-1
$ARRAY[$tmpFIRST][1] = $arTmp[$k][1]
$tmpFIRST += 1
Next
Case 1
_ArraySort($arTmp,$ASCENDING,0,0,2,0) ; sortieren 1.Dimension
; zurückschreiben in Ausgangsarray (nur 1.Dimension)
For $k = 0 To UBound($arTmp)-1
$ARRAY[$tmpFIRST][0] = $arTmp[$k][0]
$tmpFIRST += 1
Next
EndSwitch
EndIf
EndIf
Next
Return($ARRAY)
EndFunc ;==>_ArraySort_2ary

[/autoit]

**BugFix**

Ergänzung zu Bernds Lösung:

Bei mehreren Produktversionen ist es möglich, dass evtl. bei einer die Userinfo nicht existiert.
In dem Bsp. frage ich die höchste Version ab, man kann natürlich bei jeder erkannten Version versuchen eine Userinfo abzufragen.

Spoiler anzeigen

[autoit]

#include <array.au3>
MsgBox(0, '', "höchste Version: " & _ReadReg("HKCU\Software\Microsoft\Office"))

[/autoit] [autoit][/autoit] [autoit]

Func _ReadReg($RegKey)
Dim $arSubkey[1]
$arSubkey[0] = 0
$i = 0
Do
$i += 1
$Wert1 = RegEnumKey($RegKey, $i)
$Fehler1 = @error
If $Fehler1 = 0 Then
If StringInStr($Wert1, ".") Then
_ArrayAdd($arSubkey, $Wert1)
$arSubkey[0] += 1
EndIf
If $arSubkey[0] > 1 Then
_ArraySort($arSubkey, 1)
Return $arSubkey[0] ; höchster Wert
EndIf
Return $Wert1 ; nur ein Eintrag vorhanden
EndIf
Until $Fehler1 <> 0
EndFunc ;==>_ReadReg

[/autoit]

**BugFix**

Das kommt manchmal beim Installieren durcheinander. Einfach nochmal Scite drüberbügeln und ggf. auch den Reshacker nochmal. War bei mir ähnlich. Klappte erst im zweiten Anlauf.

**BugFix**

Hiermit kannst du in beiden Tabs etwas aktualisieren (anstatt der MsgBox).

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <GuiTab.au3>
$titel = IniRead( "config.ini", "Titel", "Titel", "Fehler")
Dim $aktivItem1 = 0, $aktivItem2 = 0
GuiCreate( $titel, 1000, 800)
$tab = GuiCtrlCreateTab(0, 0, 1000, 800)

$tab1 = GuiCtrlCreateTabItem("Daten eingeben")
$in = GUICtrlCreateInput ("test", 240, 280, 150, 20)
$save = GUICtrlCreateButton("Speichern", 60, 390, 100)
GUICtrlCreateTabItem("")

$tab2 = GuiCtrlCreateTabItem("Daten auslesen")
$label = GuiCtrlCreateLabel($titel, 30, 200)
GUICtrlCreateTabItem("")

GuiSetState()
Do
$msg = GUIGetMsg()
$Status = _GUICtrlTabGetCurSel($tab)
Select
Case $msg= $save
IniWrite( "config.ini", "Titel", "Titel", GUICtrlRead($in))
Case $Status = 0 ; $tab1
If $aktivItem1 = 0 Then
MsgBox(0, '', "Tab-Item1 aktiv")
$titel = IniRead( "config.ini", "Titel", "Titel", "Fehler") ; muss innerhalb der If-Schleife sein
$aktivItem1 = 1
$aktivItem2 = 0
EndIf
Case $Status = 1
If $aktivItem2 = 0 Then
MsgBox(0, '', "Tab-Item2 aktiv")
$aktivItem2 = 1
$aktivItem1 = 0
EndIf
EndSelect
Until $msg = $GUI_EVENT_CLOSE

[/autoit]

Edit: Bernd war schneller, naja, lieber 2 Varianten als keine

**BugFix**

[autoit]

While 1
$msg = GUIGetMsg()
$statTab = _GUICtrlTabGetCurSel($Tab)
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $statTab = 0 ; Index des Items Nullbasiert
; hier was passieren soll (_reload )
; usw.

[/autoit]

Edit:
Du solltest aber im Case einen Schalter setzen, damit die Aktualisierung nur beim Aktivieren des TabItems durchgeführt wird und nicht ständig.
In etwa so:

[autoit]

Case $statTab = 0 ; Index des Items Nullbasiert
If $reloaded = 0 Then
; Reload durchführen
$reloaded = 1 ; Variable muss bei Programmstart auf "0" gesetzt sein
EndIf
Case ; bei allen anderen TabItems durchführen
$reloaded = 0

[/autoit]

**BugFix**

Nimm ein Icon ohne Transparenz - oder nimm das was du hast, und entferne die Transparenz (ich glaub mit iconsushi geht das o. ähnliche Programme).

**BugFix**

Zitat

dass der alte graue butten unter dem icon transparent wird

Also dein Code funktioniert so - von dem Button ist nix mehr zu sehen, nur noch das draufgepappte Icon

Aber da du von Transparenz sprichst, befürchte ich, dass du etwas anderes willst: die Buttonbeschriftung soll durchscheinen.
Das geht nicht. Textbutton oder Bildbutton (oder farbig mit Text, s. Tutorial) geht.

**BugFix**

Hab mal ne Übersetzung gemacht.
Anwendung: die Werte für die gewünschten Optionen zusammenrechnen und der Funktion übergeben.

Code

;~ 4 Keine Progress Dialog Box anzeigen. 
;~ 8 Der bearbeiteten Datei einen neuen Namen geben bei den Operationen: move, copy, oder rename, wenn eine Datei mit dem Zielnamen bereits existiert. 
;~ 16 Beantworte mit "Ja für Alle" für jede Dialog Box die angezeigt wird. 
;~ 64 Bewahre undo Informationen, wenn möglich.
;~ 128 Operation mit Dateien nur durchführen wenn ein Wildcard Datei Name (*.*) festgelegt ist. 
;~ 256 Zeige Progress Dialog Box aber keine Dateinamen. 
;~ 512 Bestehe nicht auf der Erstellung eines neuen Verzeichnisses wenn der Vorgang die Erstellung erfordert. 
;~ 1024 Keine Meldung anzeigen, wenn Fehler auftreten. 
;~ 2048 Version 4.71. Kopiere nicht die Sicherheitsattribute der Dateien.
;~ 4096 Arbeite nur im lokalen Verzeichnis. Arbeite nicht rekursiv in den Unterverzeichnissen.
;~ 9182 Version 5.0. Kopiere zusammenhängende Dateien nicht als Gruppe. Kopiere nur festgelegte Dateien.

Alles anzeigen

**BugFix**

Du kannst doch 3 Ereignisse von dem Listview abfangen:
- SingleClick
- DoubleClick
- RightClick

Jetzt machst du folgendes:
- DoubleClick UND Ctrl=Listview ==> SplashOn() UND $splash = 1
- SingleClick UND Ctrl=Listview UND $splash = 1 ==> SplashOff() UND $splash = 0

**BugFix**

Zitat

Original von sacriversum23
Wenn alles 30 Werte ausgelesen werden müssen und diese danach in einer neuen Konfigurations-Datei wieder so eingesetzt werden sollen, wir es mühsam, jeden Fall stets in eine Textdatei zu schreiben.

Mühsam ? - Überhaupt nicht.
Du erstellst eine INI. Eine Sektion für jeden Rechner. kannst du automatisch reinschreiben und auslesen.

Aber hast du mal bei Nortel angefragt, ob die Konfiguration nicht per Cmd-line durchführbar ist? An die Beschreibung der Software kommt man ja als Aussenstehender nicht ran - Login erforderlich.

**BugFix**

Deine Abbildung sieht wie Bios-Oberfläche aus. Allerdings sprichst du ja von einem Programm. - DOS Oberfläche ?
Gib mal ein paar genauere Erklärungen, vllt. Programmname. So ist das zu großes Rätselraten.

**BugFix**

Oder splitten und neu zusammenfügen mit Punkt.

[autoit]

Dim $user = StringSplit(@UserName, "")
Dim $out = ""

[/autoit][autoit][/autoit][autoit]

For $i = 1 To $user[0]
$out &= $user[$i] & "."
Next
MsgBox(0, '', $out)

[/autoit]

**BugFix**

Nein, das ist völlig normal, da es ja auch tatsächlich für den PC neue Hardware ist.
Plug&Play bedeutet ja nicht: ohne Treiber, sondern dass keine extra Treiber nötig sind. Systemeigene Komponenten reichen also aus.

**BugFix**

Ja, du musst schon deklarieren, aber nur so:

[autoit]

Dim $array

[/autoit]

**BugFix**

Suchen hilft

Hier im EN-Forum

Beiträge von BugFix

file nach begriffen auslesen

file nach begriffen auslesen

Anleitung für Koda (FormDesigner)

tabs/guis

Array 2-stufig sortieren

Scan Screen - Ergebnis sortiert

Usernamen aus Windows auslesen und in Reg schreiben ... mit Punkten zwischen Buchstaben

Dateiinfos ändern

GUI Tab Aktualisieren

GUI Tab Aktualisieren

Button mit eigenem Icon

Button mit eigenem Icon

Fragen zur Datensicherung

SplashOff() mit Mausklick auf den Splashtext ;)

Konfigurations-Werte auslesen

Konfigurations-Werte auslesen

Usernamen aus Windows auslesen und in Reg schreiben ... mit Punkten zwischen Buchstaben

Plug&Play?!

Hilfe bei _ie Script

Datei hochladen