merci, klar aber mit if ist es sehr umständlich
weil die inis sehr groß sind.
Ich habe das mit den Nummern klar strukturiert!
1=Seite...
1=passende Funktion
1=Namen....
Per loop muß ich anhand der Nr. die passende Funktion starten, fertig (ohne if...)
@ Misterspeed
super das funktioniert!
...und wieder was gelernt...
Liebe Grüße
Ilse 
Hallo,
ich habe viele Funktionen geschrieben.
Diese muß ich in einer ini verwalten.
Nach Bedarf sollten diese dann gestartet werden.
Hier mal mein Script
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 636, 193, 192, 124)
$Hunde = GUICtrlCreateButton("Hunde", 48, 88, 75, 25)
$Rassen = GUICtrlCreateButton("Rassen", 128, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$iniwahl=IniRead("Tiere.ini","Tiere","1","0")
;MsgBox(0,"",$iniwahl)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Hunde
[/autoit] [autoit][/autoit] [autoit]$func=IniRead("Tiere.ini","Funktion","1","0")
MsgBox(0,"Funktion soll starten",$func)
Case $Rassen
$func=IniRead("Tiere.ini","Funktion","2","0")
MsgBox(0,"Funktion soll starten",$func)
EndSwitch
WEnd
Func Namen()
Msgbox(0,"Namen","Namen wird gestartet")
;.....
EndFunc
Func Rassen()
Msgbox(0,"Rassen","Rassen werden gestartet")
;.....
EndFunc
Meine ini sieht so aus:
[Funktion]
1=Namen()
2=Rassen()
[Tiere]
1=http://www.hunde.de
2=http://www.hunderassen.de
komme da einfach nicht weiter
Liebe Grüße
Ilse
...klappt jetzt
@Aspirin Junkie
Warum ignorierst du meine 1. Frage?!?
hatte ich wohl falsch verstanden, nicht böse sein!
Danke nochmal
Liebe Grüße
Ilse
Hallo Autobert,
bitte schau nochmal drüber,
es passiert nichts!
Meine Zwischenablage
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de" lang="de">
<head>
<meta name="verify-v1" content="GE+G96G18P1lELskVZXPiOCsBOaG5ocFtNxZ+qhFJd0=" />
<title>Hunde und Hunderassen, Hundezüchter und Welpen auf hunde.de</title>
Global $sText
$sTest = ClipGet()
MsgBox(0, "Normal", $sTest)
_StripAllSpecialChars($sText)
MsgBox(0, "Bearbeitet", $sTest)
ClipPut($sTest)
Func _StripAllSpecialChars($sText)
For $i = 0 To 31 ;9 to 13 sind die wichtigsten
If StringInStr($sText, Chr($i)) Then $sText = StringReplace($sText, Chr($i), "")
Next
Return $sText
EndFunc ;==>_StripAllSpecialChars
@Aspirin Junkie
habe das Hilfebeispiel probiert! Chr(13) und Chr(10)
@CRLF...komme nicht ans Ziel!
$sSource=ClipGet()
$sSource = StringStripCR($sSource, Chr(13),"")
MsgBox(0, "String ohne CR Zeichen:", $result)
Hier ein Beispiel des Quellcodes
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de" lang="de">
<head>
<meta name="verify-v1" content="GE+G96G18P1lELskVZXPiOCsBOaG5ocFtNxZ+qhFJd0=" />
<title>Hunde und Hunderassen, Hundezüchter und Welpen auf hunde.de</title>
Es sollte also alles in einer einzigen Zeile stehen!
Zum testen einfach mal diesen Quellcode in die Zwischenablage
und Code starten!
Grüße
Ilse
Hallo,
das geht leider auch nicht
[autoit]
$sSource=ClipGet()
;$sSource = StringStripCR($sSource, Chr(13),"")
$result = StringStripCR($sSource & Chr(13) & Chr(10))
MsgBox(0, "String ohne CR Zeichen:", $result)
Hallo,
ich habe einen Text in der Zwischenablage! (html)
Dieser Text enthält Zeilenumbrüche.
Diese möchte ich gerne entfernen, das klappt aber nicht!
[autoit]
$sSource=ClipGet()
$sSource = StringReplace($sSource, @CRLF, '')
MsgBox(0,"",$sSource)
[/autoit]Scite zeigt CRLF als Umbruch an.
Beispiel
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de" lang="de">
<head>
<meta name="verify-v1" content="GE+G96G18P1lELskVZXPiOCsBOaG5ocFtNxZ+qhFJd0=" />
<title>Hunde und Hunderassen, Hundezüchter und Welpen auf hunde.de</title>
Grüße
Ilse
Hallo,
ich habe eine generelle Frage zu RegEx.
Die Suchmuster arbeiten ja alle zeilenorientiert!
Wenn ich einen Quelltext durchsuche
dann wird der kpl. Quelltext abgearbeitet.
Meine Frage:
Wie kann ich z.B. per regex sagen
1. Suche von kpl. Quelltext nur von hier bis hier (mehrere Zeilen) also ein Block!
2. Dann wende ein RegExMuster an
$arrayfilter = StringRegExp($sSource, 'margin(.*?)', 3)
Beispiel:
durchsuche nur den Head Bereich v. Google
Quelltext ist in der Zwischenablage
#include <Array.au3>
$sSource=ClipGet()
$arrayfilter = StringRegExp($sSource, '<head>(.*?)</head>', 3)
_ArrayDisplay($arrayfilter, "Array Auswertung")
For $i = 0 To UBound($arrayfilter) - 1
$test = $arrayfilter[$i]
Next
;MsgBox(0,"",$test)
_ArrayDisplay($test, "Array Auswertung")
Wieso wird da nichts gezeigt?
Liebe Grüße
Ilse
Hallo Hauke96,
ganz so einfach ist es dann doch nicht...
Hier nochmal die Form
aber diesmal in der Höhe angepasst! (statt 200, 600)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 662, 600, 540, 136, BitOR($GUI_SS_DEFAULT_GUI,$WS_VSCROLL)); 600 zeigt das inputfeld normal 200
$Auswahl = GUICtrlCreateCombo("Auswahl", 472, 44, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Form1|Form2")
$Button1 = GUICtrlCreateButton("Button1", 472, 80, 75, 25)
$Input1 = GUICtrlCreateInput("Input1", 472, 244, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
...und dann sieht man das Input-Feld!
Ist die Form kleiner, dann müsste ich zu dem Input-Feld hinscrollen können!
Liebe Grüße
Ilse
Hallo,
und wieder ein Problem was mich Nerven kostet!
Kann mir jemand sagen warum die Gui oder Form
nicht scrollt?
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 662, 200, 540, 136, BitOR($GUI_SS_DEFAULT_GUI,$WS_VSCROLL))
$Auswahl = GUICtrlCreateCombo("Auswahl", 472, 44, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Form1|Form2")
$Button1 = GUICtrlCreateButton("Button1", 472, 80, 75, 25)
$Input1 = GUICtrlCreateInput("Input1", 472, 244, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
komme da einfach nicht weiter
Liebe Grüße
Ilse
Hallo Misterspeed,
ich hoffe du hast erbarmen mit mir.
Ist manchmal alles etwas heftig.
Ich hab das jetzt soweit am laufen.
aber dafür schon wieder ein anderes Problem
mit einem simplen Scrollbalken.
Damit kämpfe ich nun schon seit 1 Stunde rum,
Hab nen neuen Thread gemacht.
Nochmals
vielen vielen Dank
Liebe Grüße
Ilse
Guten Morgen Gem,
merci für deine Hilfe.
In deinem Script werden einzelne Controls gelöscht!
Ich brauche aber eine Lösung die die kpl. Gui löscht
da die Anzahl der Controls unterschiedlich ist!
Deswegen ist auch meine Gui in einer Funktion!
Ich muß alles (auch Guis) mit Funktionen und OnEventMode handeln
da es etwas komplex ist!
Mein Code mit Funktionen
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Form1,$Auswahl,$Start,$Links,$oben
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]_HauptGui() ; Gui wird gestartet
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Funktionen----->
[/autoit] [autoit][/autoit] [autoit]func _HauptGui()
$Form1 = GUICreate("Form1", 1024, 768, -1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_End")
$Auswahl = GUICtrlCreateCombo("Auswahl", 472, 44, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Daten")
GUICtrlSetOnEvent(-1, "_Daten")
GUISetState(@SW_SHOW)
$Start = GUICtrlCreateButton("Löschen", 400, 100, 131, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_Neu")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
endfunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Neu()
GUIDelete($Form1)
;MsgBox(0,"","Form gelöscht und neu erzeugt...")
_HauptGui()
Endfunc
[/autoit] [autoit][/autoit] [autoit]func _Daten()
;Opt("GUIOnEventMode", 1)
GUICtrlSetState($Start,$GUI_ENABLE)
Dim $Links = 50
Dim $oben = 50
For $i = 0 To 10
$checkCN = GUICtrlCreateCheckbox("CHECKBOX 1", $Links, $oben + $i*30, 120, 20)
next
endfunc
func _End()
Opt("GUIOnEventMode", 1)
exit
EndFunc
Hast du vielleicht noch ein Beispiel
das die kpl. Gui löscht?
Liebe Grüße
Ilse
PS:
Ich muß die kpl Gui löschen da die Anzahl der Elemente
und die Elemente unterschiedlich sind. Die werden mit der Combo per Funktion erzeugt!
Das Startformular sollte alles nur die Combo enthalten. Sobald eine AUswahl erfolgt
wird die Gui gelöscht und die neue Gui mit Elementen erzeugt!
Hallo,
ich verbringe nun schon etliche Zeit damit
dieses Problem zu lösen...
Also:
1. Gui wird leer gestartet
2. Combo erstellt Controls
3. Gui wird gelöscht
4. Ab dann funktioniert die Combo nicht mehr!
Mein Code
[autoit]
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $Form1,$Auswahl,$Start
[/autoit][autoit][/autoit][autoit]Opt("GUIOnEventMode", 1)
[/autoit][autoit][/autoit][autoit]_HauptGui() ; Gui wird gestartet
[/autoit][autoit][/autoit][autoit][/autoit][autoit]#Region Gui
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit];Funktionen----->
[/autoit][autoit][/autoit][autoit]func _HauptGui()
$Form1 = GUICreate("Form1", 662, 439, 277, 207)
$Auswahl = GUICtrlCreateCombo("Auswahl", 472, 44, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Daten")
GUICtrlSetOnEvent(-1, "_Daten")
GUISetState(@SW_SHOW)
$Start = GUICtrlCreateButton("Löschen", 400, 100, 131, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_Neu")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
endfunc
#endregion Gui
Func _Neu()
GUIDelete($Form1)
;MsgBox(0,"","Form gelöscht und neu erzeugt...")
_HauptGui()
Endfunc
[/autoit][autoit][/autoit][autoit]func _Daten()
GUICtrlSetState($Start,$GUI_ENABLE)
Dim $Links = 50
Dim $oben = 50
For $i = 0 To 10
$checkCN = GUICtrlCreateCheckbox("CHECKBOX 1", $Links, $oben + $i*30, 120, 20)
next
endfunc
Am besten wäre es, wenn man den Button nicht braucht!
Ich meine sobal die Combo etwas wählt die Form gelöscht wird und einfach die Elemente
angelegt werden.
Liebe Grüße
Ilse
Hallo Hauke96,
ganz genau.
Ich hatte alles mögliche probiert
alles ohne Schleife.
Das war's!
Dank dir für deine Zeilen
Liebe Grüße
Ilse
@ alle
dank euch mal wieder für die Tipps.
Liebe Grüße
Ilse
Hallo,
ich habe ein kleines Problem mit einer Gui!
ich möchte die Gui löschen (mit ComboBox)
und anschließend neu anlegen.
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 785, 231, 213, 103)
$Auswahl = GUICtrlCreateCombo("Auswahl", 420, 56, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Neu")
GUICtrlSetOnEvent(-1, "_Checkbox")
$Start = GUICtrlCreateButton("Start", 44, 56, 131, 25)
$Input1 = GUICtrlCreateInput("Input1", 44, 92, 133, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 244, 56, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 244, 84, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Auswahl
Case $Start
EndSwitch
WEnd
Func _Checkbox()
GUIDelete($Form1)
MsgBox(0,"","")
;Form nochmal neu erzugen
endfunc
[/autoit]Mit der Neuanlage der Form mit Objekten komme ich irgendwie nicht weiter.
Wie kann man das machen?
Liebe Grüße
Ilse
Hallo DevFly,
hm.., so war es leider nicht gemeint!
Du rufts einfach eine Funktion auf! Ist schon klar.
Das Problem ist aber, es gibt viele Guis die je in einer Function gehandelt werden.
Das ist wesentlich übersichtlicher. Man kann sie ein- und ausschalten,
besser editieren...
_Suchfenster()
_MainGui()
_Ende()
Aus diesen Functionen heraus muß ich nun auf
andere Functionen zugreifen. Und das klappt nicht!
z.B. _Suchfenster soll _Ende() aufrufen...oder Combobox soll...
Gibt es da einen Weg?
Liebe Grüße
Ilse
EDIT:
Glaube ich habe gerade einen Fehler entdeckt!
Opt("GUIOnEventMode", 1) muß mit in die Function!
Hallo,
kann man aus einer Function eine andere Function aufrufen?
Das klappt bei mir nicht!
Opt("GUIOnEventMode", 1)
Func _MainGui();Hauptgui
$idcbo = GUICtrlCreateCombo("", 10, 10, 180, 80, BitOR($CBS_SORT, $GUI_SS_DEFAULT_COMBO))
GUICtrlSetOnEvent(-1, "_select"); bei Auswahl sollte die Function starten!
endfunc
Func _select()
Msgbox(0,"Combo","Auswahl-OK")
endfunc
da passiert leider nichts!
Grüße
Ilse
...prima, konnte es mit _ArrayToString
lösen!
Grüße
Ilse
Hallo,
wie kann man z.B. das Ergebnis von
_ArrayDisplay in eine Zeile verändert bekommen?
Ich habe einen au3 Quellcode in der Zwischenablage.
Es werden die Variablen ermittelt z.B.
_ArrayDisplay zeigt als Ergebnis
1Hans
2Inge
3Klaus
4Peter
diese brauch ich aber in einer Zeile
so:
$Hans,$Inge,$Klaus,$Peter
#include <Array.au3>
$sSource=ClipGet()
$arrayfilter = StringRegExp($sSource, '\$(\w+)\s', 3)
_ArrayDisplay($arrayfilter, "Array Auswertung")
Quasi das kpl. Array mit $ ohne Zeilenumbruch
D.h. in RegEx muß man irgendwie den Zeilenumbruch ignorieren, oder?
Liebe Grüße
Ilse
