Ach ja was vileicht noch wichtig ist. Ich benutzte ein Windows XP SP3 mit AutoIT 3.3.4.0 und SciTE Version 1.79 , als ich die 4.00.au3 laufen lies. Ich hab einfach ansatt der Start.exe die 4.00.au3 gestartet.
Beiträge von Skar
-
-
Ich hab mir das mal grade angeschaut. Vileicht ist das grade das falche ich habe das WSK mir besorgt. Es ist eine reine ansammlung von programmen das ist kein richtiges program um die Setups zu verwalten. Ich werde mal schauen ob ich vileicht das falsche geladen habe. Da gefällt mir dein IOM viel besser.
-
Was ist WSK?
Wein & Spiritoosen Kontor ist es wohl eher nicht
-
Ok ich schau es mir mal an.
Ich wollte IOM nehmen weil ich da selbst gebastelte Skripte bequem einbauen kann.
-
Ich gebe der 4.00.au3 den Befehl run. (Überspringe also die Sart.au3)
Dann erscheint ein Error.
Title: SQLite Error
Inhalt: not an error
Inhalt: no such table: installs
(einppar mal schleife)
Dann kommt die GUI. Diese enthält dann keinen View Tree sprich Programauswahl.Warum ich die Start.exe überspringe. hm ich mag die nicht. Ich will lieber wissen was da drinne ist. Denn ich habe vor die an meine bedürfnisse anzu passen.
zbich mochte nicht von CD das IOM aufrufen. Ich habe eine externe HD dort befiinden sich alle progs und IOM, und eine Desktop verknüpfung um die IOM aufzurufen um zu sehen was ich für progs habe. Zum hinzufügen hab ich das tool "IOM_Package_Builder_1.10" gefunden. Das möchte ich selber basteln mit AutoIT. Da dises tool bescheiden ist.
Also gewissener maßen ein Program was alle Verzeichnisse und Progs verwaltet ist mein ziel.
Nächste frage:
[autoit]
Eine *.exe steht mir zuverfügung. Ich muss ja eine install.au3 schreiben. Es soll aber nur gestartet werden.
Dann mache ich die benutzereingaben und häckschen aus google toolbar ^^. Auto IT wartet nur darauf das ich fertig bin doch wie merkt er das? Erscheint ein Button mit "weiter drücken" wenn ich fertig bin wäre nicht schlecht. Oder das ein Hiden text auftaucht mit Installation Fertig? Wie muss ich das gestalten?
[/autoit][autoit][/autoit][autoit]
#RequireAdmin
#NoTrayIcon#include "..\..\funktionen.au3"
[/autoit][autoit][/autoit][autoit]$source = _ParentDir(@ScriptDir)
[/autoit]
_LogToMain("Starte Installation...", $source)
_LogToMain("Installation abgeschlossen.", $source) -
Aso jetzt weiß ich wie das gemeint war. "[..]im auftrag für die PC Magazin.". Ich hab ja auch eine E-Mail. Das meißte steht ja auch wirklich da nur die Start.au3 des IOM 4s nicht. Naja vileicht hat er ja einen Grund warum das nicht dabei ist.
Es eilt ja auch nicht. Wenn er mal zufällig hirein guckt mal schaun..... -
Hallo da bin ich auch gleich mal wider mit einer Frage.
Ich habe vor für mich daheim ein eigenes IOM zu basteln. Dises soll mir als Inhaltsverzeichniss dienen, so brauch ich nicht allles silent.
Doch mir fehlt da etwas. Ich habe zur zeit die Dateien:
4.00.au3
funktionen.au3
Start.exeda fehlt aber das eine wie im IOM 3 die
Start.au3Oder was sich auch immer dahinter verbirgt. Die 4.00.au3 zu compelieren und zu starten bringt nur SQL fehler. Kann mir jemand Helfen? Wie ich an den Code komme? Es geht ja auch mit IOM 3 doch da fehlen alle neuerungen oder verbesserungen.
Oder wie kann ich mit Johannes Mitlmeier kontackt aufnehmen? Über die Homepage geht das leider nicht mehr.MfG
Skar -
"Ein Baum wäckst in 6 min zur Hackbaren Pflanze aus ab dem setzen.Ich kann alle 30s einen samen setzen.Ich brauche fürs hacken 1min. Wie viel Zeit müsste ich mir lassen zwischen den samen setzen? So das immer nur 1 baum ausgewacksen ist. Denn ich dan hacken kann und wenn er Fertig ist mit dem Hacken soll in 5s der 2 Baum reif zum hacken sein. zb bildlich
o Stämme x samen I reifer baum
I x x x x
x x x x xo I x x x x
x x x x xo o I x x
x x x x x -
Ich habe eine Ini erstellt.
[Phade]
[LetztePhade]
ID=c:\[Tasten]
ID1=a
ID2=b
usw.Mein Problem beim erstellen ist Folgender: Ist eine Sektion Leer bekom ich ein Error ist mindestens ein eintrag drine bekom ich kein Error.
Woran Liegt das?Mit dem Code Füge ich was ein.
1. Variante die ich benutze
$TEXT = GuiCtrlRead($SpielermenueInput0)
IniWrite (@ScriptDir & "\Pergonsysten.ini", "Phade", "client", $TEXT )2. Variante mit dem Fehler
[autoit]
In der Input steht C:\balbla\prog.exe
[/autoit]
$Path = GuiCtrlRead($Input1S)
$lineS = IniReadSection(@ScriptDir & "\Pergonsysten.ini", "Phadangaben")
For $i = 1 To $lineS[0][0]
If $i <> $lineS[0][0] Then
Else
$sucheposition = StringInStr ( $Path, "\" , 0 , -1 )
$neuekey = StringMid ( $Path , $sucheposition + 1 ) ; hir wirde der \prog.exe vernichtet
IniWrite (@ScriptDir & "\Pergonsysten.ini", "Phadangaben", $neuekey , $Path )
EndIf
Next
msgbox(0, "INFO", "Phad gespeichert") -
Vieln Dank AutoBert genau das war das richtige was ich gesucht habe. Ging super umzusetzen sogar mein Quellcode ist dadurch kleiner geworden um 3-5 Zeilen
-
DAS IST KEIN BOT, SONDERN EINE Andere art eines Autostartmenüs. Ich überblicke mehr.
Meine Gui
Funktion: Einrichten von Programmen die immer mal gestartet werden sollen. Doch ich bestimme was und wann.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#Include <GuiComboBox.au3>FileInstall ("Pergonsysten.ini", @ScriptDir & "\Pergonsysten.ini")
[/autoit] [autoit][/autoit] [autoit]$size = WinGetClientSize("[active]")
[/autoit] [autoit][/autoit] [autoit]
;***************************************************
;***************** Haupt Menu **********************
#Region ### START Koda GUI section ### Haupt Menu
$Form1H = GUICreate("Hauptmenü", 531, 101, Default, Default)
GUISetCursor (2)
GUISetFont(8, 800, 4,"MS Sans Serif")
GUISetBkColor(0x3D95FF)
$Label1H = GUICtrlCreateLabel("Willkommen im Hauptmenu!", 150, 8, 381, 20)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
$ProgrammeH = GUICtrlCreateButton("Programme", 15, 50, 150, 30, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;************** Haupt Menu Ende *******************
;***************************************************
;***************************************************
;***************** Spielermenue ********************
#Region ### START Koda GUI section ### Programmenue
$Programmemenue = GUICreate("Startermenue", 472, 401, Default, Default)
GUISetBkColor(0x3D95FF)
$Programmemenueb2 = GUICtrlCreateButton("Durchsuchen", 288, 48, 80, 21)
$Programmemenueb1 = GUICtrlCreateButton("Starten", 232, 344, 80, 25)
$ProgrammemenueLabel1 = GUICtrlCreateLabel("hier richtig", 17, 16, 435, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$ProgrammemenueInput0 = GUICtrlCreateInput("", 128, 48, 150, 21)
$Label3 = GUICtrlCreateLabel("Hauptprogramm:", 64, 48, 55, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 104, 80, 225, 249)
$Label4 = GUICtrlCreateLabel("1:", 114, 100, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("2:", 114, 124, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("3:", 114, 148, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("4:", 114, 172, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("5:", 114, 196, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("6:", 114, 220, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("7:", 114, 244, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("8:", 114, 268, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("9:", 114, 292, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Dim $Programmemenuec[10]
Dim $LTEXT[10]
For $S=1 to 9 Step 1
$ComboTEXT = IniRead (@ScriptDir & "\Pergonsysten.ini", "LetztePhade", "IDL"& $S, "default" )
$LTEXT[$S] = $ComboTEXT
Next
$Programmemenuec[1] = GUICtrlCreateCombo($LTEXT[1], 170, 100, 150, 25)
$Programmemenuec[2] = GUICtrlCreateCombo($LTEXT[2], 170, 124, 150, 25)
$Programmemenuec[3] = GUICtrlCreateCombo($LTEXT[3], 170, 148, 150, 25)
$Programmemenuec[4] = GUICtrlCreateCombo($LTEXT[4], 170, 172, 150, 25)
$Programmemenuec[5] = GUICtrlCreateCombo($LTEXT[5], 170, 196, 150, 25)
$Programmemenuec[6] = GUICtrlCreateCombo($LTEXT[6], 170, 220, 150, 25)
$Programmemenuec[7] = GUICtrlCreateCombo($LTEXT[7], 170, 244, 150, 25)
$Programmemenuec[8] = GUICtrlCreateCombo($LTEXT[8], 170, 268, 150, 25)
$Programmemenuec[9] = GUICtrlCreateCombo($LTEXT[9], 170, 292, 150, 25)$maltxt = IniRead (@ScriptDir & "\Pergonsysten.ini", "Clientmal", "IDmal", "0" )
[/autoit] [autoit][/autoit] [autoit]
$mal = GUICtrlCreateInput($maltxt, 151, 343, 33, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Hauptprogramm", 103, 343, 43, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("mal:", 199, 343, 33, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ### Programmenuemenue Ende
;************** Spielermenue Ende ******************
;***************************************************While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;#################################################### Programmenuemenue
Case $Programmemenueb2
$reS = FileOpenDialog("Datei öffnen", @DesktopDir, "Alle Dateien (*.*)|Exceutable (*.exe)")
If @error Then
MsgBox(16, "Error" , "Es ist nichts ausgewählt!", 5)
EndIf
GUICtrlSetData($ProgrammemenueInput0, $reS)Case $Programmemenueb1
[/autoit] [autoit][/autoit] [autoit]
$TEXT = GuiCtrlRead($ProgrammemenueInput0)
IniWrite (@ScriptDir & "\Pergonsysten.ini", "Client", "client", $TEXT )
$maltxt = GuiCtrlRead($mal)
IniWrite (@ScriptDir & "\Pergonsysten.ini", "Clientmal", "IDmal", $maltxt )
For $i = 1 to 9 Step 1
$ComboTEXT = GuiCtrlRead($Programmemenuec[$i])
IniWrite (@ScriptDir & "\Pergonsysten.ini", "LetztePhade", "IDL"& $i, $ComboTEXT )
Next
run (@ScriptDir & '\rtm.exe')$malZ = GuiCtrlRead($mal)
[/autoit] [autoit][/autoit] [autoit][/autoit]
For $i=1 to $malZ Step 1
$TEXT = GuiCtrlRead($ProgrammemenueInput0)
Run($TEXT)
Next
Exit
;####################################################Programmenue Ende
;#################################################### Haupt Menu
Case $ProgrammeH
GUISetState (@SW_HIDE, $Form1H)
GUISetState (@SW_SHOW, $Programmemenue)
$Ctext = IniRead (@ScriptDir & "\Pergonsysten.ini", "Client", "client", "default" )
If ( $Ctext <> "" ) Then
GUICtrlSetData($ProgrammemenueInput0, $Ctext)
EndIf
If FileExists(@ScriptDir & '\Pergonsysten.ini') Then
$lineS = IniReadSection(@ScriptDir & "\Pergonsysten.ini", "Phadangaben")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
Dim $AllLinesS = ""
For $i = 1 To $lineS[0][0]
$AllLinesS &= $lineS[$i][1] &"|"
Dim $AllLines2S = $AllLinesS
Next
EndIf
Else
MsgBox(4096,"Warnung" , "Pergonsysten.ini does NOT exists")
EndIf
For $i=1 to 9 Step 1
GUICtrlSetData($Programmemenuec[$i], $AllLines2S)
_GUICtrlComboBox_SetDroppedWidth($Programmemenuec[$i], 500)
Next
;#################################################### Haupt Menu Ende
EndSwitch
WEnddabei existiertt eine Pergonsysten.ini (Pergon = mein PCname)
Spoiler anzeigen
[LetztePhade]
IDL1 =Z:\.....
IDL2 =
IDL3 =
IDL4 =
IDL5 =
IDL6 =
IDL7 =
IDL8 =
IDL9 =[Client]
client=Z:\Sitix\client.exe[Phadangaben]
IDSP0=C:\....
IDSP1=C:\Dokumente und Einstellungen\Karybu\Desktop\.....
IDSP2=C:\Dokumente und Einstellungen\......
IDSP3=Z:\.....[Clientmal]
IDmal=5Zu meinem Problem. Der 1. Run befehl (run (@ScriptDir & '\rtm.exe')) Funktioniert einwandfrei.
Die 2. run
$malZ = GuiCtrlRead($mal)
For $i=1 to $malZ Step 1
$TEXT = GuiCtrlRead($ProgrammeInput0)
Run($TEXT)
Next
hat ein paar startprobleme.Wie komt der Fehler zu stande. Ich gehe meinen Clienten suchen. Klicke start und alles funktioniert wie ich es will.
Beim 2. Start findet das Programm in der ini den Phad und setzt es in die input. Ich brauche nur noch start drücken, DOCH DANN IST ER DA. Der fehler. Der Client kan nicht gestartet werden. Error: "fotal error- font.mul kan nicht gefunden werden. hä? Wo komt die her? Im Phad steht nix von dieser datei. Diese existiert auch komischerweiße ist in dem verzeichnis wo der Client ist. -
Ist es etwas nicht möglich? Muss ich erst die ganze Zeichenkette umdrehen?
Wie mach ich die Combobox einträge rechts bündig? Linksbündig ist ja standart eingestellt.
-
Ja da hab ich aber mit .txt. In einer anderen Skrtiptsprache gibt es
Persistente Variablen. Diese Tragen einen Wert in die registry ein. Diser wird beim neustart aufgerufen und eingetragen. *variable wurden die dort geschrieben. Alles in eine Datei zu schreiben kan ich auch. Doch gibt es eine bessere variante eine kürzere? -
Ich habe hier eine Kombobox,
$Spielermenuec[1] = GUICtrlCreateCombo("", 170, 100, 150, 25)Diese hat gerade noch nicht drinne. ("",. Dort soll der Letzte ausgewählte Phat nach nen neustart des Programes drine stehen. Wie macht ihr das am klügsten?
-
Ich habe eine Combobox in dieser sind Phadangaben drinne. Die werde so benötigt. Doch wie ereiche ich das der benutzer eigentlich nur den Letzten teil Sieht?
zb C:\Dokumente und Einstellungen\buschGAIAAKKU\Desktop\autoBMT.exe Die wird als Variable aus der Combobox ausgelesen und gestartet. Doch der benutzer sieht bei der auswahl nur "C:\Dokumente und Einstellung" der rest ist unsichtbar. Erst wen ich es ausgewählt habe sieht er "KU\Desktop\autoBMT.exe" wenn es makiert ist.
Wie erreiche ich das der Benutzer das schon bei der Auswahl sieht? Habe mich schon mit Syle comands angefreundet in der Hilfe doch die machen nicht das was ich will.
Habe das gefunden:
_GUICtrlComboBox_SetDroppedWidth($Combo1S, 500)Das wäre auch eine Möglichkeit. Doch kent jemand eine wo alles Rechtsbündig anordnen kann?
-
Fehlersuche der Syntax Checker gibt folgtende fehler aus.
Ich Kenzeichne die Fehlersteellen mit "------>" am anfang.Spoiler anzeigen
>C:\Programme\AutoIt3\SciTE\..\au3check.exe "E:\Geändert\(Ver.1.1)SkriptSetup.au3"
AutoIt3 Syntax Checker v1.54.8 Copyright (c) Tylo 2007E:\Geändert\(Ver.1.1)SkriptSetup.au3(1267,16) : ERROR: syntax error
For $i <=
~~~~~~~^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1308,9) : ERROR: missing Wend.
Next
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1262,35) : REF: missing Wend.
If ( $retvalSol = -1 ) then
~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1308,9) : ERROR: missing EndIf.
Next
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1257,35) : REF: missing EndIf.
If ( $resultSol <> 0 ) Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1308,9) : ERROR: missing EndIf.
Next
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1231,6) : REF: missing EndIf.
While
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1308,9) : ERROR: missing EndSwitch.
Next
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1218,30) : REF: missing EndSwitch.
If ($CheckAlfe <> 1) Then
~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1308,9) : ERROR: missing Wend.
Next
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1214,40) : REF: missing Wend.
If StringLen($TypedesDings) < 3 Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\Geändert\(Ver.1.1)SkriptSetup.au3(1308,9) : ERROR: syntax error
Next
^
E:\Geändert\(Ver.1.1)SkriptSetup.au3 - 7 error(s), 0 warning(s)
>Exit code: 2 Time: 0.220doch funktioniert die Funktion irgendwie.
Funktion
Spoiler anzeigen
[autoit]
[/autoit]
Case $Button4So
$NamedesDings = GuiCtrlRead($Input1So )
$TypedesDings = GuiCtrlRead($Input2So )
StringRegExpReplace($Input2So, '\w', '')
Dim $wahr = 2 ;einen wehrt der weder 1 noch 0 verwirklicht aber benötigt wird
------> If StringLen($TypedesDings) < 3 Then
MsgBox(16, "Warnung", "Es wurden kein Type mit 3 Zeichen eingetragen!", 10)
Else
$CheckAlfe = StringIsAlpha ( $TypedesDings )
------> If ($CheckAlfe <> 1) Then
MsgBox(16, "Warnung", "Der Type ist unbekannt, verwenden sie A - Z !", 10)
Else
$Typ = GuiCtrlRead($Input2So )
$TypG = StringUpper ( $Typ )
$FindSol = FileOpen (@ScriptDir & "\Find.txt", 0 )
If ($FindSol = -1) Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
Dim $wahr = 0
$AllLines1Sol = ""
While 1
$Neuerstring = FileReadLine($FindSol)
If @error = -1 Then
If ($wahr = 0) Then
MsgBox(16, "Warnung", "Dave, das kann ich nicht tun! Type existiert nicht.", 10)
Else
$Info = FileOpen (@ScriptDir & "\Infoanlagen.txt", 1 )
If ($Info = -1) Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
Else
Dim $ErsatzSol = ""
FileWrite($Info, @CRLF & "GELÖSCHT WURDE=" & $NamedesDings & " _" & $TypG & " aus " & $ErsatzSol )
FileClose($Info)
msgbox(0, "INFO", "Typ wurde gelöscht!" )
FileClose($FindSol)
EndIf
EndIf
StringTrimRight($AllLines1Sol, 1)
ExitLoop
EndIf
$Posu = StringInStr ( $Neuerstring , "_" )
Dim $Posy = $Posu - 3
$line1Sol = StringMid ( $Neuerstring, $Posy )
$resultSol = StringInStr ( $line1Sol, $TypG )
;msgbox(0, "ERROR", $resultSol )
------> If ( $resultSol <> 0 ) Then
Dim $wahr = 1
Dim $TempTypG = $TypG
$ErsatzSol = StringReplace ( $line1Sol , $TempTypG , " " )
$retvalSol = _ReplaceStringInFile($string6 , $line1Sol, $ErsatzSol )
------> If ( $retvalSol = -1 ) then
msgbox(0, "ERROR", "Es konnte nicht ersetzt werden in File: " & $string6 & " Error: " & @error)
exit
Else
Dim $i = 0
------> For $i <= 1 to 4 Step 1
Dim $NeueZeile = ""
;msgbox(0, "INFO", "Jetzt sieht der String so aus=$ErsatzSol: " & $ErsatzSol )
$resultSol2 = StringInStr ( $ErsatzSol, "_ _" )
If ( $resultSol2 <> 0 ) Then
$ErsatzSol2 = StringReplace ( $ErsatzSol , "_ _" , "_" )
$retvalSol2 = _ReplaceStringInFile($string6 , $ErsatzSol , $ErsatzSol2 )
If ( $retvalSol2 = -1 ) then
msgbox(0, "ERROR", "Es konnte nicht ersetzt werden in File: " & $string6 & " Error: " & @error)
exit
Else
;~ msgbox(0, "INFO", "2. Veränderung= " & $ErsatzSol2 )
Dim $ErsatzSol = $ErsatzSol2
EndIf
EndIf
$resultSol3 = StringInStr ( $ErsatzSol, " _" )
If ( $resultSol3 <> 0 ) Then
$ErsatzSol3 = StringReplace ( $ErsatzSol , " _" , "" )
$retvalSol3 = _ReplaceStringInFile($string6 , $ErsatzSol , $ErsatzSol3 )
If ( $retvalSol3 = -1 ) then
msgbox(0, "ERROR", "Es konnte nicht ersetzt werden in File: " & $string6 & " Error: " & @error)
exit
Else
;~ msgbox(0, "INFO", "3. Veränderung= " & $ErsatzSol3 )
Dim $ErsatzSol = $ErsatzSol3
EndIf
EndIf
$resultSol4 = StringInStr ( $ErsatzSol, "_ " )
;~ msgbox(0, "INFO", "Finde:" & $resultSol4 )
If ( $resultSol4 <> 0 ) Then
$ErsatzSol4 = StringReplace ( $ErsatzSol , "_ " , "" )
$retvalSol4 = _ReplaceStringInFile($string6 , $ErsatzSol , $ErsatzSol4 )
If ( $retvalSol4 = -1 ) then
msgbox(0, "ERROR", "Es konnte nicht ersetzt werden in File: " & $string6 & " Error: " & @error)
exit
Else
;~ msgbox(0, "INFO", "4. Veränderung= " & $ErsatzSol4 )
Dim $ErsatzSol = $ErsatzSol4
EndIf
EndIf
;~ msgbox(0, "INFO", $i )
------> Next
EndIf
EndIf
WEnd
EndIf
EndIf -
Vielen Dank. Ich denke die Hochkommas waren für mein Problem verantwortlich. Form1H Ist mein Hauptmenue. Doch es hätte nur unnötig den Quelltext verlängert. Deshalb lies ich es weg. Ich hab auch mitbekomen das Sie einige unnötige Leerzeilen entfernt haben.
Ich werde die mal unterlassen zu machen.Sie haben oben einen Fehlercode, sowas würde mir helfen. Wo kan ich sowas über AutoIT finden. Debugermodus?
-
Ich weiß nicht was ich falsch mache. Ich bekomme keine richtige Fehlertmeldung die mir was nützet.
Was in den txts steht ist egal wir sowiso alles zusamen gefügt in eine.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
;***************************************************
;***************** Skriptschreiben *****************
#Region ### START Koda GUI section ###
$UpdatesF = GUICreate("Updates Service", 317, 171, Default, Default)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0x3D95FF)
$Pfad = @ScriptDir & '\UpdatesJM.txt'
$UpdatesLI = GUICtrlCreateInput($Pfad, 16, 40, 265, 21)
$Updates1 = GUICtrlCreateButton("Durchsuchen", 160, 72, 123, 25, 0)
GUICtrlSetCursor (-1, 0)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Updates2 = GUICtrlCreateButton("Fertig stellen", 160, 126, 123, 25, 0)
GUICtrlSetCursor (-1, 0)
$UpdatesL = GUICtrlCreateLabel("Wählen sie den das Update aus!", 16, 16, 159, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Warten Form
$wait = GUICreate("Bitte Warten", 201, 50, Default, Default) ;, BitOR($WS_CAPTION,$WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS)) <---------- Geht auch nicht!!!!!!
GUISetBkColor(0x3D95FF)
$progressbar1 = GUICtrlCreateProgress(10, 10, 180, 20)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
;*********** Skriptschreiben Ende ******************
;***************************************************While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg;####################################################
[/autoit]
Case $Updates1
$reU = FileOpenDialog("Datei öffnen", @DesktopDir, "Alle Dateien (*.*)")
If @error Then
MsgBox(16, "Error" , "Es ist nichts ausgewählt!", 5)
EndIf
GUICtrlSetData($UpdatesLI, $reU)
Case $Updates2
GUISetState (@SW_SHOW, $wait)
GUICtrlSetData($progressbar1, 1)
GUICtrlSetData($wait, "Bitte warten...")
$Updatepfhad = GuiCtrlRead($UpdatesLI )
If FileExists(@ScriptDir & '\JtM.txt') Then
FileDelete (@ScriptDir & "JtM.txt" )
Else
EndIf
$file1TJ = FileOpen (@ScriptDir & "\sammlung.txt", 0 )
If $file1TJ = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
$AllLines1TJ = ""
While 1
$line1TJ = FileReadLine($file1TJ)
If @error = -1 Then
$file1TJ2 = FileOpen (@ScriptDir & "\Find.txt", 0 )
If $file1TJ2 = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!")
Exit
EndIf
GUICtrlSetData($progressbar1, 35)
FileWrite($oneJ, @CRLF )
$AllLines1TJ2 = ""
While 1
$line1TJ2 = FileReadLine($file1TJ2)
If @error = -1 Then
Dim $phu = '"' & $Updatepfhad & '"'
$file1TJ3 = FileOpen ($phu, 0 )
If $file1TJ3 = -1 Then
MsgBox(0, "Error", "Kann Datei nicht Öffnen!" & $phu)
Exit
EndIf
GUICtrlSetData($progressbar1, 75)
FileWrite($oneJ, @CRLF )
$AllLines1TJ3 = ""
While 1
$line1TJ3 = FileReadLine($file1TJ3)
If @error = -1 Then
GUICtrlSetData($progressbar1, 100)
Sleep (1000)
StringTrimRight($AllLines1TJ3, 1)
ExitLoop
EndIf
FileWrite($oneJ, $line1TJ3 & @CRLF )
WEnd
StringTrimRight($AllLines1TJ2, 1)
ExitLoop
EndIf
FileWrite($oneJ, $line1TJ2 & @CRLF )
WEnd
StringTrimRight($AllLines1TJ, 1)
ExitLoop
EndIf
$oneJ = @ScriptDir & "\JtM.txt"
FileWrite($oneJ, $line1TJ & @CRLF )
WEnd
msgbox(0, "INFO", "JtM.txt ist Fertig, Sie sollten diese Jetzt umbenennen")
GUISetState (@SW_HIDE, $wait)
GUISetState (@SW_HIDE, $UpdatesF)
GUISetState (@SW_SHOW, $Form1H)
;####################################################
EndSwitch
WEnd -
Danke SchrotterCh
[autoit][/autoit][autoit][/autoit][autoit]
Das Klappt so.FileInstall ("CodeJM.txt", @ScriptDir & "\CodeJM.txt")
[/autoit][autoit][/autoit][autoit][/autoit]
FileInstall ("EUOXR.exe", @ScriptDir & "\EUOXR.exe") -
Ich habe ein Problem. Ich will mit FileInstall folgendes machen. Die untenstehenden Datein einbinden.
[autoit]
[/autoit]
FileInstall("C:\Dokumente und Einstellungen\busch.GAIAAKKU\Desktop\Geändert\CodeJM.txt", "C:\CodeJM.txt" )
FileInstall("C:\Dokumente und Einstellungen\busch.GAIAAKKU\Desktop\Geändert\EUOXR.exe", "C:\EUOXR.exe")Doch möchte ich flexible sein. Und es im Localen Ordner machen egal wo der sich befindet. Doch das geht nicht. Hat jemand eine Idee wie ich das Flexible machen kann oder wie es richtig geht?
[autoit]
[/autoit]
FileInstall(@ScriptDir & '\CodeJM.txt' )
FileInstall(@ScriptDir & '\EUOXR.exe' )