Beiträge von BugFix

**BugFix**

Hallo monkey,
ich gebrauche es ungern, aber hier muß ich doch mal sagen: RTFM !

Alle deine Fragen sind Grundlagenfragen, die ausgiebig und verständlich in der Hilfe beschrieben sind. Arbeite einfach mal die Bsp. dort durch. Wenn du dann Fragen hast, helfen wir dir gerne weiter.

**BugFix**

Joo, wie trallala schon sagt, mußt du erst beide Systeme als Singlesystem installieren.
MS kann nur von der aktiven Partition der ersten Harddisk booten. Also mußt du jede HD einzeln installieren.
Der Bootmanager versteckt dann die nichtgewählte Platte, damit das System glaubt es gibt nur eine. MS ist halt krank.

**BugFix**

Du mußt FileOpen mit Filehandle verwenden.

$fh = FileOpen($datei, $flag)

Und dann für alle Aktionen das Handle ansprechen:

$zeile = FileReadline($fh, $n)

Spoiler anzeigen

[autoit]

; pcdmis2csv00.au3.au3
#include-once
#include <\Archiv\Prg\AutoIt\Include\rexx01.au3>
#include <\Archiv\Prg\AutoIt\Include\tools00.au3>
#include <\Archiv\Prg\AutoIt\Include\stack00.au3>

; Grundeinstellungen
HotKeySet("{PAUSE}", "MeinExit")

; Hilfsfunktionen
Func MeinExit()
Exit
EndFunc

; init
$n_s1 = inistack() ; init stack 1

$search = FileFindFirstFile(@WorkingDir&"\*.rtf")
If $search = -1 Then
MsgBox(0, @ScriptName&": Fehler!", "Keine RTF Dateien in >"&@WorkingDir&"< gefunden")
Exit
EndIf
While 1
$dummy = FileFindNextFile($search)
If @error Then ExitLoop
push($n_s1,$dummy)
WEnd
FileClose($search)

send("^n")

while eos($n_s1)
$datei_r = pop($n_s1)
$datei_w = changestr('.rtf',$datei_r,'.csv')
$fh1 = fileopen($datei_r,0) ; Quelle lesend geöffnet #### Filehandle
$fh2 = fileopen($datei_w,2) ; Ziel überschreibend geöffnet #### Filehandle
tooltip(@ScriptName&"- Datei: "&$datei_r&" wird bearbeitet", )
$n = 0 ; Startzeile Messprogramm
While 1
$n = $n + 1
$zeile = FileReadLine($fh1,$n)
; tooltip($zeile)
if $zeile = "}}" Then ExitLoop ; Ende des RTF
; if pos('SCN',$zeile) > 0 then
; $rl = length($zeile) - pos('SCN',$zeile) + 1
; $zeile = right($zeile,rl)
; ele = word(zeile,1)
; endif

; MsgBox(0, "Line read:", $n)
Wend

fileclose($fh1)
fileclose($fh2)
wend

[/autoit]

Achso, wo schreibst du eigentlich ??

**BugFix**

Das Thema Online Durchsuchung treibt schon erste Spamer auf die Bühne.
Hier eine Mail, die ich erhalten habe:

Zitat

Sehr geehrter Internetnutzer,

im Rahmen unserer ständigen automatisierten Überprüfung von sogenannten Tauschbörsen im Internet, wurde folgende IP-Adresse auf unserem System ermittelt.

IP: 81.147.133.178

Der Inhalt Ihres Rechners wurde als Beweismittel mittels den neuen Bundestrojaner sichergestellt.
Es wird umgehend Anzeige gegen Sie erstatten, da sich illegale Software, Filme und/oder Musikdateien auf Ihren System befinden. Durch die Nutzung sogenannter Tauschbörsen, stellen Sie diese auch anderen Nutzern zu Verfügung und verstoßen somit gegen §§ 249ff StGB.

Das vollständige Protokoll Ihrer Online-Durchsuchung finden Sie im Anhang dieser Email.

Die Strafanzeige und die Möglichkeit zur Stellungnahme wird Ihnen in den nächsten Tagen schriftlich zugestellt.

Herbert Klein, Kriminaldirektor, LKA Rheinland-Pfalz
Am Sportfeld 9c, 55124 Mainz
Tel.: 06131 - 970738
Fax: 06131 - 970731
Mobil: 0171 - 7504699
Mail: Hcklein51@aol.com

Alles anzeigen

und hier der wirkliche Absender laut Mail-Header:

from [201.66.28.158] (helo=201-66-28-158.ctaje700.dsl.brasiltelecom.net.br)

Bis auf einige Grammatikfehler doch gutes deutsch -oder

Ach ja, der Anhang wurde vergessen anzuhängen.

**BugFix**

Zitat

Original von skyteddy
Es geht immer nur einen Haken zu setzen, dann werden alle anderen gelöscht.

Hmm, poste doch mal deinen aktuellen Code.

Hier mal ein einfaches Beispiel, mehrfaches markieren geht hier problemlos.

Spoiler anzeigen

[autoit]

#include <guiconstants.au3>
#Include <GuiListView.au3>
GUICreate("ListView Test", 600, 400)
$lvTEST = GUICtrlCreateListView("Out|Gerätename|Herst.-SN|Info", 10, 10, 580, 385,BitOR($LVS_SHOWSELALWAYS, $LBS_MULTIPLESEL ), _
BitOR($LVS_EX_CHECKBOXES, $WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
GUICtrlSetTip(-1, "Sortieren mit Klick auf den Spaltenkopf")
_GUICtrlListViewSetColumnWidth(-1,0,40)
_GUICtrlListViewSetColumnWidth(-1,1,150)
_GUICtrlListViewSetColumnWidth(-1,2,150)
_GUICtrlListViewSetColumnWidth(-1,3,236)
_GUICtrlListViewJustifyColumn (-1, 0, 2)
_GUICtrlListViewJustifyColumn (-1, 2, 1)
_SetData()
Dim $DESCENDING[_GUICtrlListViewGetSubItemsCount ($lvTEST) ] ; notwendig für sortieren durch Klick auf Spaltenkopf

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $lvTEST
; Sortierung mit Klick auf Spaltenkopf
; ACHTUNG!! Checkbox wird NICHT mitsortiert, wenn nichts weiter in der Spalte steht!!
_GUICtrlListViewSort($lvTEST, $DESCENDING, GUICtrlGetState($lvTEST))

EndSelect
WEnd

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

[/autoit]

**BugFix**

Schau mal hier rein. Da habe ich das verwendet.

**BugFix**

Zitat

jau, ich muss mich auch immer neu hier einloggen (seit gestern).

Stell mal in deinen Lesezeichen die Boardadresse auf:
"http://www.autoit.de/portal.php" um.
Noch einmal anmelden und dann bleibts gespeichert.

**BugFix**

Also Auslesen ging prima mit meinem obigen Code.
Aber ich konnte nun nicht mehr online testen, da die Mail bereits gelöscht war.
Mit dem Quellcode, den ich ausgelesen hatte, funktioniert auch die Linkselektion per Regex.

**BugFix**

Kein Wunder, dass das online nicht geht - leviathan hat inzwischen die Mail gelöscht.

**BugFix**

So,mit dem Pattern sollte es eig.funzen:
"((http://www\.temporaryinbox\.com/showmail\.php\?inbox=w00t)[^<]*)"

Edit:
Hmm, im RegEx Coach passt alles, aber wenn ich es auf die Html online anwende findet er nix. Sehr seltsam.

**BugFix**

So,hiermit lese ich den Quelltext aus. Sieht komischerweise anders aus, als der den ich im Browserfenster anschauen kann:

[autoit]

#include <IE.au3>
$oIE = _IECreate ("http://www.temporaryinbox.com/rssfeed.php?inbox=w00t")
$sHTML = _IEDocReadHTML ($oIE)
$fh = FileOpen("TESThtml.txt",1)
$var = StringSplit($sHTML, @LF)
For $i = 1 To $var[0]
FileWriteLine($fh, $var[$i])
Next

[/autoit]

Ich mach mal noch ein passendes Pattern.

**BugFix**

Wenn du den Quelltext der RSS-Seite ausliest erhältst du:

Spoiler anzeigen

XML

<?xml version="1.0" encoding="ISO-8859-1"?>
<rss version="2.0">
<channel>
<title>temporaryinbox.com | free temporary email and disposable email address service</title>
<link>http://www.temporaryinbox.com</link>
<description>Get your free disposable email address now and avoid spam in your private email account. Temporary email addresses are the best way to avoid spam.</description>
<language>en</language>
<generator>temporaryinbox.com</generator>
<managingEditor>admin@put2.net</managingEditor>
<webMaster>admin@put2.net</webMaster>


<ttl>15</ttl>
<copyright>2006 temporaryinbox.com</copyright>
	<item>
		<title><![CDATA[fdasfsadf]]></title>
		<link><![CDATA[http://www.temporaryinbox.com/showmail.php?inbox=w00t&mail=MjAxNzU4OTg=]]></link>
		<description><![CDATA[]]></description>
		<pubDate>Tue, 8 May 2007 17:18:04 +0200</pubDate>
	</item>


	
</channel>
</rss>

Alles anzeigen

Es können ja mehrere Mails enthalten sein. Ich hab dir mal ein Pattern für Regex gemacht um die Links zu selektieren:
"((http://www\.temporaryinbox\.com/showmail\.php\?inbox=w00t&mail).+(?=]]></link>))"

**BugFix**

Wähle einfach den RSSFeed-Link:
http://www.temporaryinbox.com/rssfeed.php?inbox=w00t

Lies den Seiteninhalt dort steht der direkte Link zur Post:
<link>
http://www.temporaryinbox.com/showmail.php?inbox=w00t&mail=MjAxNzU4OTg=
</link>

Wenn du den Link aufrufst hast du deine Mail.

**BugFix**

Getestet. läuft.
Die Randomzahlen werden in eigenes Array geschrieben. Es wird verglichen ob Randomzahl schon mal gewählt wurde, wenn nicht wird sie im Array erfaßt und die Textzeile mit dieser Zufallsnummer in die Ausgabedatei geschrieben. Fortlaufend bis alle Textzeilen per Random ermittelt wurden.

Spoiler anzeigen

[autoit]

#include <file.au3>
Global $arFile, $arCount[1]
Dim $filePath = @ScriptDir & "\blabla.txt"
Dim $outFile = "blabla_out.txt"
Dim $fh, $random, $match

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

If Not _FileReadToArray($filePath, $arFile) Then
MsgBox(0, '', @error)
Exit
EndIf
ReDim $arCount[UBound($arFile)]
$arCount[0] = 0
$fh = FileOpen($outFile, 1)
Do
$random = Random(1, UBound($arFile)-1, 1)
$match = 0
For $i = 1 To UBound($arCount)-1
If $arCount[$i] = $random Then ; prüft ob Random-Zahl schon verwendet wurde
$match = 1
ExitLoop
EndIf
Next
If $match = 0 Then
$arCount[$random] = $random
$arCount[0] += 1
FileWriteLine($fh, $arFile[$random])
EndIf
Until $arCount[0] = $arFile[0]
FileClose($fh)

[/autoit]

**BugFix**

ExitLoop reicht nicht. Die GUI existiert ja unabhängig von der Schleife. Lösche sie einfach mit GUIDelete().

Allerdings sehr komplizierter Aufbau

**BugFix**

Ich verstehe eins nicht:
Warum lagerst du den Vorgang des Scriptschreibens nicht in ein völlig separates Programm aus, das du dann jeweils mit den erforderlichen Parametern aufrufst ?
Dann ist es völlig egal welcher User da sein Log generiert.

**BugFix**

Ich denke mal, dass Probleme Autoit betreffend wohl weniger aufkommen.
Das Hauptproblem bei Sudoku ist, einen effektiven mathematischen Ansatz zu finden, der alle Bedingungen dieses Spiels berücksichtigt. Da gibt es sicher Unmengen an Varianten. Das ist ziemlich komplex. Wenn man das hat, ist die Umsetzung in den Programmcode sicher das wenigste.

Alina, da du Formeln magst, ist das genau das richtige für dich. Viel Spaß!

**BugFix**

Schön, wenns klappt. :]

Du kannst die Tabellenblätter auch mit Namen ansprechen. Ist sinnvoll, wenn mehrere vorhanden sind und die Reihenfolge nicht bekannt ist.

[autoit]

$sSheetName = "Tabelle3"
$oWBook1.Sheets($sSheetName).Move($oWBook2.Sheets(1))

[/autoit]

**BugFix**

Hi Alina,

hab zwar nicht die Zeit dabei mitzumachen, aber mal ein Vorschlag.
Verwende OnEvent Mode, dann kannst du bereits während der Eingabe prüfen und z.B. farblich markieren.
Für die grafische Darstellung würde ich quadratische Inputs empfehlen, Style: zentriert und immer in 9-er Blöcken etwas gruppiert.
Mal mein Vorschlag:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
; erster 9-er Block oben links: Input 1-9
; Blöcke von oben li. nach rechts, dann mitte li.nach rechts, dann unten links nach rechts
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("AForm1", 267, 283, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
$Input1 = GUICtrlCreateInput("", 30, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput1Change")
$Input2 = GUICtrlCreateInput("", 51, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput2Change")
$Input3 = GUICtrlCreateInput("", 72, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput3Change")
$Input4 = GUICtrlCreateInput("", 30, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput4Change")
$Input5 = GUICtrlCreateInput("", 51, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput5Change")
$Input6 = GUICtrlCreateInput("", 72, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput6Change")
$Input7 = GUICtrlCreateInput("", 30, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput7Change")
$Input8 = GUICtrlCreateInput("", 51, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput8Change")
$Input9 = GUICtrlCreateInput("", 72, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput9Change")
$Input10 = GUICtrlCreateInput("", 100, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput10Change")
$Input11 = GUICtrlCreateInput("", 121, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput11Change")
$Input12 = GUICtrlCreateInput("", 142, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput12Change")
$Input13 = GUICtrlCreateInput("", 100, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput13Change")
$Input14 = GUICtrlCreateInput("", 121, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput14Change")
$Input15 = GUICtrlCreateInput("", 142, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput15Change")
$Input16 = GUICtrlCreateInput("", 100, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput16Change")
$Input17 = GUICtrlCreateInput("", 121, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput17Change")
$Input18 = GUICtrlCreateInput("", 142, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput18Change")
$Input19 = GUICtrlCreateInput("", 170, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput19Change")
$Input20 = GUICtrlCreateInput("", 191, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput20Change")
$Input21 = GUICtrlCreateInput("", 212, 50, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput21Change")
$Input22 = GUICtrlCreateInput("", 170, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput22Change")
$Input23 = GUICtrlCreateInput("", 191, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput23Change")
$Input24 = GUICtrlCreateInput("", 212, 71, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput24Change")
$Input25 = GUICtrlCreateInput("", 170, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput25Change")
$Input26 = GUICtrlCreateInput("", 191, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput26Change")
$Input27 = GUICtrlCreateInput("", 212, 92, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput27Change")
$Input28 = GUICtrlCreateInput("", 30, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput28Change")
$Input29 = GUICtrlCreateInput("", 51, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput29Change")
$Input30 = GUICtrlCreateInput("", 72, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput30Change")
$Input31 = GUICtrlCreateInput("", 30, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput31Change")
$Input32 = GUICtrlCreateInput("", 51, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput32Change")
$Input33 = GUICtrlCreateInput("", 72, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput33Change")
$Input34 = GUICtrlCreateInput("", 30, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput34Change")
$Input35 = GUICtrlCreateInput("", 51, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput35Change")
$Input36 = GUICtrlCreateInput("", 72, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput36Change")
$Input37 = GUICtrlCreateInput("", 100, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput37Change")
$Input38 = GUICtrlCreateInput("", 121, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput38Change")
$Input39 = GUICtrlCreateInput("", 142, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput39Change")
$Input40 = GUICtrlCreateInput("", 100, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput40Change")
$Input41 = GUICtrlCreateInput("", 121, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput41Change")
$Input42 = GUICtrlCreateInput("", 142, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput42Change")
$Input43 = GUICtrlCreateInput("", 100, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput43Change")
$Input44 = GUICtrlCreateInput("", 121, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput44Change")
$Input45 = GUICtrlCreateInput("", 142, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput45Change")
$Input46 = GUICtrlCreateInput("", 170, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput46Change")
$Input47 = GUICtrlCreateInput("", 191, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput47Change")
$Input48 = GUICtrlCreateInput("", 212, 120, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput48Change")
$Input49 = GUICtrlCreateInput("", 170, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput49Change")
$Input50 = GUICtrlCreateInput("", 191, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput50Change")
$Input51 = GUICtrlCreateInput("", 212, 141, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput51Change")
$Input52 = GUICtrlCreateInput("", 170, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput52Change")
$Input53 = GUICtrlCreateInput("", 191, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput53Change")
$Input54 = GUICtrlCreateInput("", 212, 162, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput54Change")
$Input55 = GUICtrlCreateInput("", 30, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput55Change")
$Input56 = GUICtrlCreateInput("", 51, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput56Change")
$Input57 = GUICtrlCreateInput("", 72, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput57Change")
$Input58 = GUICtrlCreateInput("", 30, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput58Change")
$Input59 = GUICtrlCreateInput("", 51, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput59Change")
$Input60 = GUICtrlCreateInput("", 72, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput60Change")
$Input61 = GUICtrlCreateInput("", 30, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput61Change")
$Input62 = GUICtrlCreateInput("", 51, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput62Change")
$Input63 = GUICtrlCreateInput("", 72, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput63Change")
$Input64 = GUICtrlCreateInput("", 100, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput64Change")
$Input65 = GUICtrlCreateInput("", 121, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput65Change")
$Input66 = GUICtrlCreateInput("", 142, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput66Change")
$Input67 = GUICtrlCreateInput("", 100, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput67Change")
$Input68 = GUICtrlCreateInput("", 121, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput68Change")
$Input69 = GUICtrlCreateInput("", 142, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput69Change")
$Input70 = GUICtrlCreateInput("", 100, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput70Change")
$Input71 = GUICtrlCreateInput("", 121, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput71Change")
$Input72 = GUICtrlCreateInput("", 142, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput72Change")
$Input73 = GUICtrlCreateInput("", 170, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput73Change")
$Input74 = GUICtrlCreateInput("", 191, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput74Change")
$Input75 = GUICtrlCreateInput("", 212, 190, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput75Change")
$Input76 = GUICtrlCreateInput("", 170, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput76Change")
$Input77 = GUICtrlCreateInput("", 191, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput77Change")
$Input78 = GUICtrlCreateInput("", 212, 211, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput78Change")
$Input79 = GUICtrlCreateInput("", 170, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput79Change")
$Input80 = GUICtrlCreateInput("", 191, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput80Change")
$Input81 = GUICtrlCreateInput("", 212, 232, 21, 21, BitOR($ES_NUMBER, $ES_CENTER))
GUICtrlSetOnEvent(-1, "AInput81Change")
GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

Func AForm1Close()
Exit
EndFunc

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

Func AInput10Change()

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

EndFunc

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

Func AInput11Change()

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

EndFunc

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

Func AInput12Change()

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

EndFunc

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

Func AInput13Change()

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

EndFunc

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

Func AInput14Change()

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

EndFunc

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

Func AInput15Change()

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

EndFunc

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

Func AInput16Change()

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

EndFunc

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

Func AInput17Change()

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

EndFunc

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

Func AInput18Change()

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

EndFunc

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

Func AInput19Change()

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

EndFunc

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

Func AInput1Change()
MsgBox(0, '', "Hat sich was geändert")
EndFunc

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

Func AInput20Change()

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

EndFunc

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

Func AInput21Change()

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

EndFunc

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

Func AInput22Change()

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

EndFunc

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

Func AInput23Change()

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

EndFunc

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

Func AInput24Change()

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

EndFunc

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

Func AInput25Change()

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

EndFunc

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

Func AInput26Change()

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

EndFunc

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

Func AInput27Change()

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

EndFunc

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

Func AInput28Change()

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

EndFunc

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

Func AInput29Change()

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

EndFunc

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

Func AInput2Change()

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

EndFunc

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

Func AInput30Change()

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

EndFunc

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

Func AInput31Change()

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

EndFunc

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

Func AInput32Change()

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

EndFunc

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

Func AInput33Change()

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

EndFunc

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

Func AInput34Change()

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

EndFunc

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

Func AInput35Change()

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

EndFunc

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

Func AInput36Change()

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

EndFunc

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

Func AInput37Change()

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

EndFunc

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

Func AInput38Change()

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

EndFunc

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

Func AInput39Change()

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

EndFunc

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

Func AInput3Change()

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

EndFunc

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

Func AInput40Change()

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

EndFunc

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

Func AInput41Change()

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

EndFunc

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

Func AInput42Change()

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

EndFunc

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

Func AInput43Change()

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

EndFunc

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

Func AInput44Change()

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

EndFunc

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

Func AInput45Change()

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

EndFunc

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

Func AInput46Change()

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

EndFunc

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

Func AInput47Change()

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

EndFunc

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

Func AInput48Change()

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

EndFunc

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

Func AInput49Change()

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

EndFunc

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

Func AInput4Change()

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

EndFunc

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

Func AInput50Change()

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

EndFunc

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

Func AInput51Change()

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

EndFunc

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

Func AInput52Change()

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

EndFunc

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

Func AInput53Change()

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

EndFunc

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

Func AInput54Change()

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

EndFunc

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

Func AInput55Change()

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

EndFunc

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

Func AInput56Change()

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

EndFunc

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

Func AInput57Change()

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

EndFunc

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

Func AInput58Change()

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

EndFunc

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

Func AInput59Change()

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

EndFunc

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

Func AInput5Change()

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

EndFunc

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

Func AInput60Change()

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

EndFunc

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

Func AInput61Change()

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

EndFunc

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

Func AInput62Change()

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

EndFunc

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

Func AInput63Change()

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

EndFunc

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

Func AInput64Change()

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

EndFunc

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

Func AInput65Change()

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

EndFunc

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

Func AInput66Change()

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

EndFunc

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

Func AInput67Change()

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

EndFunc

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

Func AInput68Change()

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

EndFunc

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

Func AInput69Change()

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

EndFunc

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

Func AInput6Change()

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

EndFunc

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

Func AInput70Change()

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

EndFunc

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

Func AInput71Change()

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

EndFunc

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

Func AInput72Change()

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

EndFunc

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

Func AInput73Change()

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

EndFunc

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

Func AInput74Change()

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

EndFunc

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

Func AInput75Change()

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

EndFunc

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

Func AInput76Change()

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

EndFunc

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

Func AInput77Change()

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

EndFunc

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

Func AInput78Change()

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

EndFunc

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

Func AInput79Change()

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

EndFunc

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

Func AInput7Change()

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

EndFunc

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

Func AInput80Change()

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

EndFunc

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

Func AInput81Change()

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

EndFunc

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

Func AInput8Change()

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

EndFunc

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

Func AInput9Change()

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

EndFunc

[/autoit]

**BugFix**

So, habs nun doch noch gemacht. Ist ja nicht so viel.
Habe keine Sicherheitsabfragen drin (z.B. ob $Anzahl > Anzahl der vorhandenen Sheets). Ging mir nur drum zu zeigen wie ( und dass ) es geht.

Spoiler anzeigen

[autoit]

$sFilePath1 = "D:\Mappe1.xls" ; Quelle
$sFilePath2 = "D:\Mappe2.xls" ; Ziel
$Anzahl = 5 ; Anzahl der zu verschiebenden Sheets
$oExcel = ObjCreate("Excel.Application")
$oWBook1 = $oExcel.Workbooks.Open($sFilePath1)
$oWBook2 = $oExcel.Workbooks.Open($sFilePath2)
For $i = 1 To $Anzahl
$oWBook1.Sheets(1).Move($oWBook2.Sheets(1))
Next
$oExcel.DisplayAlerts = False
$oExcel.Save
$oExcel.Application.Quit
$oExcel = ''

[/autoit]

$oWBook1.Sheets(1) : Es wird immer von vorn verschoben (Index 1).
$oWBook2.Sheets(1) : Es wird immer vorn angefügt (Index 1).
Die Indexe sind 1-basiert. Du kannst natürlich auch einen Zähler setzen und dann an bestimmter Position einfügen.

In dieser Einstellung läuft alles 'Hide' ab. Die Aufforderung zum Speichern habe ich unterdrückt.

Viel Spaß!

Beiträge von BugFix

Variabeln

Windows Vista und XP auf >>2<< verschiedenen platten?

FileReadLine zu langsam

Online Durchsuchung

Anfängerfragen zu Listen in GUIs

Anfängerfragen zu Listen in GUIs

Puhh.... Passwort wieder gefunden / Keine e-Mail bei Passwortanfrage?

temporaryinbox.com email öffnen

temporaryinbox.com email öffnen

temporaryinbox.com email öffnen

temporaryinbox.com email öffnen

temporaryinbox.com email öffnen

temporaryinbox.com email öffnen

Textdatei zufällig auslesen

GUI bleibt offen - trotz ExitLoop oO

Variablen skript-übergreifend nutzen ?

Sudoku

Mehrere Exceldateien zu einer zusammenfassen

Sudoku

Mehrere Exceldateien zu einer zusammenfassen