er meinte vermutlich übersichtlicher vom code her
aber da der code hierbei nicht wirklich zur letztendlichen funktion beiträgt, ist das schnuppe wie der aussieht (würd ich behaupten!)
comboboxen haben halt den nachteil, dass du ewig rumklicken darfst, bis du die option gefunden hast - bei radiobuttons hast alles auf 1 blick und 1 klick 
ausserdem hat mich das gruppieren der radiobuttons sehr interessiert, wusste bis dahin noch gar nicht, dass die möglichkeit besteht
Hi,
danke für dein Feedback.
Das mit Select hab ich versucht, allerdings ist dann die Variable $flag entweder immer "0" oder es wird der neue Wert zum alten addiert.
Die ganzen "+= 0" hab ich mal rausgenommen, diente nur der Übersicht halber 
Gruß
x0r
Hi,
mir ist bewusst, dass es schon diverse dieser Tools gibt (auch hier im Forum), auch weiss ich, dass man einen Generator in SciTE mit "Alt+W" aufrufen kann 
Trotzdem möchte ich euch mein Werk nicht vorenthalten:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$msgbox = GUICreate("MsgBox-Generator", 366, 507, 373, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$btn0 = GUICtrlCreateRadio("OK", 16, 32, 33, 17)
$btn1 = GUICtrlCreateRadio("OK und Abbrechen", 16, 48, 113, 17)
$btn2 = GUICtrlCreateRadio("Abbrechen, Wiederholen, Ignorieren", 16, 64, 193, 17)
$btn3 = GUICtrlCreateRadio("Ja, Nein, Abbrechen", 16, 80, 121, 17)
$btn4 = GUICtrlCreateRadio("Ja und Nein", 16, 96, 81, 17)
$btn5 = GUICtrlCreateRadio("Wiederholen und Abbrechen", 16, 112, 161, 17)
$btn6 = GUICtrlCreateRadio("Abbrechen, Wiederholen, Weiter", 16, 128, 177, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$std0 = GUICtrlCreateRadio("Erster Button", 224, 32, 81, 17)
$std1 = GUICtrlCreateRadio("Zweiter Button", 224, 48, 89, 17)
$std2 = GUICtrlCreateRadio("Dritter Button", 224, 64, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ic0 = GUICtrlCreateRadio("Kein Icon", 16, 168, 65, 17)
$ic1 = GUICtrlCreateRadio("Stopp-Zeichen", 16, 184, 89, 17)
$ic2 = GUICtrlCreateRadio("Fragezeichen", 16, 200, 89, 17)
$ic3 = GUICtrlCreateRadio("Ausrufezeichen", 16, 216, 97, 17)
$ic4 = GUICtrlCreateRadio("Information", 16, 232, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$mod0 = GUICtrlCreateRadio("Anwendung", 224, 200, 81, 17)
$mod1 = GUICtrlCreateRadio("System-modal", 224, 216, 89, 17)
$mod2 = GUICtrlCreateRadio("Task-modal", 224, 232, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$son0 = GUICtrlCreateRadio("nichts weiteres", 224, 104, 113, 17)
$son1 = GUICtrlCreateRadio("immer im Vordergrund", 224, 120, 121, 17)
$son2 = GUICtrlCreateRadio("Text rechtsbündig", 224, 136, 105, 17)
$Label1 = GUICtrlCreateLabel("Buttons:", 16, 16, 43, 17)
$Label2 = GUICtrlCreateLabel("Icon:", 16, 152, 28, 17)
$Label3 = GUICtrlCreateLabel("Standard Button:", 224, 16, 84, 17)
$Label4 = GUICtrlCreateLabel("Sonstiges:", 224, 88, 53, 17)
$Label5 = GUICtrlCreateLabel("Modalität:", 224, 184, 50, 17)
$Label6 = GUICtrlCreateLabel("Ausgabe:", 16, 448, 49, 17)
$out = GUICtrlCreateInput("", 16, 472, 329, 21)
$go = GUICtrlCreateButton("MsgBox Generieren", 16, 384, 331, 41, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Titel:", 16, 256, 27, 17)
$ititel = GUICtrlCreateInput("Überschrift", 16, 280, 329, 21)
$Label8 = GUICtrlCreateLabel("Text:", 16, 304, 28, 17)
$itext = GUICtrlCreateInput("Ich bin eine Msgbox!", 16, 328, 329, 21)
$testing = GUICtrlCreateCheckbox("Testen?", 280, 440, 65, 17)
GUICtrlSetState($testing,$GUI_CHECKED)
$Label9 = GUICtrlCreateLabel("_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _", 16, 352, 340, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetState($btn0,$GUI_CHECKED)
GUICtrlSetState($std0,$GUI_CHECKED)
GUICtrlSetState($ic0,$GUI_CHECKED)
GUICtrlSetState($mod0,$GUI_CHECKED)
GUICtrlSetState($son0,$GUI_CHECKED)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $go
generate()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func generate()
Local $test
Local $flag = 0
Local $titel = GUICtrlRead($ititel)
Local $text = GUICtrlRead($itext)
if GUICtrlRead($btn0) = 1 Then $flag += 0
if GUICtrlRead($btn1) = 1 Then $flag += 1
if GUICtrlRead($btn2) = 1 Then $flag += 2
if GUICtrlRead($btn3) = 1 Then $flag += 3
if GUICtrlRead($btn4) = 1 Then $flag += 4
if GUICtrlRead($btn5) = 1 Then $flag += 5
if GUICtrlRead($btn6) = 1 Then $flag += 6
if GUICtrlRead($ic0) = 1 Then $flag += 0
if GUICtrlRead($ic1) = 1 Then $flag += 16
if GUICtrlRead($ic2) = 1 Then $flag += 32
if GUICtrlRead($ic3) = 1 Then $flag += 48
if GUICtrlRead($ic4) = 1 Then $flag += 64
if GUICtrlRead($mod0) = 1 Then $flag += 0
if GUICtrlRead($mod1) = 1 Then $flag += 4096
if GUICtrlRead($mod2) = 1 Then $flag += 8192
if GUICtrlRead($std0) = 1 Then $flag += 0
if GUICtrlRead($std1) = 1 Then $flag += 256
if GUICtrlRead($std2) = 1 Then $flag += 512
if GUICtrlRead($son0) = 1 Then $flag += 0
if GUICtrlRead($son1) = 1 Then $flag += 262144
if GUICtrlRead($son2) = 1 Then $flag += 524288
$test = 'MsgBox(' & $flag & ',"' & $titel & '","' & $text & '")'
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($out,$test)
[/autoit] [autoit][/autoit] [autoit]if GUICtrlRead($testing) = 1 then Execute($test)
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Hoffe das Teil gefällt euch
(Die Aus-/Eingabezeilen scheinen etwas zu kurz geraten, das tut der Funktion aber keinen Abbruch)
Gruß
x0r
OK!
Jetzt hab ichs getestet und hab rausgefunden (was ich natürlich zuvor schon gesehen habe), dass der Code von Krabat mit dennoch nicht die großen Ortsnamen groß lässt.
Egal..
Ich bedanke mich herzlich bei Krabat für seine Mühe!
MfG
x0r
Sorry, wenn ich dir evtl zu nahe trete, aber liest du überhaupt die Beiträge komplett?
Edit:
1. Ortsname (groß, klein, gemischt)
2. Wenn groß, groß lassen, Umlaute ersetzen (und zwar OE und nicht Oe)
3. Wenn klein, erster Buchstabe groß, Umlaute ersetzen
4. Wenn gemischt, siehe 3.
5. Wenn erster Buchstabe Umlaut, dann ersetzen (und zwar Oe und nicht OE (und natürlich hier auch wieder auf komplett groß oder klein achten!)
Hi Krabat,
danke für das Teil, kriegst ein "Sehr geil" von mir dafür!
ABER: wie gesagt, es gibt auch Städtenamen die so aussehen -> "Ort (Ortsteil-Blubb)" <- und da funktioniert das leider nicht mehr ganz
ebenso bei "Ort-Name" (kein Leerzeichen enthalten).
Vielleicht fällt mir jetzt beim Mittagsschläfchen eine Lösung ein, wäre nicht das erste Mal 
Gruß
x0r
Mit RegEx gehts doch bestimmt
Da kann man doch Prüfen, ob z.b. "ö" der Wortanfang ist oder nicht - hab ich gelesen! (und ausprobiert, Scriptversuche siehe oben ^^)
Im Prinzip funktionierts ja schon ganz ordentlich, hatte es mit:
[autoit]
StringRegExpReplace($repcell,chr(214),"Oe") ;Ö
;und
StringRegExpReplace($repcell,chr(246),"oe") ;ö
Nur hierbei wie gesagt das Problem von wegen: Name groß und mitten im Namen ein kleiner Umlaut...
btw: Es ist im eigentlichen Sinn keine Datenbank, sondern eine Art Report an den Kunden (bearbeiteten Originaldaten) - Nur soll da halt alles verbessert sein, frag mich nicht warum, finds selber total schwachsinnig.
Hi Protex,
die Möglichkeit habe ich bereits in Betracht gezogen, aber was tun bei "Ortsname (Ortsteil-Anhang)" oder "Bad-Xyz"?
Da ist das ganze nicht mehr so einfach mit StringLeft() & StringRight() und es gibt noch diverse andere Schreibweisen von diesen Namen.
Es soll ja auch nicht 100 Zeilen Code werden, nur was kleines/kompaktes - drum dachte ich eben, es ginge mit RegEx perfekt!
P.S.: Was weiss ich, welcher Depp die Namen so blöd geschrieben hat
Edit: Ich bin nur der Depp, ders ausbaden darf 
Gruß
x0r
Hi autoBert,
gut, das mag schon sein, das löst aber leider mein Problem der verschiedenen Fälle (siehe oben im Code) nicht.
Denn ich möchte ja nicht bei "KÖLN" -> "KOeLN" rauskriegen, sondern "Koeln".
Andersrum aber bei "Bad Öynhausen" -> "Bad Oeynhausen" und nicht "Bad OEynhausen".
Ich glaube, ich habe meinen Beitrag schon recht verständlich verfasst und mein Problem wird ersichtlich...
Gruß
x0r
Hi,
funktioniert nicht
da er sonst z.b. "Öln" in "oeln" ändert, der erste Buchstabe soll aber groß sein!
"StringReplace" ists wurscht, ob der Buchstabe groß oder klein ist
(Umlaute am Anfang z.b. bei "Bad Oeynhausen" / "Bad Öynhausen")
Ob mans tatsächlich so schreibt oder nicht, ist unwichtig, da ich bei diesem Ort in der Excelliste ein "Ö" stehen hab
Hi all,
ich probiere schon seit Stunden rum, komm aber auf keine gescheite Lösung.
Und zwar habe ich eine Excelliste mit diversen Adressen und Städtenamen, die Umlaute enthalten. Die möchte ich durch jeweils z.b. für "Ä" -> "Ae" ersetzen.
Das klappt auch soweit, aber es gibt dann noch das Problem, dass es Ausnahmen gibt z.b. "KöLN" -> "KoeLN" und das sieht echt besch... aus
Meine Idee war es, das ganze mit "StringRegExpReplace" zu lösen, allerdings will das nicht so wirklich (liegt wohl dran, dass ich davon noch absolut 0 Plan habe).
[autoit]
;~ Alle möglichen Fälle: KÖLN, KöLN, köln, kÖln, ÖLN, öLN, Öln, öln => KOELN, KOELN, koeln, koeln, OELN, OELN, oeln, oeln
$repcell = "KöLN"
[/autoit][autoit][/autoit][autoit]$repcell = StringRegExpReplace($repcell,"(?i)\bÖ","OE")
$repcell = StringRegExpReplace($repcell,"(?i)\BÖ","oe")
$repcell = StringRegExpReplace($repcell,"(?i)\bö","oe")
$repcell = StringRegExpReplace($repcell,"(?i)\Bö","Oe")
msgbox(0,"",$repcell)
[/autoit](ist schon recht zerpflückt, funktioniert also nicht mehr wirklich)
Ich bin mir sicher, dass es hier jemanden gibt, der das hin bekommt
Grüßle
x0r
du könntest dir die filme auch einfach kaufen, das wäre legaler und der untertitel ist direkt mit dabei, ohne fehler usw
Case $Button2
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
wtf?! 
Hi all,
da ich hier sowie in Google nichts gefunden hab, hab ich mir selbst was kleines gebastelt
Man kann mit _ExcelColMove() Spalten verschieben und mit _ExcelColNum() Spaltennummern auslesen.
Lässt sich auch wunderbar kombinieren, z.b.:
[autoit]_ExcelColMove($ofile,_ExcelColNum("AF"),_ExcelColNum("A"))
[/autoit]
------
Func _ExcelColMove($ofile, $from, $to)
$ary = _ExcelReadSheetToArray($ofile,1,$from,0,1)
_ExcelColumnDelete($ofile,$from)
_ExcelColumnInsert($ofile,$to)
for $i = 1 to ubound($ary)-1
_ExcelWriteCell($ofile,$ary[$i][1],$i,$to)
Next
$ary = ""
EndFunc
Func _ExcelColNum($num)
if isint($num) Then
return $num
Else
$cnt = StringLen($num)
$plus = 0
$num = StringUpper($num)
if $cnt = 2 Then $plus = (asc(stringleft($num,1))-64) * 26
$str = asc(StringRight($num,1)) -64
$num = $str + $plus
EndIf
return $num
EndFunc
P.S.: Mag sein, dass es das schon gibt, mag auch sein, dass man "sinnvollere Variablennamen" verwenden kann/soll/muss. Für meine Zwecke funktionierts tadellos und ich dachte, ich teils mal mit euch (Vielleicht hat der ein oder andere ein ähnliches Problem).
Grüße
x0r
ah cool, jetz weiss ich auch, wieso das ganze so lansgam ist!
danke für den befehl
Hi,
keine Ahnung wofür mans brauchen könnte, aber ich stells trotzdem mal rein :D:
[autoit]dim $s, $i, $len, $file, $left, $right
dim $von = InputBox("Start","Von:")
dim $bis = InputBox("Ende","Bis:")
perm($bis)
[/autoit][autoit][/autoit][autoit]func perm($s)
$file = FileOpen("test.txt",1)
For $i = $von to $s
if permtest($i) Then
FileWriteLine($file,$i & @CRLF)
EndIf
Next
FileClose($file)
ShellExecute("test.txt")
EndFunc
func permtest($line2)
[/autoit][autoit][/autoit][autoit]$str2 = $line2
$len = stringlen($str2)
while $str2
$left = stringmid($str2,1,1)
$right = stringmid($str2,2)
if StringInStr($right,$left) Then
;or StringInStr($right,0)
$str2 = True
ExitLoop
ElseIf $str2 = "" Then
$str2 = False
ExitLoop
Else
$str2 = $right
EndIf
WEnd
[/autoit][autoit][/autoit][autoit]if $str2 = True Then
return 0
else
return $line2
EndIf
EndFunc
[/autoit]Hi Leute,
da mein "Lob" in einem anderen Beitrag wohl in der Diskussion untergegangen scheint, poste ich es hier nochmal:
Ich bin hellauf begeistert von AutoIT, sollte für meine Firma ein Tool nachbauen, welches in "Macro Sheduler" geschrieben ist. Bin damit schon lange fertig und hab nichtmal die Hälfte an Codezeilen gebraucht (MIT Kommentaren!) :D. Abgesehen davon ists Freeware (ist das Macro-Ding nicht mehr! (Compiler kostet auch extra)), hat nen end geilen Editor (SciTE) und n super Forum in deutscher Sprache, mit schnell antwortenden, netten 'Profis' ;).
Grüße
x0r
Hi Großvater,
vereinfacht oder nicht, meins läuft ohne "DLL" und ich habs total einfach aufgebaut, dass es jeder Anfänger verstehen müsste. Ich für meinen Teil hab mit Arrays erst angefangen und würde das glaub ich nicht so ohne weiteres auf die Art nachbauen können.
Daher find ich meins sehr viel einfacher
Grüße
x0r
Danke für die vielen Antworten
Das sind halt alles noch Übungs-Scripts für mich, mach das noch nicht soooo lange, aber es is schon ein Erfolgserlebnis, wenn es genau das tut, was es soll
Diese beiden Teile hatte ich fast 1:1 nachgebaut aus mIRC, da ist die Scriptsprache nochmal ein Stück anders und man wird zum Umdenken gezwungen.
Mehr oder weniger perfekt für mich zum üben, würd ich sagen 8o.
Ach nochwas: Ich bin hellauf begeistert von AutoIT, sollte für meine Firma ein Tool nachbauen, welches in "Macro Sheduler" geschrieben ist. Bin damit schon lange fertig und hab nichtmal die Hälfte an Codezeilen gebraucht :D. Abgesehen davon ists Freeware (ist das Macro-Ding nicht mehr!), hat nen end geilen Editor (SciTE) und n super Forum in deutscher Sprache, mit schnell antwortenden, netten 'Profis' ;).
Grüße
x0r
