Beiträge von lumb

Hallo,

Ich zeige den Inhalt eines Arrays auf meienr GUI an:

For $i = 1 to UBound($InstalledSoftware)-1
GUICtrlCreateLabel(StringLeft($InstalledSoftware[$i],60),$x,$y,450,25)
$y = $y + 25
$0 = $i + 1
if $i = 17 Then
$x = $x + 450
$y = 80
EndIf
Next

Das klappt. Nun wird nach dem 17 Eintrag x und y für die Position geändert, so dass eine 2 Zeile entsteht.
Nun möchte ich das aber nach immer 17 Zeilen haben, also nach 17, 34, 51...
Klar, es geht mit mehreren If Abfragen, aber da begrenze ich mich ja theoretisch immer...

Gibt es denn eien Möglichkeit zu sagen dass die Änderung von x und y jedes 17. Mal gemacht werden soll

-Mir fehlen da etwas die Worte für die Beschreibung...-

Danke und Grüsse

PS: Ganz neben bei am Rand: Wenn ein Label 300 lang ist, wieviele Zeichen passen denn dann rein? Schriftgrösse 12..

Local $index = _Arraysearch( $SetLang,$nMsg)

Ich habe die Zahlenfolge weggelassen...klappt wunderbar.

Danke an alle

Leider Nein, es ist das selbe wie zuvor. (Die Variable wird ja etwas weiter unten mit einem Redim 2Dimensional erstellt)
Was ich herausgefunden habe icst, das $index -1 ist. dann steht da ja quasi

MsgBox(0, "Auswahl", $SetLang[-1][1])

Kann das damit was zu tun haben?
Danke aber auch Dir.
Im Anhang habe ich das ganza mal als Zip Datei.

Hallo,
ind er Zeile 43

MsgBox(0, "Auswahl", $SetLang[$index][1])

scheint noch ein Problem zu sein.

ersetzte ich die Meassagebox durch eine statische

msgbox(0,"","")

funktioniert es soweit. Es kommt dann halt immer die gleiche Box.

Der Fehler lautet :

MSGBox(0, "Auswahl", $SetLang[$index[1])

Error Array variable subscipt badly formatted.

(Kannst Du mir evtl auch kurz erklären was das $nMsg bedeutet?)

Kannst Du damit was anfangen.

Danke aber schonmal bis dahin!!!

Jetzt habe ich den Code mal soweit gekürzt dass der Fehler immer noch kommt:

#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>
$LanguageIniFile = @ScriptDir & "\Languages\Languages.ini"
;GUI
GUICreate("Sprachen", 1000, 500, 192, 124)
GUISetFont(10, 400, 0, "MS Sans Serif")
;Welche Sprachen/Ordner sind verfügbar
Dim $SetLang[10]
$y = 0
Dim $aAllLanguages
$AllLanguages = ""
$aAllLanguages = _FileListToArray(@ScriptDir & '\Languages',"*",2) ;Vorhandene Ordner werden ausgelesen
If @Error<>0 Then
;Wenn keine Sprachen/Ordner verfügbar sind passiert nichts
Else
For $x = 1 to $aAllLanguages[0]
$SetLang[$x] = GUICtrlCreatePic(@ScriptDir & "\Languages\Fahnen\" & $aAllLanguages[$x] & ".jpg",$y,0,21,15)
$y = $y + 31 ;Für die Position der Fahnen
Next
EndIf
$GUIExit = GUICtrlCreateButton("Exit", 890, 430, 100, 55, $WS_GROUP)
GUISetState(@SW_SHOW)
;GUI Events
While 1 ;von Kodak
$nMsg = GUIGetMsg() ;von Kodak
Switch $nMsg ;von Kodak
Case $GUI_EVENT_CLOSE ;von Kodak
Exit ;von Kodak
Case $GUIExit
_Exit()
For $i = 1 To $aAllLanguages[0] -1
Case $SetLang[$i]
msgbox(0,"Test","Test")
Next
EndSwitch
WEnd
Func _Exit()
Exit
EndFunc

Fehler:

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "J:\CAD\Installation\twest.au3" /autoit3dir "C:\Program Files (x86)\AutoIt3" /UserParams
+>17:49:07 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0407 Keyboard:00000407 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64)
>Running AU3Check (1.54.19.0) from:C:\Program Files (x86)\AutoIt3
J:\CAD\Installation\twest.au3(43,3) : ERROR: missing Next.
Case
~ ^
J:\CAD\Installation\twest.au3(42,14) : REF: missing Next.
For $i = 1 To
~ ~~~~~~~~~~~^
J:\CAD\Installation\twest.au3(45,3) : ERROR: missing EndSwitch.
Next
~ ^
J:\CAD\Installation\twest.au3(35,28) : REF: missing EndSwitch.
Switch $nMsg ;von Kodak
~~~~~~~~~~~~ ~~~~~~~~~~^
J:\CAD\Installation\twest.au3(45,3) : ERROR: missing Wend.
Next
~ ^
J:\CAD\Installation\twest.au3(33,2) : REF: missing Wend.
While
^
J:\CAD\Installation\twest.au3(45,3) : ERROR: syntax error
Next
~ ^
J:\CAD\Installation\twest.au3(40,9) : ERROR: _Exit(): undefined function.
_Exit()
~~~~~~^
J:\CAD\Installation\twest.au3 - 5 error(s), 0 warning(s)
!>17:49:07 AU3Check ended.rc:2
>Exit code: 0 Time: 1.648

Bei Auskommentierung Zeile 38 - 41 weren zumindest mal die Fahnen, allerdings ohne Event angezeigt.

Danke für die Hilfe

Für die die es Interessiert:
Mit dem ganzen Script wird ein Programm installiert. Zu dem Programm gibt es Sprachpakete. Nun soll eben für jedes Vorhandene Sprachpaket ein Fähnchen angezeigt werden und bei Klick auf dieses die entprechenden Texte aus einer Ini ausgelesen werden. Damit nun nicht für jede hinzukommende Sprache das Programm geändert werden muss habe ich mir das so ausgedacht:
Es werden alle Ordner im Sprachverzeichniss ausgelesen und ausgewertet ob es sich um ein richtiges Sprachpaket handelt. Wenn ja Wird ein gleichnamiges Fähnchen angezeigt.
Die Fähnchen habe ich schon zuvor in einem zusätzlichen Ordner drin...

Wenn ich es statisch mache klappt alles einwandfrei (Auch Danke dafür ;-))....es geht nur noch um die dynamische Anzahl an Fähnchen und dazugehörige Events..

So, Danke:
So werden die Bildchen erstellt

...
If @error = 0 AND FileExists(@ScriptDir & "\Languages\Fahnen\" & $aAllLanguages[$x] & ".jpg") <> 0 Then
$SetLang[$y] = GUICtrlCreatePic(@ScriptDir & "\Languages\Fahnen\" & $aAllLanguages[$x] & ".jpg",$y,0,21,15)
$y = $y + 31
$z=$z+1
EndIf
...
GUISetState(@SW_SHOW)
;GUI Events
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUIExit
_Exit()
Case $export
_Export()
Case $entfernen
_Enfernen ()
Case $import
_Import()
Case $InstStart
_InstStart()
Case $InDatei
_InDatei()
Case $InDateiL
_InDateiL()
For $i = 1 To 4
Case $SetLang[$i]
msgbox(0,"","")
Next

Danach folgen alle Funktionen.
Das sind dann die Fehler:

J:\CAD\Installation\AIS2011.au3(276,2) : ERROR: missing Next.
Case
^
J:\CAD\Installation\AIS2011.au3(275,13) : REF: missing Next.
For $i = 1 To
~~~~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(277,3) : ERROR: missing EndSwitch.
Next
^
J:\CAD\Installation\AIS2011.au3(250,14) : REF: missing EndSwitch.
Switch $nMsg
~~~~~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(277,3) : ERROR: missing Wend.
Next
^
J:\CAD\Installation\AIS2011.au3(248,2) : REF: missing Wend.
While
^
J:\CAD\Installation\AIS2011.au3(277,3) : ERROR: syntax error
Next
^
J:\CAD\Installation\AIS2011.au3(236,19) : ERROR: _InstalledYes(): undefined function.
If _InstalledYes()
~~~~~~~~~~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(255,9) : ERROR: _Exit(): undefined function.
_Exit()
~~~~~~^
J:\CAD\Installation\AIS2011.au3(258,11) : ERROR: _Export(): undefined function.
_Export()
~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(261,14) : ERROR: _Enfernen(): undefined function.
_Enfernen ()
~~~~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(264,11) : ERROR: _Import(): undefined function.
_Import()
~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(267,14) : ERROR: _InstStart(): undefined function.
_InstStart()
~~~~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(270,12) : ERROR: _InDatei(): undefined function.
_InDatei()
~~~~~~~~~^
J:\CAD\Installation\AIS2011.au3(273,13) : ERROR: _InDateiL(): undefined function.
_InDateiL()

Danke

Hi
Leider bekomme ich so haufenweise Fehlermeldungen, die sich teilweise auf ganz andere Passagen beziehen:

MissingEnd, Missing EndSwitch

-Bezog sich auf den ersten Beitrag-

den zweiten werde ich mir mal ausarbeiten...

Hallo,

ich möchte gerne Bildchen als Button gestalten. Dabei sollen soviele Bildchen wie Ordner in einem Verzeichnis sind angezeigt werden. Ich hbae zu jedem Ornernamen ein identisch heisendes Bilchen. ZB:

Ordner1
OrdnerTest

Dann habe ich in einem zusatz Ordner eine Ordner1.jpg und OrdnerTest.jpg.
Die Anzahl der Ordner und Bildchen ist unbestimmt. Ich habe es so geschafft dass die Bildchen angezeigt werden:

$SetPic[$x] = GUICtrlCreatePic(@ScriptDir & "\Pics\" & $aAllFolders[$x] & ".jpg",$y,0,21,15)

So, das klappt soweit. Es wird für jeden in einem bestimmten Ordner enthaltenen Unterordner ein Bildchen mit demselben Namen wie der Ordner angezeigt.
Was isch nicht schaffe ist es diesen Bildchen ein Befehl zuzuordnen, also ein Event wenn es angeklickt wird.
Ich habe bei anderen, statischen Buttons mit

Case Buttonname
Event...

gearbeitet. Nun habe ich hier aber ein Problem mit "Buttonname"
Hoffe das versteht jemand der mir helfen kann
Danke

Super, Danke. Hab es nun so gelöst dass nach einem Klick auf die Fahne das Programm beendet und mit der Option $SelectedLanguage wieder gestartet wird...

$setLangDeutsch = GUICtrlCreatePic(@ScriptDir & "\Languages\Fahnen\Deutsch.jpg",0,0,21,15)
$setLangEnglish = GUICtrlCreatePic(@ScriptDir & "\Languages\Fahnen\English.jpg",31,0,21,15)
.......
Case $setLangEnglish
WinClose($LTitle)
run(@ScriptDir & "\AIS2011.exe English")
Case $setLangDeutsch
WinClose($LTitle)
run(@ScriptDir & "\AIS2011.exe Deutsch")

Der Parameter wird dann beim Start ausgelesen und die Sprache aus der Ini ausgelsen. Wird kein Parameter erkannt wird Deutsch ausgewählt.
Danke für die Unterstützung.

Hallo,

ich hab eine GUI, die alle Texte aus einer INI holt..das klappt auch super soweit:

$SelectedLanguage = "DEUTSCH"
;Sprachen
$LTitle = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"Title","Titel")
$LIEold = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"IEOld","Internet Explorer zu alt. Mindestens Version 7")
$LNoAdmin = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"NoAdmin","Keine Administratorenrechte.")
$LError = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"Error","Fehler")

Stelle ich die Variable $SelectedLanguage um, starte das Programm neu so klappt auch das. Nun wollte ich aber oben ind er GUI Landesfähnchen einblenden und beim Klick auf dieses soll die GUI in der neuen Sprache angezeigt werden.

Kann mir da jemand helfen wie das geht?

Danke

Na Super!

Danke

Hallo,

habe ein Script das die Zeile

dirRemove("C:\AIS2011\")

enthält. Das klappt auch super. Allerdings ist der Ordner evtl 20GB gross und das Löschen dauert eine Weile. Damit der Benutzer nicht verunsichert wird hätte ich gerne eine anzeige "Daten werden gelöscht..." am liebsten animiert, dabei reicht eine Statusunabhängige Animation (Drehende Sanduhr etc.)
(Über eine Lösung/Idee mit einer statusabhängigen Anzeige (5%,10%,100%) frweue ich mich natürlich auch gerne.

Danke

Habe mal ein Scrrenshot vom Windows Info Programm...

Danke für Deine Hilfe

Hallo,

habe folgenden Code

$aSplit = StringSplit(GUICtrlRead($GUILizNetzVerteiltServerName),@CRLF,3)
;$aSplit[0] = UBound($aSplit)
For $i = 0 To UBound($aSplit) -1
msgbox(0,"",$aSplit[$i])
Next

Somit wird das Array $ASplit befüllt, klappt.

Nun habe ich aber im $aSplit schon einen wert, der nicht überschrieben werden soll und obiger Code soll das Array erst ab [1] befüllen. Kann ich das irgendwie angeben?

Danke

Ja, das geht auch. Wusste ich nicht! Danke.

Hallo,

diese blöden Installationsroutinen die keine Windows Standard GUI verwenden....

Habe ein Fenster mit 4 Durchsuchen... Knöpgen (m.E. keine Windows Standard GUI) der erste liefert folgende Infos und soll gedrückt werden.

Ein Bild zur veranschulichung hängt bei.

Kann mir da einer helfen?

Danke

Ja, abe rin dem oben beschriebenen Fall brauch ich sie doch? Oder?

Gibt das denn Probleme mit der Auflösung? Sagen wir mal ich habe die Koordinaten und einer arbeitet mit 800*600, ein anderer mit 2500*2000 (o.ä.)?

Sorry für den Post...
Habe meien Lösung ja direkt selber beschrieben.
Wer die Optionend es Befehls lesen kann ist im Vorteil.

Oder andere Ideen?