Hat wirklich keiner eine Idee?
Beiträge von Gremlin78
-
-
Hallo Leute,
es ist ja möglich Icons in Form einer .dll einzubinden. Kann man das in ähnlicher Form mit einer .icl Datei?Gruß Gremlin.
-
Oh,
mein Befehl war fehlerhaft. Jetzt klappts. Danke.Kann man die Möglichkeiten der Attribute irgendwo nachlesen?
-
Hallo Community,
[autoit]
ich würde gern Einträge in Excel formatieren.
Bisher ging das ja noch ganz gut über$oExcel.Range("A1:D1") .Font.Name..
[/autoit]
Gibt es jetzt noch eine Möglichkeit oder wurde es komplett entfernt?Gruß Denny
-
Danke, das ist es.
Hab den Array noch in nen String gewandelt und über ne Messagebox ausgeben.Vielen Dank Andy
-
Danke Andy für deinen Tip,
[autoit]
leider habe ich mit Regex keinerlei Erfahrung. Kannst Du mir ein Beispiel geben?
[/autoit]
$hfile = FileOpenDialog('Hash-Datei auswählen',@MyDocumentsDir,'MD5-Hash (*.md5)')
$inhalt = FileRead($hfile)
MsgBox(64,'',StringRegExp('?:[^a-fA-F0-9]|\b)([a-fA-F0-9]{32})(?:[^a-fA-F0-9]|\b)',$inhalt));?????Gruß Gremlin
-
Hallo Leute,
ist es möglich über_FileReadLine() eine bestimme Zeile mit dem Hash auszulesen, egal wo er steht, quasi das die Zeilen mit Kommentaren (#...) und leere Zeilen übersprungen werden?
Gruß Gremlin
-
Vielen Dank Kanashius,
das ist die Lösung.

-
Danke für deine Lösung,
nun werden alle Dateien eingetragen, aber leider kommt bei mir sowas dabei raus:
Ordner|datei1.txt|datei2.mp3Ordner|datei1.txt|datei2.mp3Ordner|datei1.txt|datei2.mp3 (aus irgendeinem Grund 3 mal???)
Ich hätte es gern so (ohne Ordner):
datei1.txt
datei2.mp3Was meinst Du mit RegExp?
Gruß Denny -
Hallo Leute,
[autoit]
ich habe folgendes Problem, und zwar möchte ich alle Dateinamen, die ich überFileOpenDialog('..',@MyDocumentsDir,'..(*.*)',$FD_FILEMUSTEXIST+$FD_MULTISELECT)
[/autoit]öffne ohne Pfad untereinander eingetragen werden.
[autoit]
Den Pfad entferne ich so:$ohnePfad = StringRegExpReplace($mitPfad, '.+\\(.+)', '$1')
[/autoit]
[autoit]
Eintrag in txt mit:FileWrite($hfile,$ohnePfad)
[/autoit]
doch leider funktioniert das nur bei einer Datei, da die übrigen Dateien mit | getrennt sind.
Bei mehreren Dateien erfolgt keine einzige Eintragung.
Ich habe leider keinerlei Idee oder Lösungsansatz. 
Vielen Dank für eure Mühe.
Gruß Gremlin -
F**k, wie dumm.
[autoit]
Vielen Dank, jetzt funktioniert auch das Querformat und Seitenränder.
Ich nutze nun aber:
[/autoit]
...
$oExcel.ActiveSheet.PageSetup.Orientation = 2
$oExcel.ActiveSheet.PageSetup.CenterHeader = 'Überschrift'
$oExcel.ActiveSheet.PageSetup.LeftMargin = $oExcel.Application.InchesToPoints(0.25)
... -
Ich bekomme keinen Error oder Fehlermeldung. Es funktioniert alles außer, dass eine Kopfzeile erstellt wird.
-
Hallo Leute,
ich habe das Problem, dass die Erstellung der Kopfzeile fehlschlägt. Hier mein Quellcode dafür:
[autoit]
[/autoit]
...
Local $FileName=@ScriptDir &"\test.xls"
$oExcel= _ExcelBookNew()
For $oWS In $oExcel.Worksheets
With $oWS.PageSetup
.LeftHeader = "Datum"
.CenterHeader = "Überschrift"
.RightHeader = "Blatt-Nr.: "
EndWith
Next
_ExcelSheetAddNew($oExcel, 'neu')
_ExcelWriteCell($oExcel, 'Text',1,1)
_ExcelBookSaveAs($oExcel, $FileName, "xls")
_ExcelBookClose($oExcel)
...Desweiteren würde ich gern, dass die Seite als Querformat mit schmalen Seitenrändern gedruckt wird.
Ist das möglich?Vielen Dank, Gremlin
-
Hey Spitze,
vielen Dank Oscar, du hast mir wieder einmal den Tag gerettet.
Gruß Gremlin -
Hallo Leute,
ich habe folgendes Problem. Ich möchte aus einer txt-Datei die Einträge in inputboxen zufällig ausgeben. An sich nicht problematisch, allerdings sind es sieben inputboxen und nur vier Einträge in der Datei. Diese sollen aber in alle sieben inputboxen einfügbar sein, was bei mir nur funktioniert wenn ich die acht (verschiedene) Einträge in der Datei mache.
(z.B. new.txt mit den Einträgen)
Gast 1
Gast 2
Gast 3
Gast 4
5
6
7
8
und hier mein Beispiel-Quellcode:Spoiler anzeigen
[autoit]#include <GuiButton.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <File.au3>Global $Form1 = GUICreate('Test', 440, 220,-1,-1)
[/autoit] [autoit][/autoit] [autoit]Global $button = GUICtrlCreateButton('',400,0,40,40,$BS_ICON)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlButton_SetImage(-1, "shell32.dll", 135, True)Global $edit1 = GUICtrlCreateInput('',115,20,60,18,$ES_CENTER)
[/autoit] [autoit][/autoit] [autoit]
Global $edit2 = GUICtrlCreateInput('',175,20,60,18,$ES_CENTER)
Global $edit3 = GUICtrlCreateInput('',115,40,60,18,$ES_CENTER)
Global $edit4 = GUICtrlCreateInput('',175,40,60,18,$ES_CENTER)
Global $edit5 = GUICtrlCreateInput('',115,60,60,18,$ES_CENTER)
Global $edit6 = GUICtrlCreateInput('',175,60,60,18,$ES_CENTER)
Global $edit7 = GUICtrlCreateInput('',115,80,60,18,$ES_CENTER)GUICtrlCreateLabel('Tisch 1:',15,22)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel('Tisch 2:',15,42)
GUICtrlCreateLabel('Tisch 3:',15,62)
GUICtrlCreateLabel('Tisch 4:',15,82)GUISetState()
[/autoit] [autoit][/autoit] [autoit]
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_END()
Case $button
_read()EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit]Func _read()
[/autoit] [autoit][/autoit] [autoit]
if FileExists("new.txt") Then
FileCopy("new.txt",@TempDir&"\db.tmp",1)
For $i = 0 To 6
Local $file=FileOpen(@TempDir&"\db.tmp",0)
Local $txt = @TempDir&"\db.tmp"
Local $iLines = _FileCountLines($txt)
Local $iNumber = Random(1,$iLines)
Local $key = FileReadLine($txt, $iNumber)GUICtrlSetData($edit1+$i, $key)
[/autoit]
Local $sRepl = $key&@crlf
Local $sText = FileRead($file)
Local $sNewText = StringReplace($sText, $sRepl,"")
FileClose($file)
FileDelete(@TempDir&'\db.tmp')
FileWrite(@TempDir&'\db.tmp', $sNewText)
Next
EndIf
EndFunc
Func _END()
FileDelete(@TempDir&'\db.tmp')
Exit
EndFunc
Vielleicht habt ihr eine Idee, was ich verbessern kann.
Gruß GremlinEdit Oscar: Bitte bei längeren Quelltexten zusätzlich zu dem AutoIt-Tag auch den Spoiler-Tag verwenden. Habe ich jetzt hier mal eingefügt.
-
Danke Schnitzel,
das mit der Checkbox hab ich jetzt anders geregelt (über Switch/Case in der While) und meine Texte in der Statusleiste habe ich nun mit Leerzeichen aufgefüllt
(vielleicht nicht die schönste Variante), dass meine Tooltips angezeigt werden.Nochmals Danke für deine Mühe.
Gruß Gremlin. -
Hallo Leute,
ich habe folgende Probleme, vielleicht könntet ihr mir nen Tip geben welche Fehler mache.
Der Tooltip in der Statusbar funktionert nicht und das Label bzw. das Inputfeld flackern öfters.
Hier mein Quellcode:C
Alles anzeigen#include <WindowsConstants.au3> #include <GuiStatusBar.au3> #include <GuiConstantsEx.au3> HotKeySet('{ESC}','_End') Global $GUI = GUICreate('Stausbar Tooltip', 400, 225, -1, -1,$WS_Border) Global $label = GUICtrlCreateLabel('my label', 10, 20,100,18) GUICtrlSetTip(-1, 'tip of my label') Global $input = GUICtrlCreateInput('my input',10,40) GUICtrlSetTip(-1, 'tip of my input') Global $check = GUICtrlCreateCheckbox('my Checkbox',10,60) Global $hStatus = _GUICtrlStatusBar_Create($GUI, -1, "", $SBARS_TOOLTIPS) Global $aParts[3] = [250,345,400] GUISetState() _GUICtrlStatusBar_SetMinHeight($hStatus, 25) _GUICtrlStatusBar_SetParts($hStatus, $aParts) _GUICtrlStatusBar_SetText($hStatus,'test',0) _GUICtrlStatusBar_SetText($hStatus,'--Versions-Nr.--',1) _GUICtrlStatusBar_SetTipText($hStatus,0,'Das Programm') _GUICtrlStatusBar_SetTipText($hStatus,1,'gibt kein Statusbar') _GUICtrlStatusBar_SetTipText($hStatus,2,'Tooltip zurück!') While 1 Sleep(10) if GUICtrlRead($check)=$GUI_CHECKED Then GUICtrlSetState($input,$GUI_Hide) GUICtrlSetData($label,'my label is changed') Else GUICtrlSetState($input,$GUI_Show) GUICtrlSetData($label,'my label') EndIf WEnd Func _End() _GUICtrlStatusBar_SetText($hStatus,'Auf Wiedersehen',0) Sleep(1500) Exit EndFuncVielen Dank.
Gremlin78 -
Danke Oscar, funktioniert wirklich spitze.
-
Hallo Leute,
hab mal wieder ein Problem...
Ich möchte in meine Statusbar mein Programm-Icon integrieren. Es funktioniert,wenn ich es ein zweitesmal installiere und aufrufe:
FILEINSTALL('test.ico',@TempDir&'\test.ico')
Global $hIcon = _WinAPI_LoadImage(0,@TempDir&'\test.ico', $IMAGE_ICON, 16, 16, $LR_LOADFROMFILE)nun meine Frage:
Ist es möglich den Aufruf so umzustellen, das Icon aus dem @Scriptfullpath zu erhalten?Danke, Gremlin78
-
Vielen Dank.