Probier es so:
[autoit]Local $timeout = 'Zeit in Sec'
If Not WinWait('title1', '[text]', $timeout) Then
If Not WinWait('title2', '[text]', $timeout) Then Exit MsgBox(0, '', 'Kein Fenster zutreffend')
EndIf
Beiträge von BugFix
-
-
Hi,
ich habe bei meinem PC folgendes Phänomen:
- Booten (Disketten-Lw wird aufgrund BIOS-Einstellungen [SeekFloppy=Disabled] nicht abgefragt)
- Windows startet
- nach Windowsstart Zugriff auf Floppy-Lw (keine Floppy drin)
- wenn im Verlauf der Windows-Sitzung die explorer.exe erneut aufgerufen wird (passiert manchmal, wenn ein Programm sich unsauber beendet) wiederum Zugriff auf die FloppyWer noch ein Floppy-Lw hat, weiß wie nervig das ca. 10 sec. lange Rattern ist. Und besonders gut für die Leseköpfe ist es sicher auch nicht.
Ich vermute, dass Avira Antivir (v.10) die Ursache ist. Also wollte ich als Scan-Ausnahme dort "A:" eintragen. Jedoch werden nur Ordner oder Dateien als Ausnahme akzeptiert. Kennt jemand eine Möglichkeit ein ganzes Laufwerk vom Scan auszuschließen?
Das Forum von Avira gibt lapidar zur Antwort, man solle nicht an den Symptomen doktern, sondern nach der Ursache des Lw-Zugriffs suchen. Ha-Ha, die Ursache ist mit 99% Wahrscheinlichkeit Avira Antivir.
-
Wieso sollte es ausarten, ich wollte doch bloß wissen, ob es so etwas schon in Autoit geschrieben gibt
Es ist leider so, dass das Forum in letzter Zeit von Bot'ern und Scriptkiddys überflutet wird. Grob geschätzt verstößt fast jede dritte Anfrage gegen unsere Forenregeln. Da erwischt es dann auch mal einen Unschuldigen. Sry. -
..und damit das nicht ausartet machen wir lieber gleich dicht.
-
Hänge einfach in das Makro ein:
ActiveWorkbook.Save
Falls das im Zusammenhang mit Open nicht geht, einfach ein anderes Makro mit diesem Befehl erstellen und dieses mit Open aufrufen. -
So geht es:
[autoit]$oExcel = ObjGet('', 'Excel.Application')
[/autoit][autoit][/autoit][autoit]
$firstCol = 'A' ; Startspalte
$lastCol = 'AM' ; Endspalte
$firstRow = 8 ; erste Datenzeile
$lastRow = 40 ; letzte DatenzeileWith $oExcel.ActiveWorkbook.Sheets(1)
[/autoit]
For $i = $firstRow To $lastRow
If Mod($i, 2) Then ; ungerade Zeile
.Range($firstCol & $i & ':' & $lastCol & $i).Interior.Color = 0xCCFFCC
Else
.Range($firstCol & $i & ':' & $lastCol & $i).Interior.Color = 0xCCFFFF
EndIf
Next
EndWith -
Du kannst jede Zelle einzeln färben, ich mach ein Bsp.
-
Probier mal zum Druckbereich setzen:
[autoit]Local $sFilePath = 'Deine XLS'
[/autoit]
Local $oExcel = ObjCreate("Excel.Application")
Local $oBook = $oExcel.WorkBooks.Open($sFilePath, Default, False)
Local $oSheet = $oBook.Worksheets.Item(1) ; oder anderes Tabellenblatt, auch "Tabelle Name" möglich
$oSheet.Range("C10:K30").Select
$oExcel.ActiveSheet.PageSetup.PrintArea = "$C$10:$K$30" ; Druckbereich
Na die Funktionen zum Wandeln sind doch eindeutig. Du gibst die Spalte als String (z.B. 'AS') ein bekommst dafür die Spalte als Zahlwert zurück und umgekehrt. -
Du mußt den Druckbereich festlegen, dann stört es nicht, wenn die farbige Markierung über die Tabelle hinausgeht.
Ich schau mal ob ich ein Bsp. finde. -
Ich erwarte, dass bei vorgestellten Skripten mindestens eine Beschreibung des Skriptes hier veröffentlicht wird! Eine Überschrift ist da wenig aussagekräftig. Und es ist doch nicht zuviel verlangt hier ein paar Zeilen zu hinterlassen.
-
Dein Status ist in der Variable $temp und du fragst die Variable $status ab.
-
Ja die Version 2 war auch nur ein Zwischenschritt. In der aktuellen Version gibt es damit keine Probleme.
-
Es ist selten sinnvoll eine GUI innerhalb einer Funktion, Schleife zu erstellen. Besser am Skriptanfang erstellen und bei Bedarf einblenden [ GuiSetState(@SW_SHOW, $hWnd) ].
-
Neue Version in Post #1.
Kleinen Bug gefixt.
ASCII-to-BF effektiver. -
Neue Version in Post #1. Nun kann in beide Richtungen (BF_to_ASCII und ASCII_to_BF) gebrainfuckt werden.
-
Verschachtelte Schleifen nehme ich mir später vor.
Ich würde die Schleifen als Do-Until betrachten, da die Abbruchbedingung klar ist (Wert unter Pointer=0) und dieser Pointer erst nach Ausführung von Operationen erreicht wird - also fußgesteuert. Es erfolgt immer ein Eintritt in die Schleife, was ja bei While-End nicht der Fall wäre.
Ich bastel gerade an Text-2-BF. Aber geschachtelte Schleifen verkneife ich mir da im Moment noch.
-
Kann das sein, dass dein Interpreter einen Bug hat? Das funktioniert bei mir nicht:
Ja, war eine Fehlinterpretation von mir. Ich hatte die Beschreibung so verstanden, dass bei erstmaliger Verwendung von ">" der vorher wertlose Pointer auf das erste (Index 0) Element zeigt. Diese Abfrage habe ich jetzt entfernt und dann funktioniert es auch mit deinem Bsp. -
Kannste das mal andersrum machen ?
Das ist nicht ganz so simpel, denn das möchte ich dann schon in optimierter Form ausgeben. Und die Optimierung ist ein wirklich harter Brocken.
Also wird das wohl noch etwas dauern.
-
Hi,
einige von euch werden wohl auch durch L3viathans Rätsel, wie ich, erstmalig mit der Programmiersprache Brainfuck Kontakt gehabt haben.
Ich finde diese recht originell, wenn auch nicht unbedingt sehr sinnvoll, wird dem Namen gerecht. Wenn man das Prinzip verstanden hat, ist die Sprache nicht mal schwer, nur extrem unübersichtlich. Ich habe mal einen BF-Text-Interpreter geschrieben, der in BF-Code dargestellten Text in eine lesbare Ausgabe verwandelt.
Der erste String ist optimiert erstellt (relativ adressiert), der zweite ist ohne jede Optimierung. Ein deutlicher Unterschied.
Viel Spaß damit.
Edit:
Kleiner Nachtrag noch. Der Interpreter arbeitet nicht mit geschachtelten Schleifen. Diese sollten aber selbst bei super-optimierten Texten nicht auftreten.Edit 2:
Einen Bug gefixt (Pointerinitialisierung).Edit 3: NEU
Erweitert um die Funktion _AsciiToBFcode(). Hiermit läßt sich normaler Text in BrainFuck-Code ausgeben.
Es gibt unendlich viele Möglichkeiten von BF-Code, der letztlich denselben Ascii-String ausgibt.
Ich habe mir folgendes Verfahren entwickelt:
- Ermitteln der Ascii-Werte für jedes Zeichen
- Runden der Ascii-Werte auf glatte Zehner
- für jeden unterschiedlichen glatten Zehnerwert wird eine Zelle belegt und mit diesem Wert befüllt
jetzt wird Zeichen für Zeichen durchgegangen:
- Pointer auf Zelle mit zugehörigem gerundeten Zehnerwert
- je nach Differenz zum tatsächlichem Ascii-Wert in/dekrementieren
- Zeichenausgabe
- Zelle auf den vorigen Wert zurücksetzen
Sicher kann man noch weiter optimieren, aber für den Anfang finde ich es schon recht gut gelungen.Edit 4:
Ich habe die Ascii-to-BF Funktion noch 2-mal verbessert. Bei langen Texten nun eine Verkürzung des Codes um 50-70 % im Vergleich zur ersten Variante.
Ich setzte jetzt in den Referenzzellen den Wert nach Nutzung nicht zurück, sondern speichere den zuletzt genutzten Wert. Wird die Referenzzelle wieder genutzt bildet sich der Wert zum In/Dekrementieren aus Differenz Ascci-Wert und letztem in der Zelle genutzten Wert. Das ist doch wesentlich effektiver als in den alten Varianten.
Ich habe alle 3 Versionen im Skript belassen, da könnt ihr ja vergleichen.
Einen Bug habe ich auch noch gefixt in der Interpreter-Hilfsfunktion. Waren mehrere gleiche Zeichen am Stringende, trat ein Indexfehler auf.BF-Text-Interpreter
[autoit]#cs
[/autoit] [autoit][/autoit] [autoit]
Der C-Sourcecode eines in Brainfuck geschriebenen Programms hat nur eine minimallänge von 1055 Bytes - also rund 1KB. Brainfuck arbeitet (standardmäßig) auf einem 30000 Bytes großen Array und einem Pointer, der irgendwo in das Array zeigt. Der Pointer kann vor- und zurückgesetzt werden, die Werte unter dem Counter können hoch- und runtergezählt, eingelesen und ausgegeben werden. Außerdem gibt es ein sehr hübsches Schleifenkonstrukt.Befehle
[/autoit] [autoit][/autoit] [autoit]Brainfuck kommt mit sage und schreibe 8 Befehlen aus. Daher kommt auch die Bezeichnung "minimalistische" Programmiersprache da die Sprache über ein Minimum an Befehlen - in diesem Fall 8 - verfügt.
[/autoit] [autoit][/autoit] [autoit]Befehl C Equivalent Beschreibung
[/autoit] [autoit][/autoit] [autoit]
> ++ptr; Setzt den Pointer um 1 weiter
< --ptr; Setzt den Pointer um 1 zurück
+ ++*ptr; Den Wert des Elements im Array um 1 erhöhen
- --*ptr; Den Wert des Elements im Array um 1 verringern
[ while(*ptr){ Starte einer Schleife - Abbruchbedingung ist, das der Wert des Elements im Array unter dem Pointer 0 beträgt
] } Ende einer Schleife
. putchar(*ptr); ASCII-Code des Wertes unter dem Pointer ausgeben
, *ptr=getchar(); Zeichen einlesen und im Array unter dem Pointer speichernJedes Array und jedes Element eines Arrays wird, mit dem ersten Setzen des Pointers auf dieses Element mit 0 initialisiert. Der Pointer selbst steht zu Beginn ebenfalls immer auf 0.
[/autoit] [autoit][/autoit] [autoit]
#ce
#include-once
#include <Array.au3>
#include <String.au3>Local $sBF_1 = '>++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.'
[/autoit] [autoit][/autoit] [autoit]
Local $sBF_2 = '>++++++++++[>+>+++>+++++>+++++++>++++++++++>+++++++++++>++++++++++++<<<<<<<-]>>>>-----.>>>---.-.<+.<<++++++++.>>>.<<<<<++.>>>>--.<+..>>.-.<<<<<.>>-------.>>+++++.<----.>---------.+++++.<<++++.>>>++.<<++.>---.<<<----.<<+++.---.'
ConsoleWrite('$sBF_1 & $sBF_2:' & @CRLF)
ConsoleWrite(_BFtextInterpreter($sBF_1) & _BFtextInterpreter($sBF_2) & @CRLF)$BFcode = _AsciiToBFcode( _
[/autoit] [autoit][/autoit] [autoit]
'Befehl C Equivalent Beschreibung' & @CRLF & _
'> ++ptr; Setzt den Pointer um 1 weiter' & @CRLF & _
'< --ptr; Setzt den Pointer um 1 zurück' & @CRLF & _
'+ ++*ptr; Den Wert des Elements im Array um 1 erhöhen' & @CRLF & _
'- --*ptr; Den Wert des Elements im Array um 1 verringern' & @CRLF & _
'[ while(*ptr){ Starte einer Schleife - Abbruchbedingung ist, das der Wert des Elements im Array unter dem Pointer 0 beträgt' & @CRLF & _
'] } Ende einer Schleife' & @CRLF & _
'. putchar(*ptr); ASCII-Code des Wertes unter dem Pointer ausgeben' & @CRLF & _
', *ptr=getchar(); Zeichen einlesen und im Array unter dem Pointer speichern' & @CRLF )
ConsoleWrite('BF-Beschreibung als BF-Code:' & @CRLF & $BFcode & @crlf)
ConsoleWrite('und zurück:' & @crlf & _BFtextInterpreter($BFcode) & @CRLF)
ConsoleWrite('ASCII-to-BF in 3 Versionen:' & @CRLF)
ConsoleWrite(_AsciiToBFcode_1('Hello World!') & @CRLF)
ConsoleWrite(_AsciiToBFcode_2('Hello World!') & @CRLF)
ConsoleWrite(_AsciiToBFcode('Hello World!') & @CRLF) ; aktuelle VersionFunc _BFtextInterpreter($sBFcode)
[/autoit] [autoit][/autoit] [autoit]
Local $aCode = StringSplit(StringStripWS($sBFcode, 8), '', 2)
Local $sOut = '', $index = 0, $count, $iLoop = -1
Local $a[30000], $pt = 0
Do
If $index < UBound($aCode) -1 Then
$count = __CountEvenNeighbour($aCode, $index)
Else
$count = 0
EndIf
Switch $aCode[$index]
Case '>'
$pt += 1 + $count
$index += 1 + $count
Case '<'
$pt -= (1 + $count)
$index += 1 + $count
Case '+'
$a[$pt] += 1 + $count
$index += 1 + $count
Case '-'
$a[$pt] -= 1 + $count
$index += 1 + $count
Case '['
$iLoop = $index +1
$index += 1 + $count
Case ']'
If $a[$pt] = 0 Then
$iLoop = -1
$index += 1 + $count
Else
$index = $iLoop
EndIf
Case '.'
$sOut &= Chr($a[$pt])
$index += 1
Case ',' ; erwartet Input von Standardeingabe
;~ $a[$pt] = Asc('Input')
;~ $index += 1
EndSwitch
Until $index = UBound($aCode)
Return $sOut
EndFunc ;==>_BFtextInterpreterFunc __CountEvenNeighbour(ByRef $aCode, $iStart)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local $counter = 0
While $aCode[$iStart +$counter +1] == $aCode[$iStart]
$counter += 1
If $iStart +$counter +1 = UBound($aCode) Then ExitLoop
WEnd
Return $counter
EndFunc ;==>__CountEvenNeighbourFunc _AsciiToBFcode($sString) ; Version 3
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local $aString = StringSplit($sString, '', 2)
Local $aWork[UBound($aString)][3], $aRounded[1][2]
; === ASCII-Werte ermitteln und die zugehörigen gerundeten Zehner-ASCII-Werte
For $i = 0 To UBound($aString) -1
$aWork[$i][0] = Asc($aString[$i]) ; ASCII-Wert des Zeichens
$aWork[$i][1] = Round($aWork[$i][0] /10) *10 ; auf Zehnerwert auf/abgerundeter ASCII-Wert
$aWork[$i][2] = $i ; Position im Ausgangsstring
Next
; === nach ASCII-Werten aufsteigend sortieren
_ArraySort($aWork)
; === gerundete Zehner-ASCII-Werte zusammenfassen
$aRounded[0][0] = $aWork[0][1] ; gerundeter Zehner-ASCII-Wert
$aRounded[0][1] = $aWork[0][1] ; momentan genutzter Wert
For $i = 0 To UBound($aWork) -1
If $i < UBound($aWork) -1 Then
If $aWork[$i][1] <> $aWork[$i+1][1] Then
ReDim $aRounded[UBound($aRounded)+1][2]
$aRounded[UBound($aRounded)-1][0] = $aWork[$i+1][1]
$aRounded[UBound($aRounded)-1][1] = $aWork[$i+1][1]
EndIf
EndIf
Next
; === wieder nach Reihenfolge Zeichen sortieren
_ArraySort($aWork, 0, 0,0,2)
; === je eine Zelle auf einen einmal vorkommenden gerundeten Zehner-ASCII-Wert setzen
Local $sBF = '>++++++++++[' ; Faktor 10 vor der Schleife erstellen
For $i = 0 To UBound($aRounded) -1
$sBF &= '>' & _StringRepeat('+', $aRounded[$i][0]/10) ; Faktor für Zehner-Multiplikation
Next
$sBF &= _StringRepeat('<', UBound($aRounded)) & '-]' ; zurück auf Schleifenzähler und dekrementieren
$sBF &= '>' ; Pointer auf erste Wertezelle
Local $index, $index_last = 0, $step = 0, $diff = 0, $nextStep
For $i = 0 To UBound($aString) -1 ; durch Eingabestring iterieren
$index = _ArraySearch($aRounded, $aWork[$i][1])
$diff = $index - $index_last
$index_last = $index
Select
Case $diff < 0
$nextStep = _StringRepeat('<', Abs($diff))
Case 0
$nextStep = ''
Case Else
$nextStep = _StringRepeat('>', $diff)
EndSelect
$sBF &= $nextStep
$diff = $aWork[$i][0] - $aRounded[$index][1] ; Differenz zw. tatsächlichem Wert und zuletzt genutztem Wert
; === Zelle unter Pointer um $diff in/dekrementieren, Zeichen ausgeben
Select
Case $diff < 0
$nextStep = _StringRepeat('-', Abs($diff))
Case 0
$nextStep = ''
Case Else
$nextStep = _StringRepeat('+', $diff)
EndSelect
$aRounded[$index][1] += $diff ; zuletzt genutzten Wert in Zelle aktualisieren
$sBF &= $nextStep & '.'
Next
Return $sBF
EndFunc ;==>_AsciiToBFcodeFunc _AsciiToBFcode_2($sString) ; Version 2
[/autoit] [autoit][/autoit] [autoit]
Local $aString = StringSplit($sString, '', 2)
Local $aWork[UBound($aString)][3], $aRounded[1][2]
; === ASCII-Werte ermitteln und die zugehörigen gerundeten Zehner-ASCII-Werte
For $i = 0 To UBound($aString) -1
$aWork[$i][0] = Asc($aString[$i]) ; ASCII-Wert des Zeichens
$aWork[$i][1] = Round($aWork[$i][0] /10) *10 ; auf Zehnerwert auf/abgerundeter ASCII-Wert
$aWork[$i][2] = $i ; Position im Ausgangsstring
Next
; === nach ASCII-Werten aufsteigend sortieren
_ArraySort($aWork)
; === gerundete Zehner-ASCII-Werte zusammenfassen
$aRounded[0][0] = $aWork[0][1]
$aRounded[0][1] = 1
For $i = 0 To UBound($aWork) -1
If $i < UBound($aWork) -1 Then
If $aWork[$i][1] <> $aWork[$i+1][1] Then
ReDim $aRounded[UBound($aRounded)+1][2]
$aRounded[UBound($aRounded)-1][0] = $aWork[$i+1][1]
$aRounded[UBound($aRounded)-1][1] = 1
Else
$aRounded[UBound($aRounded)-1][1] += 1
EndIf
EndIf
Next
; === wieder nach Reihenfolge Zeichen sortieren
_ArraySort($aWork, 0, 0,0,2)
; === je eine Zelle auf einen einmal vorkommenden gerundeten Zehner-ASCII-Wert setzen
Local $sBF = '>++++++++++[' ; Faktor 10 vor der Schleife erstellen
For $i = 0 To UBound($aRounded) -1
$sBF &= '>' & _StringRepeat('+', $aRounded[$i][0]/10) ; Faktor für Zehner-Multiplikation
Next
$sBF &= _StringRepeat('<', UBound($aRounded)) & '-]' ; zurück auf Schleifenzähler und dekrementieren
$sBF &= '>' ; Pointer auf erste Wertezelle
Local $index, $index_last = 0, $step = 0, $diff = 0, $nextStep, $backStep, $lastback, $nextIsSame = False
For $i = 0 To UBound($aString) -1 ; durch Eingabestring iterieren
$index = _ArraySearch($aRounded, $aWork[$i][1])
$diff = $index - $index_last
$index_last = $index
Select
Case $diff < 0
$nextStep = _StringRepeat('<', Abs($diff))
Case 0
$nextStep = ''
Case Else
$nextStep = _StringRepeat('>', $diff)
EndSelect
$sBF &= $nextStep
$diff = $aWork[$i][0] - $aWork[$i][1] ; Differenz zw. tatsächlichem Wert und Round-Wert
; === Zelle unter Pointer um $diff in/dekrementieren, Zeichen ausgeben, Wert zurücksetzen
; === nur wenn Folgezeichen <> aktuellem Zeichen
If Not $nextIsSame Then
Select
Case $diff < 0
$nextStep = _StringRepeat('-', Abs($diff))
$backStep = _StringRepeat('+', Abs($diff))
Case 0
$nextStep = ''
Case Else
$nextStep = _StringRepeat('+', $diff)
$backStep = _StringRepeat('-', $diff)
EndSelect
$lastback = $backStep
EndIf
$aRounded[$index][1] -= 1
; === wenn Zelle letztmalig verwendet wurde, Wert in Zelle nicht mehr zurücksetzen
If $aRounded[$index][1] = 0 Then $backStep = ''
; === wenn Folgezeichen identisch, dann Wert auch nicht zurücksetzen
If ($i < UBound($aString) -2) And ($aString[$i] == $aString[$i+1]) Then
$nextIsSame = True
$lastback = $backStep
$backStep = ''
ElseIf ($i < UBound($aString) -2) And ($aString[$i] <> $aString[$i+1]) Then
$nextIsSame = False
$backStep = $lastback
EndIf
$sBF &= $nextStep & '.' & $backStep
Next
Return $sBF
EndFunc ;==>_AsciiToBFcodeFunc _AsciiToBFcode_1($sString) ; Version 1
[/autoit]
Local $aString = StringSplit($sString, '', 2)
Local $aWork[UBound($aString)][3], $sUniqueRounded
; === ASCII-Werte ermitteln und die zugehörigen gerundeten Zehner-ASCII-Werte
For $i = 0 To UBound($aString) -1
$aWork[$i][0] = Asc($aString[$i]) ; ASCII-Wert des Zeichens
$aWork[$i][1] = Round($aWork[$i][0] /10) *10 ; auf Zehnerwert auf/abgerundeter ASCII-Wert
$aWork[$i][2] = $i ; Position im Ausgangsstring
Next
; === nach ASCII-Werten aufsteigend sortieren
_ArraySort($aWork)
; === gerundete Zehner-ASCII-Werte zusammenfassen
$sUniqueRounded = $aWork[UBound($aWork)-1][1]
For $i = UBound($aWork) -1 To 0 Step -1
If $i > 0 Then
If $aWork[$i][1] <> $aWork[$i-1][1] Then $sUniqueRounded = $aWork[$i-1][1] & ',' & $sUniqueRounded
EndIf
Next
; === wieder nach Reihenfolge Zeichen sortieren
_ArraySort($aWork, 0, 0,0,2)
Local $aUnique = StringSplit($sUniqueRounded, ',', 2) ; Array mit gerundeten Zehner-ASCII-Werten
; === je eine Zelle auf einen einmal vorkommenden gerundeten Zehner-ASCII-Wert setzen
Local $sBF = '>++++++++++[' ; Faktor 10 vor der Schleife erstellen
For $i = 0 To UBound($aUnique) -1
$sBF &= '>' & _StringRepeat('+', $aUnique[$i]/10) ; Faktor für Zehner-Multiplikation
Next
$sBF &= _StringRepeat('<', UBound($aUnique)) & '-]' ; zurück auf Schleifenzähler und dekrementieren
$sBF &= '>' ; Pointer auf erste Wertezelle
Local $index, $index_last = 0, $step = 0, $diff = 0, $nextStep, $backStep
For $i = 0 To UBound($aString) -1
$index = _ArraySearch($aUnique, $aWork[$i][1])
$diff = $index - $index_last
$index_last = $index
Select
Case $diff < 0
$nextStep = _StringRepeat('<', Abs($diff))
Case 0
$nextStep = ''
Case Else
$nextStep = _StringRepeat('>', $diff)
EndSelect
$sBF &= $nextStep
$diff = $aWork[$i][0] - $aWork[$i][1] ; Differenz zw. tatsächlichem Wert und Round-Wert
; === Zelle unter Pointer um $diff in/dekrementieren, Zeichen ausgeben, Wert zurücksetzen
Select
Case $diff < 0
$nextStep = _StringRepeat('-', Abs($diff))
$backStep = _StringRepeat('+', Abs($diff))
Case 0
$nextStep = ''
Case Else
$nextStep = _StringRepeat('+', $diff)
$backStep = _StringRepeat('-', $diff)
EndSelect
If $i = UBound($aString) -1 Then $backStep = ''
$sBF &= $nextStep & '.' & $backStep
Next
Return $sBF
EndFunc ;==>_AsciiToBFcode -
Nun zum automatischen Abgeben einer Statusnachricht sehe ich keine Konflikte zu unseren Forumsregeln auf die ich aber trotzdem verweise.
Schau dir in der Hilfe mal "MouseClick" an. Texte an offene Fenster lassen sich mit "Send" übermitteln.
