Fileinstall erwartet als Quellangabe AUSSCHLIESSLICH den Pfad als STRING! Variablen / Makros sind nicht zulässig.
Beiträge von BugFix
-
-
Also die Syntax ist richtig, die eckigen Klammern müssen sein und da das alles in einem String ist, ist das Semikolon natürlich Element des Strings und somit kein Bezeichner für einen Kommentar.
Das entsprechende Kapitel aus der Hilfe hier mal zitiert:Spoiler anzeigen
Code
Alles anzeigenControls One of the best new features with AutoIt v3 is the ability to work directly with certain types of Window Controls. Almost everything you see on a window is a control of some kind: buttons, listboxes, edit fields, static text are all controls. In fact Notepad is just one big "Edit" control! Because AutoIt works directly with a control they provide a more reliable way to automate than just sending keystrokes. Note: AutoIt only works with standard Microsoft controls - some applications write their own custom controls which may look like a standard MS control but may resist automation. Experiment! Using the AutoIt Window Info Tool you can move your mouse around the window you are interested in and you will be given information of the control that is currently under your mouse. A special description can be used as the controlID parameter used in most of the Control...() functions . This description can be used to identify a control by the following properties: ID - The internal control ID. The Control ID is the internal numeric identifier that windows gives to each control. It is generally the best method of identifying controls. In addition to the AutoIt Window Info Tool, other applications such as screenreaders for the blind and Microsoft tools/APIs may allow you to get this Control ID TEXT - The text on a control, for example "&Next" on a button CLASS - The internal control classname such as "Edit" or "Button" INSTANCE - The 1-based instance when all given properties match CLASSNN - The ClassnameNN value as used in previous versions of AutoIt, such as "Edit1" One or more properties are used in the controlID parameter of a control command in the format: [PROPERTY1:Value1; PROPERTY2:Value2] Note: If this special format is not used then the parameter is taken to be a control ID (if numeric) or the ClassnameNN/text of the control (if a string). Although the special format is more longwinded than these methods it is much less ambiguous. e.g. Send text to the 1st Edit control in the Notepad window ControlSend("Untitled - Notepad", "", "[CLASS:Edit; INSTANCE:1]", "This is some text") or ControlSend("Untitled - Notepad", "", "[CLASSNN:Edit1]", "This is some text") or ControlSend("Untitled - Notepad", "", "Edit1", "This is some text") e.g. Click on control ID 254 in "My Window" ControlClick("My Window", "", "[ID:254]") or ControlClick("My Window", "", 254) e.g. Click the 2nd instance of a "Button" control containing the text "Finish" ControlClick("My Window", "", "[CLASS:Button; TEXT:Finish; INSTANCE:2]") Control Handle (HWND) Using the ControlGetHandle function you can determine the Handle or HWND of a control. A handle is the unique identifier that Windows gives controls. The handle changes each time the control is created. This method of accessing controls is generally only designed for users who are familar with working with handles. Look under the contents for Function Reference \ Window Management \ Controls for a list of the functions that work with controls.
-
Nun sei mal nicht so geizig. Mit dem Codeschnipsel sehe ich nur, dass du ein Array in einen String wandeln möchtest.
Gib doch mal den zusammenhängenden Code. Dann wird auch die Arraydeklaration sichtbar und mögliche Fehlerquellen. -
Und wo kommt die Array-Variable ins Spiel?
-
Hier die korrekte Syntax für netdom
netdom.exe member \\COMPUTERNAME /joinworkgroup ARBEITSGRUPPE
COMPUTERNAME und ARBEITSGRUPPE anpassen.
Download von hier
-
Nun möchte ich auch mal meinen Senf dazugeben.
Solch Kontest ist sicher ganz interessant, indem Moment wo es aber um eine Wertung geht, sollte Vergleichbarkeit der Skripte gewährleistet werden.
D.h. wiederum, dass alle eine identische Aufgabe lösen müssen.
Das halte ich auch am sinnvollsten, wenn eine Limitierung der Skriptgröße vorliegt.Die Wertungsideen, Punkte für Stil und Kürze etc. zu vergeben sind nur bei nicht limitierten Aufgaben einsetzbar.
Ergo:
20 Zeilen und jeder macht was er will, ist voll daneben, weil es nicht verglichen werden kann (wie Xeno sagte: Äpfel und Birnen).
Also eine Aufgabe für alle stellen und staunen, wieviel Wege nach Rom führen. :tongue: -
Hier mal als Ansatz, wie du auf diese Controls zugreifen kannst.
[autoit]ControlClick("Spieler und Trainer verwalten", "", "[CLASS:ThunderRT6FormDC; INSTANCE:68]")
[/autoit]Zu finden in der Hilfe: Using AutoIt ==> Controls
Es gibt allerdings Controls, die "AutoIt-Resistent" sind. Aber probiers erst mal aus. Einzeln für alle Controls, die du ansprechen möchtest.
Wenn nichts hilft, teste ob du per Tastaturbefehle (TAB, SPACE, BildAuf..etc.) auch zum Ziel kommen kannst. Dann könntest du alternativ mit Send() arbeiten.Viel Erfolg.
-
Wonach hast du denn gesucht?
Guckst du hier: Suchergebnis -
Bevor der Tag zu Ende geht:
auch von mir :birthday:
-
Hi,
kaum einer nutzt wohl den eher funktionslosen, windowseigenen Editor notepad. Zu viele schöne Alternativen gibt es da.Mit folgendem Programm könnt ihr jeden beliebigen Editor als Ersatz für Notepad festlegen. Alle internen Notepadaufrufe landen dann bei dem Editor eurer Wahl.
Voraussetzung:
Euer Editor ist eine EXE (jEdit fällt also aus) und ruft die Dateien in der Form "EDITOR.EXE %1" auf.Wie gehts?
Es gibt die Launcher-Datei (notepad.au3), die als "notepad.exe" kompiliert werden muß. Sie ersetzt das Original und stellt den Kontakt zu eurem Editor her.Die zweite Datei (AlternateNotepad.au3) dient zur Installation, Deinstallation des Launchers und zum Einrichten oder Wechseln des Alternativen Editors.
Dazu wird ein Reg-Schlüssel angelegt, der auf die Alternative verweist.
Die Original Notepad-Datei wird gesichert.Kompiliert die Datei als "AlternateNotepad.EXE" und ruft sie wie folgt auf:
"AlternateNotepad.EXE" Installiert Launcher, setzt Alternativen Editor
"AlternateNotepad.EXE /e" Wechselt den Alternativen Editor
"AlternateNotepad.EXE /b" Rollback - stellt Originalzustand wieder herGetestet habe ich es mit "Notepad++", "Notepad2" und "SciTE".
EDIT:
Eine Änderung am Launcher.
Ich hatte nicht berücksichtigt, dass im Editorpfad Leerzeichen enthalten sein können. Ist jetzt gefixt.Launcher:
Spoiler anzeigen
[autoit]; Launcher für alternativen Editor statt Notepad (ersetzt notepad.exe)
[/autoit] [autoit][/autoit] [autoit]Dim $FullEditorPath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'FullPath')
[/autoit]
Dim $Line = ''
If $CmdLine[0] > 0 Then
For $i = 1 To $CmdLine[0]
If $i = 1 Then
$Line &= $CmdLine[$i]
Else
$Line &= ' ' & $CmdLine[$i]
EndIf
Next
Run( '"' & $FullEditorPath & '" "' & $Line & '"' )
Else
Run( '"' & $FullEditorPath & '"' )
EndIfAlternateNotepad:
Spoiler anzeigen
[autoit]; Installation/DeInstallation Launcher für Notepad Ersatz
[/autoit] [autoit][/autoit] [autoit]Global $arDest[4] = [ _
[/autoit] [autoit][/autoit] [autoit]
@WindowsDir & '\servicepackfiles\i386\', _
@WindowsDir & '\system32\dllcache\', _
@WindowsDir & '\system32\', _
@WindowsDir & '\']
Global $start = 0
If Not FileExists(@WindowsDir & '\servicepackfiles\i386\notepad.exe') Then $start = 1
If $CmdLine[0] > 0 Then
Switch $CmdLine[1]
Case "/b"
_RollBack() ; Schalter '/b' für: RollBack (Originalzustand)
Case "/e"
_SetAlternate(False) ; Schalter '/e' für: nur neuer Editor
EndSwitch
Else
_SetAlternate(True)
EndIf
Func _SetAlternate($FULL=True)
Dim $alternateEditorPath = ''
If $FULL Then
Dim $source = ''
Do
$source = FileOpenDialog("Pfad der Launcher Datei auswählen", @ScriptDir, "(*.exe)")
If $source = '' Then
If MsgBox(262180, 'Keine Datei ausgewählt', 'Wollen Sie nochmals wählen?') = 7 Then Exit
EndIf
Until $source <> ''
FileCopy(@WindowsDir & '\notepad.exe', @WindowsDir & '\notepad.exe.org') ; Sicherheitskopie Original
Local $sourceFile = StringTrimLeft($source, StringInStr($source, '\', 1, -1))
For $i = $start To UBound($arDest) -1
If FileCopy($source, $arDest[$i] & $sourceFile, 1) = 0 Then
MsgBox(262160, 'Kopierfehler', 'Die Launcher Datei konnte nicht in den Pfad:' & @LF & _
$arDest[$i] & @LF & @LF & _
'kopiert werden. Bitte das Programm mit dem "Rollback-Parameter /b" aufrufen.' )
Exit
EndIf
Next
EndIf
Do
$alternateEditorPath = FileOpenDialog("Pfad des alternativen Editors auswählen", @HomeDrive, "(*.exe)")
If $alternateEditorPath = '' Then
If MsgBox(262180, 'Keine Datei ausgewählt', 'Wollen Sie nochmals wählen?') = 7 Then Exit
EndIf
Until $alternateEditorPath <> ''
If RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'FullPath', "REG_SZ", $alternateEditorPath) = 0 Then
MsgBox(262160, 'Registryfehler', 'Der Schlüssel:' & @LF & _
'HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor, FullPath, REG_SZ, ' & $alternateEditorPath & @LF & _
'konnte nicht in die Registry geschrieben werden.' & @LF & _
'Bitte das Programm mit dem "Rollback-Parameter /b" aufrufen.' )
Exit
Else
MsgBox(262208, 'Erfolg', 'Alle Einträge wurden erfolgreich ausgeführt.')
EndIf
EndFunc ;==>_SetAlternateFunc _RollBack()
[/autoit]
If Not FileExists(@WindowsDir & '\notepad.exe.org') Then
MsgBox(262160, 'Dateifehler', 'Die Sicherung der Originaldatei:' & @LF & _
@WindowsDir & '\notepad.exe.org' & @LF & _
'ist nicht vorhanden!' & @LF & _
'Eine Wiederherstellung ohne diese Datei ist nicht möglich!')
Exit
EndIf
For $i = $start To UBound($arDest) -1
If FileCopy(@WindowsDir & '\notepad.exe.org', $arDest[$i] & 'notepad.exe', 1) = 0 Then
MsgBox(262160, 'Kopierfehler', 'Die Original Datei konnte nicht in den Pfad:' & @LF & _
$arDest[$i] & @LF & _
'kopiert werden.' & @LF & @LF & _
'Bitte kopieren Sie die Original "notepad.exe" in GENAU dieser Reihenfolge' & @LF & _
'in die folgenden Pfade:' & @LF & _
@WindowsDir & '\servicepackfiles\i386\ (sofern vorhanden)' & @LF & _
@WindowsDir & '\system32\dllcache\' & @LF & _
@WindowsDir & '\system32\' & @LF & _
@WindowsDir & '\')
Exit
EndIf
Next
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor')
MsgBox(262208, 'Erfolg', 'Der Original Windows-Editor "notepad"' & @LF & _
'ist ab sofort wieder Standardeditor.')
EndFunc ;==>_RollBackEdit2:
Ich habe jetzt noch ein Variante mit GUI erstellt. Hierbei wird die Launcher-Datei mit in das Skript des Alternate Programms eingebunden.
Dazu zuerst die Launcher-Datei (notepad.exe) kompilieren und den Quell-Pfad dieser Datei im Skript 'Alter_Notepad.au3' im Funktionsaufruf FileInstall() in Zeile 101 als String eintragen (FileInstall erfordert für die Quellangabe Stringform).
Jetzt kann 'Alter_Notepad' kompiliert werden und auf jedem PC (Win2k, WinXP) eingesetzt werden.
Ich habe festgestellt, dass Win2k Pro und WinXP Pro anstandslos das Kopieren der Launcherdatei tolerieren.
WinXP Home bringt dort eine Sicherheitsabfrage. Aus diesem Grund habe ich nach dem Kopiervorgang eine Schleife, die 6 Sekunden auf das Sicherheitsfenster wartet (das Fenster erschien bei mir nach gut 4 s). Erscheint die Abfrage früher wird sie weggeklickt und das Skript fortgesetzt, erscheint sie nicht, wird das Skript nach 6 s fortgesetzt.Alter_Notepad mit GUI:
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 2)Global $StandarEditorName = 'Microsoft Windows notepad.exe'
[/autoit] [autoit][/autoit] [autoit]
Global $arRadio[3], $InCurrEditor, $LabelSuccess
Global $alternateEditorPath = ''
Global $arDest[4] = [ _
@WindowsDir & '\servicepackfiles\i386\notepad.exe', _
@WindowsDir & '\system32\dllcache\notepad.exe', _
@WindowsDir & '\system32\notepad.exe', _
@WindowsDir & '\notepad.exe']
Global $start = 0, $RoyalBlue = 0x4169E1, $Orange = 0xFFA500
If Not FileExists(@WindowsDir & '\servicepackfiles\i386\notepad.exe') Then $start = 1$GUIAlternateEditor = GUICreate("Standard Editor wechseln (Win2k, WinXP SP2) By BugFix " & _
[/autoit] [autoit][/autoit] [autoit]
"( [email='bugfix@autoit.de'][/email] )", 563, 239, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUIAlternateEditorClose")
GUISetBkColor($RoyalBlue, $GUIAlternateEditor)
$Group1 = GUICtrlCreateGroup("", 10, 10, 540, 209)
$arRadio[0] = GUICtrlCreateRadio("Launcher installieren, Editor festlegen", 150, 71, 206, 17)
$arRadio[1] = GUICtrlCreateRadio("Neuen Editor festlegen", 150, 98, 143, 17)
$arRadio[2] = GUICtrlCreateRadio("Windows Standard wiederherstellen", 150, 126, 196, 17)
$BtGo = GUICtrlCreateButton("Ausführen", 465, 123, 70, 20)
GUICtrlSetOnEvent(-1, '_Go')
$Label1 = GUICtrlCreateLabel("Aktueller Standard Editor:", 20, 40, 124, 17)
$InCurrEditor = GUICtrlCreateInput("", 150, 37, 385, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$LabelSuccess = GUICtrlCreateLabel("Bitte Aktion wählen", 150, 174, 385, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, $Orange)
GUICtrlCreateGroup("", -99, -99, 1, 1)If StringLeft(FileGetVersion(@WindowsDir&'\notepad.exe'), 1) = 3 Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($InCurrEditor, RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'FullPath'))
GUICtrlSetState($arRadio[1], $GUI_CHECKED)
GUICtrlSetState($arRadio[0], $GUI_DISABLE)
Else
GUICtrlSetData($InCurrEditor, $StandarEditorName)
GUICtrlSetState($arRadio[1], $GUI_DISABLE)
GUICtrlSetState($arRadio[2], $GUI_DISABLE)
GUICtrlSetState($arRadio[0], $GUI_CHECKED)
EndIfGUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc GUIAlternateEditorClose()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _Go()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($BtGo, $GUI_DISABLE)
GUICtrlSetData($LabelSuccess, '')
For $i = 0 To 2
If BitAND(GUICtrlRead($arRadio[$i]), $GUI_CHECKED) Then ExitLoop
Next
Switch $i
Case 0
_LauncherInstall()
Local $begin = TimerInit()
Do
If WinExists('Windows-Dateischutz') Then
Send("{ESC}")
WinWaitActive('Windows-Dateischutz', 'Sie müssen die Dateien')
Send("!j")
$begin = 6000
EndIf
Sleep(100)
Until TimerDiff($begin) >= 6000
GUICtrlSetData($LabelSuccess, '')
_AlternateSelect()
GUICtrlSetState($arRadio[0], $GUI_DISABLE)
GUICtrlSetState($arRadio[1], $GUI_ENABLE)
GUICtrlSetState($arRadio[2], $GUI_ENABLE)
GUICtrlSetState($arRadio[1], $GUI_CHECKED)
Case 1
_AlternateSelect()
Case 2
_RollBack()
EndSwitch
GUICtrlSetState($BtGo, $GUI_ENABLE)
EndFunc ;==>_GoFunc _LauncherInstall()
[/autoit] [autoit][/autoit] [autoit]
RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'OriginalSaved')
If @error Then
If FileCopy(@WindowsDir & '\notepad.exe', @WindowsDir & '\notepad.exe.org') = 0 Then ; Sicherheitskopie Original
MsgBox(262160, 'Kopierfehler', 'Die Sicherheitskopie der "notepad.exe" konnte nicht angelegt werden.')
Return
EndIf
If RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'OriginalSaved', "REG_SZ", 1) = 0 Then
MsgBox(262160, 'Registryfehler', 'Eintrag in die Registry fehlgeschlagen.')
Return
EndIf
EndIf
Local $fehler = 0
For $i = $start To UBound($arDest) -1 ; ####### QUELLPFAD für FileInstall anpassen !!! ########
If FileInstall("C:\Dokumente und Einstellungen\Standard\Desktop\SCRIPTING\AU3-Scripte\Alternate Notepad\notepad.EXE", _
$arDest[$i], 1) = 0 Then
$fehler += 1
EndIf
Next
If $fehler > 0 Then
GUICtrlSetData($LabelSuccess, 'Fehler bei Installation. Wiederherstellung starten.')
Return
EndIf
GUICtrlSetData($LabelSuccess, 'Installation Launcher erfolgreich. Starte Editorwahl.')
EndFunc ;==>_LauncherInstallFunc _AlternateSelect()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($LabelSuccess, '')
Do
$alternateEditorPath = FileOpenDialog("Pfad des alternativen Editors auswählen", @HomeDrive, "(*.exe)")
If $alternateEditorPath = '' Then
If MsgBox(262180, 'Keine Datei ausgewählt', 'Wollen Sie nochmals wählen?') = 7 Then Return 0
EndIf
Until $alternateEditorPath <> ''
If RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'FullPath', "REG_SZ", $alternateEditorPath) = 0 Then
GUICtrlSetData($LabelSuccess, 'Auswahl/Registrierung Editor fehlgeschlagen.')
Else
GUICtrlSetData($LabelSuccess, 'Alle Vorgänge wurden erfolgreich abgeschlossen.')
GUICtrlSetData($InCurrEditor, $alternateEditorPath)
EndIf
EndFunc ;==>_AlternateSelectFunc _RollBack()
[/autoit]
If Not FileExists(@WindowsDir & '\notepad.exe.org') Then
MsgBox(262160, 'Dateifehler', 'Die Sicherung der Originaldatei:' & @LF & _
@WindowsDir & '\notepad.exe.org' & @LF & _
'ist nicht vorhanden!' & @LF & _
'Eine Wiederherstellung ohne diese Datei ist nicht möglich!')
Return
EndIf
For $i = $start To UBound($arDest) -1
If FileCopy(@WindowsDir & '\notepad.exe.org', $arDest[$i], 1) = 0 Then
MsgBox(262160, 'Kopierfehler', 'Die Original Datei konnte nicht in den Pfad:' & @LF & _
$arDest[$i] & @LF & _
'kopiert werden.' & @LF & @LF & _
'Bitte kopieren Sie die Original "notepad.exe" in GENAU dieser Reihenfolge' & @LF & _
'in die folgenden Pfade:' & @LF & _
@WindowsDir & '\servicepackfiles\i386\ (sofern vorhanden)' & @LF & _
@WindowsDir & '\system32\dllcache\' & @LF & _
@WindowsDir & '\system32\' & @LF & _
@WindowsDir & '\')
GUICtrlSetData($LabelSuccess, 'Fehler bei Wiederherstellung.')
Return
EndIf
Next
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\AlternateEditor', 'FullPath')
GUICtrlSetData($LabelSuccess, 'Wiederherstellung erfolgreich beendet.')
GUICtrlSetData($InCurrEditor, $StandarEditorName)
GUICtrlSetState($arRadio[0], $GUI_ENABLE)
GUICtrlSetState($arRadio[1], $GUI_DISABLE)
GUICtrlSetState($arRadio[2], $GUI_DISABLE)
GUICtrlSetState($arRadio[0], $GUI_CHECKED)
EndFunc ;==>_RollBack -
Danke Buffo, werd ich mal probieren.
-
Hallo,
folgendes Problem. Auf unserem Firmenserver ist Firebird als Dienst installiert. Die Prozesspriorität ist aber nur auf normal, was gerade bei Belegdruck zu gewaltigem Performanceeinbruch führt.
Ich möchte die Priorität nun auf Hoch setzen.
Bei 'normalen' Prozessen ist das auch recht simpel - TaskManager -->Basispriorität anzeigen lassen -->Prozeß Kontextmenü -->Priorität ändern.
Da der Prozeß aber als Dienst eingerichtet ist, bekomme ich hier keinen Zugriff, der Vorgang wird verweigert.
Hat jemand Erfahrung, und weiß wie ich vorgehen muß? -
Hi,
wir haben in unserer Firma ein Mini-LAN mit Win2000-Server und 5 Clients.
Das System ist auch für 5 Clients lizensiert.
Nun muß ich das System erweitern, habe mit viel Mühen auch noch ein 5-er CAL-Pack für Win2k-Server bekommen.
Nun meine Frage:
Wie kann ich die CAL aktivieren? Im Lizenzmanager habe ich 5 Pro-Server-Lizenzen hinzugefügt. Er zeigt mir unter Produkte jetzt auch richtig an:
ProServer erworben: 10
ProServer verwendet: 5Gehe ich aber in der Liste auf das Produkt 'Windows Server' ==> Eigenschaften bekomme ich folgende Info:
SERVER Erworben: 10 Verwendet: 10
und der Server wird mit dem Symbol für: 'Lizenz abgelaufen' angezeigt.Nur fragt der Lizenzmanager nirgendwo nach dem Lizenzcode.
Ich habe bisher auch keine Möglichkeit gefunden diesen irgendwo einzutragen.Ich steh hier etwas im Regen, falls also jemand weiß, wie das geht, ich freu mich über jede Info.
-
Wie pee bereits sagte: schon oft durchgekaut.
Mit SuFu Stichwort 'checkbox', wärst du auch hier drauf gestoßen:
mehrere Checkboxen überprüfen -
Kommt drauf an, wie groß (oder lang) die zu vergleichenden Elemente sind. Wenn es wirklich nur, wie in deinem Bsp. ist, würde ich für jedes Zeichen ein einzelnes Control (am besten Label) anlegen.
Beide Strings sind ja gleich lang, zerleg sie mit StringSplit() in alle einzelnen Zeichen. Geh beide Arrays durch und vergleiche. Wenn gleich einfach die Zeichen in die Controls schreiben, wenn Unterschied dann beim zweiten Textfarbe setzen.Wenn es aber deutlich größer wird, mit RichText arbeiten. Bemüh mal die Suche, war gerade in einem andren Post aktuell.
-
Und wenn ihr statt:
[autoit]$_array = _ArrayCreate ("wert1","wert2","wert3","alo","deo","leo","tude","lude","adeo","supo","meo","kani")
[/autoit][autoit]$_array[12] = ["wert1","wert2","wert3","alo","deo","leo","tude","lude","adeo","supo","meo","kani"]
[/autoit]schreibt, spart ihr auch das Include.
-
Als grobe Anleitung:
Zeile einlesen, in alle Einzelwörter splitten. Wort für Wort mit deiner Highlight-Liste vergleichen und bei Bedarf formatieren. Zeile wieder zusammensetzen und zurückschreiben. -
[autoit]
If StringLen(GUICTRLRead($Input5)) and StringLen(GUICTRLRead($Input1)) and StringLen(GUICTRLRead($Input2)) and StringLen(GUICTRLRead($Input3)) and StringLen(GUICTRLRead($Input4)) = 5 Then
[/autoit]==> falsch
Richtig:
[autoit]If StringLen(GUICTRLRead($Input5)) = 5 and _
[/autoit]
StringLen(GUICTRLRead($Input1)) = 5 and _
StringLen(GUICTRLRead($Input2)) = 5 and _
StringLen(GUICTRLRead($Input3)) = 5 and _
StringLen(GUICTRLRead($Input4)) = 5 Then -
Grundsätzliche Anmerkung:
Wenn du deinen Code gezipt anhängst, sinkt die Wahrscheinlichkeit, dass dir jemand hilft extrem.
Ich persönlich habe keine Lust Dateien runterzuladen, zu entpacken und dann erst zu sehen, ob ich Helfen kann oder nicht.
Und das nur, weil du zu faul bist deinen Code zu posten. -
Schau mal hier: RTF plugin