Beiträge von bastian256

Hallo ProgrammingDonkey,

ne, das ist nicht ganz das was ich gesucht habe. Ich habe das Problem schon anderweitig gelöst.

vielen Dank

Hallo Zusammen,

ich habe folgendes vor:

Ich möchte durch ein autoit Script automatisiert text in einer Textbox in einem Word Dokument einfügen.

Könnt ihr Anregungen/Tipps geben wie ich an die Sache rangehe?

Vielen Dank

Danke, hat mir weitergeholfen

Nun ja ich habe es auch mit GUISetFont probiert und hier müsste ich die ganzen Buttons in die Case miteinbinden.

Hallo Leute, ich stehe vor einem Problem.

Ich möchte über 3 verschiedene Buttons global die Schriftgröße anderer Buttons ändern.

Momentan habe ich das Problem das Guictrlsetfont immer nur einen Button ändert.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 320, 173, 255, 247)
;~ $Label1 = GUICtrlCreateLabel("Label1", 105, 24, 127, 52)

$Button1 = GUICtrlCreateButton("16", 24, 90, 33, 25)
$Button2 = GUICtrlCreateButton("32", 72, 90, 33, 25)
$Button3 = GUICtrlCreateButton("48", 120, 90, 33, 25)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###
GUISetState()

global $Button22= GUICtrlCreateButton("1", 16, 67, 75, 25)
global $Button21= GUICtrlCreateButton("2", 16, 122, 75, 25)
Global $Button5 = GUICtrlCreateButton("3", 16, 232, 75, 25)
Global $Button6 = GUICtrlCreateButton("4 4", 16, 177, 75, 25)
Global $Button7 = GUICtrlCreateButton("5 4", 100, 177, 80, 25)
global $Button8 = GUICtrlCreateButton("6", 100, 67, 80, 25)
global $Button9 = GUICtrlCreateButton("7 7", 16, 20, 100, 25)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;~ $Label1 = GUICtrlCreateLabel("Label1", 105, 24, 127, 52)
GUIctrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

Case $Button2
GUIctrlSetFont(-1,14, 400, 0, "MS Sans Serif")
;~ $Label1 = GUICtrlCreateLabel("Label1", 105, 24, 127, 52)

Case $Button3
GUIctrlSetFont(-1,20, 400, 0, "MS Sans Serif")
;~ $Label1 = GUICtrlCreateLabel("Label1", 105, 24, 127, 52)

EndSwitch
WEnd
Exit

habt ihr einen Lösungsansatz für mich?

Danke euch.

Ne bin noch neu auf dem Gebiet Autoit.... =) Aber danke für deine Unterstützung. Habe mein Script angepasst und teste es mal.

Die Textdatei dient zur Fehlerbehebung. So ist sichtbar welche Dateien eingelesen wurden. Wenn ich $aScriptdir anstelle von $testdir einfüge passiert nichts. Ich habe für _ArraySort eine Variable vergeben uind diese test weise im _WordDocAddPicture eingefügt. Dies klappt aber leider auch nicht.

#include <File.au3>
#include <Array.au3>
#include <Word.au3>

$Path = "C:\Users\AutoIt\unzip"
$CCDir = "C:\Temp\unzip"
$aScriptDir = _FileListToArray($Path,"*.jpeg")

$array = _ArraySort($aScriptDir,1)

;~ _FileWriteFromArray ($CCDir & "resultfromarray.txt", $aScriptDir)
;~ $file = FileOpen($CCDir & "resultfromarray.txt")

Local $oWordApp = _WordCreate()
Local $oDoc = _WordDocGetCollection($oWordApp, 0)
;~ $file = FileOpen($CCDir & "resultfromarray.txt", 0)
;~ global $line = FileReadLine($file)
;~ $testdir = $Path & $line

For $i = 0 To UBound($aScriptDir) -1
Local $oShape = _WordDocAddPicture($oDoc, $array, 0, 1)
Next

Ich habe das ganze jetzt im array sortiert und in einer For schleife eingebunden. Allerdings wird jetzt 13 mal das gleiche Bild angezeigt. Wo liegt mein Fehler?

#include <File.au3>
#include <Array.au3>
#include <Word.au3>

$Path = "C:\Users\AutoIt\unzip"
$CCDir = "C:\Temp\unzip"
$aScriptDir = _FileListToArray($Path,"*.jpeg")

_ArraySort($aScriptDir,1)

_FileWriteFromArray ($CCDir & "resultfromarray.txt", $aScriptDir)
$file = FileOpen($CCDir & "resultfromarray.txt")

Local $oWordApp = _WordCreate()
Local $oDoc = _WordDocGetCollection($oWordApp, 0)
$file = FileOpen($CCDir & "resultfromarray.txt", 0)
global $line = FileReadLine($file)
$testdir = $Path & $line

For $i = 0 To UBound($aScriptDir) -1
$aScriptDir[$i] = $i + 1
Local $oShape = _WordDocAddPicture($oDoc, $testdir, 0, 1)
Next

Wenn ihr mir nochmal Hinweise geben könntet wäre das Super.

Danke

Hallo Leute,

folgendes Problem: ich möchte bilder in Word importieren mittels eines Autoit Scriptes.
Dies funktioniert sowiet. Mein Problem ist aber das er mit dem ersten beginnt und dieses am Ende wenn alle Bilder im Word dokument eingefügt wurden, am Ende steht.

Gibt es eine Möglichkeit das Letzte Bild als erstes zu importieren ?
Hier mein Quellcode:

#include <Word.au3>
#include <File.au3>
#include <Array.au3>
$sPath = "C:\Temp\unzip"
$search = FileFindFirstFile($sPath & "*.jpeg")

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No images found")
Exit
EndIf

$oWordApp = _WordCreate ()
$oDoc = _WordDocGetCollection ($oWordApp, 0)

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$oShape = _WordDocAddPicture ($oDoc, $sPath & $file, 0, 1)
If Not @error Then $oShape.Range.InsertAfter (@CRLF)
WEnd

; Close the search handle
FileClose($search)

Hallo Leute,

ich habe ein Problem. Ich möchte eine Variable innerhalb eines CMD befehles einfügen.

Mein Quelltext:

Global $shellcommand = 'C:\Temp\extractMHT.exe "C:\Temp\RFA\RFA" & $line & Chr(32) & "C:\Temp\unzip"'

Nun wird mir aber folgendes angezeigt wenn ich diesen String mit Shellexecute ausführe.

'C:\Temp\extractMHT.exe "C:\Temp\RFA\RFA\" & $line & Chr(32) & "C:\Temp\unzip"'

Ich habe dies mithilfe einer MSGBox anzeigen lassen.

Das Problem sind die beiden ' am anfang und am Ende. Wie kann ich jedoch die Variablen innerhalb auflösen lassen?

Wie kann ich diesen String mit Shellexecute ausführen?

Vielen Dank für eure Hilfe.

Hallo Leute,

ich habe eine Frage bezüglich Fileread und Filewrite.
Ich möchte eine bestimmte Anzahl von Zeichen aus einem Satz in eine neue Datei schreiben.

z.b.
Start1233 -test123

Hier sollen nur die ersten 3 Zeichen (Sta) in die neue Datei geschrieben werden.
Könnt ihr mir hier weiterhelfen?

Vielen Dank

Wunderbar....jetzt funzt es.. Danke Dir

richtig genau so ist die Beschreibung. Mein Problem ist allerdings:

ich starte das Script, wähle die Exe File aus. Dann cancel ich die Installation und @error = 0. Hier wird kein wert des Installers weitergegeben. Bei beiden Fällen (erfolgreich/fehlerhafte Installation) erscheint Installation success.

Entschuldige. die msgbox war nur zum auslesen des fehlercodes.
richtig $rc sollte ausgelesen werden.

Hallo Freunde,

ich stehe vor einem Problem. Ich habe in meinem Autoit-Script einen Step welcher eine Installation durchführt.
Ob die Installation erfolgreich war soll in einem Error Handling ausgewertet werden.
Leider wird jedoch ausgewertet ob der Befehl richtig ausgeführt wurde und nicht die Installation.Könnt ihr hier helfen?

global $var
global $rc
$var = FileOpenDialog ( "Open the file", "C:", "Executable (*.exe;*.msi)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)

$rc = ShellExecuteWait($var)
if @error = 1 then
MsgBox(1,"",@error & "The installation failed")
Elseif @error = 0 Then
MsgBox(1,"","installation success")

Danke

Hay, vielen Dank. hat geklappt. Und danke für den Tip mit dem Quelltext....

Hallo Leute,

ich habe ein kleines Problemchen und komme nicht weiter in oben genannten Thema. Ich möchte das meine Buttons sich automatisch an den text den Sie beinhalten anpassen. Wenn der Button 20 Zeichen an text enthält sollte dieser auch den kompletten text anzeigen.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GuiCreate("test", 585, 260, 2269, 263)
$f_path = "C:\Temp\text.txt"

$Label1 = GUICtrlCreateLabel($f_path, 24, 16, 524, 17)
$Button1 = GUICtrlCreateButton("test1", 24, 40, 75, 25)
$Button2 = GUICtrlCreateButton("test2", 112, 40, 75, 25)

$Button3 = GUICtrlCreateButton(StringLeft("Installation_" & $f_path, 7), 200, 40, 75, 25)
GUICtrlSetTip(-1, "Installation_" & $f_path)

$Button4 = GUICtrlCreateButton(StringLeft("Deinstallation_" & $f_path, 7), 288, 40, 75, 25)
GUICtrlSetTip(-1, "Deinstallation_" & $f_path)

$Button5 = GUICtrlCreateButton("Install File", 376, 40, 75, 25)

$Button6 = GUICtrlCreateButton("Add install File to test1", 24, 80, 75, 25)
GUICtrlSetResizing ($Button6, $GUI_DOCKRIGHT)

$Button7 = GUICtrlCreateButton("Cancel", 112, 176, 75, 25)

$Group1 = GUICtrlCreateGroup("Packagename", 8, 0, 569, 241)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
;~ Local $rc = _RunDos ('"start "" /wait notepad.exe "' & $f_path1)
Case $Button2
;~ Local $rc = _RunDos ('"start "" /wait notepad.exe "' & $f_path2)
Case $Button3

Case $Button4

Case $Button5
Local $exec = FileOpenDialog("select the file please", @DesktopDir, "Setup Files (*.exe;*.msi)")

Case $Button6
MsgBox(4096,"The file you selected is: " & $exec, $exec, 10)
Case $Button7
Exit
EndSwitch
WEnd

Wenn jemand von euch eine Idee hat, einfach her damit.

Thx for all.