Oh,
mein Befehl war fehlerhaft. Jetzt klappts. Danke.
Kann man die Möglichkeiten der Attribute irgendwo nachlesen?
Oh,
mein Befehl war fehlerhaft. Jetzt klappts. Danke.
Kann man die Möglichkeiten der Attribute irgendwo nachlesen?
Hallo Community,
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,
leider habe ich mit Regex keinerlei Erfahrung. Kannst Du mir ein Beispiel geben?
$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.mp3
Was meinst Du mit RegExp?
Gruß Denny
Hallo Leute,
ich habe folgendes Problem, und zwar möchte ich alle Dateinamen, die ich über
FileOpenDialog('..',@MyDocumentsDir,'..(*.*)',$FD_FILEMUSTEXIST+$FD_MULTISELECT)
[/autoit]öffne ohne Pfad untereinander eingetragen werden.
Den Pfad entferne ich so:
$ohnePfad = StringRegExpReplace($mitPfad, '.+\\(.+)', '$1')
[/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.
Vielen Dank, jetzt funktioniert auch das Querformat und Seitenränder.
Ich nutze nun aber:
...
$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]
...
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:
#include <GuiButton.au3>
#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)
_GUICtrlButton_SetImage(-1, "shell32.dll", 135, True)
Global $edit1 = GUICtrlCreateInput('',115,20,60,18,$ES_CENTER)
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)
GUICtrlCreateLabel('Tisch 2:',15,42)
GUICtrlCreateLabel('Tisch 3:',15,62)
GUICtrlCreateLabel('Tisch 4:',15,82)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_END()
Case $button
_read()
EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit]Func _read()
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)
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ß Gremlin
Edit 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:
#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
EndFunc
Alles anzeigen
Vielen 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.
Hallo Leute,
hab mal ne Frage zu 'nem Script.
Ich will die Uhrzeit anzeigen lassen, die fortlaufend ist.
Mein Script lässt sich so aber leider nicht mehr beenden.
Danke für Eure Hilfe.
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
$msg=GUICreate("uhrzeit", 200, 100,-1,-1)
$uhr = GUICtrlCreateLabel("" & @HOUR & ":" & @MIN & ":" & @SEC, 15, 15, 90, 20,1)
GUISetState()
While 1
Local $msg = GUIGetMsg()
Sleep(1000)
GUICtrlSetData($uhr,"" & @HOUR & ":" & @MIN & ":" & @SEC)
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
Alles anzeigen
Vielen Dank. Dann war ich ja gar nicht so weit davon entfernt.
Bin eben noch nicht solange dabei.
Ihr seid spitze.