Beiträge von Ilse

Ilse

Hallo,

hab's verstanden.

Merci

Liebe Grüße
Ilse

Ilse

Hallo,

ich krieg das einfach nicht gelöst.
Ich habe eine Form mit mehreren Tabs.

Per Code werden nun Checkboxen erstellt.

Wie kann ich bestimmen, daß die Elemente in einem bestimmen TAB erstellt werden.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $language = ''
$spaltenNr = 0

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

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$Tab1 = GUICtrlCreateTab(32, 72, 505, 321)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")

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

$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
$language &= "en Englisch|" ; Sollte in TAB 2
$language &= "fr Französisch|" ; Sollte in TAB 2
$language &= "es Spanisch|" ; Sollte in TAB 2
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$language &= "en Englisch|" ; Sollte in TAB 2
$language &= "fr Französisch|" ; Sollte in TAB 2
$language &= "es Spanisch|" ; Sollte in TAB 2

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

$languageSplit = StringSplit($language, "|")

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

Dim $Checkbox[$languageSplit[0]]
Dim $CheckboxText[$languageSplit[0]]

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

For $i = 1 to $languageSplit[0]-1
If $i = 11 Or $i = 21 Or $i = 31 Or $i = 41 Or $i = 51 Or $i = 61 Then $spaltenNr += 1
$Checkbox[$i] = GUICtrlCreateCheckbox($languageSplit[$i], 0+100*$spaltenNr, 20*$i-$SpaltenNr*200, 97, 17)
$CheckboxText[$i] = $languageSplit[$i]
Next

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Grüße Ilse

Ilse

Alles SUPER!

Vielen vielen Dank!

Liebe Grüße
Ilse

PS. Habe gerade das EDIT gesehen

Toll...viel viel Arbeit gespart DANK Dir...

Ilse

Hallo Nathax

genau so, muß meinen Code noch umbauen.
Was mir noch Probleme macht:

Ich habe am Ende ca. 70 Checkboxen
Du legst diese ja per Code an.

Wie kann ich das ganze machen daß ich 7 Spalten habe
mit jeweils 10 Einträgen? Muß ich dann irgendwie 7 Schleifen machen?

Ilse

Ilse

Hallo,

ich habe folgendes Problem:
In meinem Code sind Variablen die sich aus Namen zusammensetzen
Sieht so aus:

[autoit]

$language &= "en Englisch|"
$language &= "fr Französisch|"
$language &= "es Spanisch|"

[/autoit]

Das Problem:
Ich möchte nun für jede dieser Variablen eine Checkbox machen.
Eine Checkbox sieht normalerweise so aus:

[autoit]

$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 112, 88, 97, 17)
;Das geht ja nicht:
;$language &= "en Englisch|" = GUICtrlCreateCheckbox("Checkbox1", 112, 88, 97, 17); hier soll eine checkbox rein

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

Das Ziel soll sein:
Wenn die Checkbox ja ist, dann wird angezeigt.

Hier mal mein kpl. Code

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

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

Global $language = ''

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

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
;$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 112, 88, 97, 17)
$language &= "en Englisch|" ; hier soll eine checkbox rein
$language &= "fr Französisch|" ; hier soll eine checkbox rein
$language &= "es Spanisch|" ; hier soll eine checkbox rein

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

$Button1 = GUICtrlCreateButton("Button1", 96, 160, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

Global $string = "Das ist ein Test"
Global $arrayLang = StringSplit($language, "|", 3)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button1 ; es sollen nur die Einträge mit Checkbox ja angezeigt werden
For $i = 0 To UBound($arrayLang) - 2
MsgBox(0,"",$arrayLang[$i])
next

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

EndSwitch
WEnd

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

Kann man das machen?
Oder muß ich z.B. 30...Checkboxen machen
und diese dann per Code abfragen?

Liebe Grüße
Ilse

Ilse

Hallo,

habe jetzt rausgefunden, daß Codeteile in ISO8859-2 sind.

Das heißt, ich müßte den Code von ISO8859-2 nach Ansi oder UDF-8 umwandeln.

Kennt sich jemand damit aus?

Grüße
Ilse

Ilse

Hallo,

also ich habe was von Progandy gefunden

[autoit]

Func _UTF8Decode(Const $sString)
; Author: Prog@ndy
If IsBinary($sString) Then Return BinaryToString($sString, 4)
Return BinaryToString(StringToBinary($sString, 1), 4)
EndFunc

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

Func _UTF8Encode(Const $sString, $fBinary=False)
; Author: Prog@ndy
If $fBinary Then Return StringToBinary($sString, 4)
Return BinaryToString(StringToBinary($sString, 4), 1)
EndFunc

[/autoit]

nur keine Ahnung, ob und wie man das einsetzen kann.

Ilse

Ilse

Hallo James,

manchmal stimmts, manchmal nicht.

Beispiel:

[autoit]

Global $string = ("Ich möchte gerne ein Glas Wein")

[/autoit]

Trage ich das bei Google direkt ein, dann stimmts!
I'd like a glass of wine

Sprachasugabe ist auch OK!

Im Script ist die Anzeige ok aber die Sprachausgabe nicht

I D like also nicht I'd sondern er macht 2 einzelne Buchstaben draus
obwohl I'd angezeigt wird.

Im Script verwende ich
InetGet("http://translate.google.de/translate_tts?ie=UTF-8&q="...

Hast du noch ne Idee?

Liebe Grüße
Ilse

Ilse

Hallo,

ich glaube ich habe diesmal ein ernsthaftes Problem.
Ich habe mir für Google Translate ein umfangreiches Script gebastelt.
Ist alles ziemlich verschachtelt ...
Ich probier mal das Problem zu schildern

Mein String

[autoit]

Global $string = ("Ich möchte gerne eine Hündin")

[/autoit]

das wird im Script an Google übermittelt und in eine andere Sprache übersetzt
aber der Text wird dann in meiner $Var bei der Übersetzung total anders angezeigt Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

SInd im String keine Umlaute dann läuft alles prima. Die Anzeige stimmt.
Sobald äüö...im String vorkommen, dann stimmt gar nichts mehr.

Kann ich irgendwie mein String umwandeln?
Verwende ich ue ... dann stimmt die Übersetzung nicht immer.

Grüße Ilse

Ilse

Hallo $Var,

wollte gerade dein Script probieren,
geht leider nicht! ERROR

Zitat

ERROR: _ArrayDisplay() called with expression on Const ByRef-param(s).

Ilse

OK, Vielen Dank!

Damit kann ich leben.

Liebe Grüße
Ilse

Ilse

Ja, ich weiß!

Das Problem:
Ich habe z.B. in der Zwischenablage einen großen Text.
Jeder SATZ wird mit . beendet!
Damit ich nun alle SÄTZE auslesen kann, müsste ich beim letzen einen Punkt löschen.

Gibt es da keine elegantere Lösung?

Ilse

Ilse

Hallo,

ich erhalte bei StringSplit
immer zusätzliche Angaben.
Ich habe 3 Sätze die mit . getrennt werden.
Wieso kommt eine leere Msgbox?

[autoit]

#include<Array.au3>

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

$Text = ("Das ist Text 1. Das ist Text2. Das ist Text 3.")

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

$arraytxt = StringSplit($Text, '.',2)

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

For $i = 0 To UBound($arraytxt)-1
Msgbox(0,"Texte",$arraytxt[$i],2)

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

next
Exit

[/autoit]

Ich weiß, wenn ich den letzen . weglasse geht es.
Aber bei größeren Texten hat der letzte Satz einen Punkt.
Und der ist dann falsch!

Grüße Ilse

Ilse

Hallo zusammen,

hab's gelöst.
Es war alles richtig, ich hatte im Script einen Fehler.

Liebe Grüße
Ilse

Ilse

Ich erhalte auch keinen Syntax Fehler...

Hier nochmal die Schleife
mit Kommentaren

[autoit]

For $i = 0 To UBound($arrayLang) - 1

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

$var = StringRight($arraylang[$i], 2)
;MsgBox(0, "Die 2 Zeichen von rechts lauten:", $var) zeigt korrekt an!

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

InetGet("http://test.test.de/abc_tts?ie=UTF-8&q=" & $meinText & "&tl="&$var&"&total=1&idx=0&textlen=3", @ScriptDir & "\test.jpg")
;im 2. Bereich liegt das Problem: das geht

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

;"&tl=en&total=1&idx=0&textlen=3"

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

; das geht nicht
;"&tl="&$var&"&total=1&idx=0&textlen=3"
next

[/autoit]

die $var ist deklariert, zeigt auch den Wert an...
Ändere ich die Syntax von Hand, also fr oder it dann stimmt es

wirklich seltsam...

Wie kann ich mir die InetZeile kpl. mal anzeigen lassen?
Also mit Var als Text zur Überprüfung

Grüße Ilse

Ilse

Hallo $var,

genauso dachte ich,

geht leider nicht!

Grüße Ilse

Ilse

Hallo Var,

nochmal alles in einer Zeile:

[autoit]

InetGet("http://test.test.de/abc_tts?ie=UTF-8&q=" & $meinText & "&tl=en&total=1&idx=0&textlen=3", @ScriptDir & "\test.jpg")

[/autoit]

bis hierhin klappt es ja...
es geht nun darum das en durch $Var zur ersetzen ......&tl=en&total......

[autoit]

InetGet("http://test.test.de/abc_tts?ie=UTF-8&q=" & $meinText
& "&tl="&$var&"&total=1&idx=0&textlen=3", @ScriptDir &
"\test.jpg")

[/autoit]

und das geht nicht.

Ersetze ich das en von Hand mit it, oder fr das klappt, nur $Var klappt nicht

Liebe Grüße Ilse

Ilse

Hallo zusammen,

ich brauch euch mal wieder.

Ich muß ein String zusammensetzen.
Normalerweise kein Problem, aber ich krieg das nicht zum laufen.
(sorry nur ein Code-Schnippsel...)

Kurze info:

[autoit]

$MeinText = "Das ist mein Text"
$var = StringRight($arraylang[$i], 2)
MsgBox(0, "Die 2 Zeichen von rechts lauten:", $var)

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

de, fr , en

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

und genau diese Zeichen de, fr, it muß ich in einem String zusammenbauen und austauschen
Beispiel en durch it, fr...

Zitat

UTF-8&q=" & $MeinText & "&tl=en&total=1&idx=0&textlen=3"

mein Versuch geht leider nicht.

Zitat

UTF-8&q=" & $MeinText & "&tl="&$var&"&total=1&idx=0&textlen=3"

$var zeigt mit korrekt it, oder de, oder fr an.

Liebe Grüße
Ilse

Ilse

Hallo,

...ich hab's!

DANKE...Allen!

Ich hatte mir ein Beispiel mit mehreren Guis angesehen.
Dort wurde alles mit Switch...mehrfach angesprochen und beendet.

Und das hat mit irgendwie total auf's Glatteis geführt.
Dafür mußte ich ein TAG kämpfen.

Liebe Grüße
Ilse

Ilse

Hallo Chip,

ich habe nun folgendes Ergebnis:

Ich kann nun meine Guis anklicken,
aber die Fenster lassen sich nicht schliessen.

Hier mal die While Schleife mit der Schleife der Funktion.
Also die Funktion hat nun keine Schleife mehr.

Nur die Hauptgui

[autoit]

While 1

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

$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle

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

Case $GUI_Main
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
GUIDelete($GUI_Main)
Exit
Case $idcbo

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

Case $cDummy1

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

Case $cDummy2

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

Case $cDummy3

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

Case $txtSuche

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

Case $Navi ; Gui
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUIDelete($Navi)
Case $NaviDummy1

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

Case $NaviDummy2

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

Case $lblNavi

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

endif

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

EndSwitch

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

Switch $msg[0] ; Funktion
Case $button

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

Case $GUI_EVENT_CLOSE
GUIDelete($msg[1])

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

Case $listview

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

EndSwitch

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

EndSwitch

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

WEnd

[/autoit]

Und so wird die Gui mit der Funktion gemacht!
Per Hotkey F6 wird diese Gui angelegt!

[autoit]

GUICreate("test", 800, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)

[/autoit]

Also mehrere Gui-Fenster. Und die kann ich in der Hauptgui nicht schliessen!

Liebe Grüße

Ilse

Beiträge von Ilse

Tab Problem

Tab Problem

Checkbox Spezielle Syntax

Checkbox Spezielle Syntax

Checkbox Spezielle Syntax

Encode Problem

Encode Problem

Encode Problem

Encode Problem

String Split

String Split

String Split

String Split

Syntax Problem

Syntax Problem

Syntax Problem

Syntax Problem

Syntax Problem

Gui schliessen

Gui schliessen