#include <Inet.au3>
#include <String.au3>
#include <Array.au3>
Local $source = _INetGetSource("http://www.google.de")
Dim $ary = _StringBetween($source, "href='", "'")
_ArrayDisplay($ary)Nimms mir bitte nicht übel, aber kannst du gar nix alleine?
#include <String.au3>
#include <Inet.au3>
Local $source = _InetGetSource("www.blubb.de")
Local $teil = _StringBetween($source, 'punkt1', 'punkt2')
MsgBox(0, "", $teil)müsste funktionieren...
Opt("WinTitleMatchMode", 2)
WinActivate("UltraEdit")wie mit sleep geht das nicht? wenn du keins verwendest, hast du deine mailaddi 10x drin stehen bei 1x drücken...
HotKeySet("^!m", "sendmail")
while 1
sleep(100)
WEnd
func sendmail()
send("x0r_r0x@yahoo.de")
EndFuncich hätts halt so gemacht - irgendwas hängt aber (in der firma, langsamer server usw) 
sowas hab ich schonmal für meine firma gebaut..
50-90 lohnabrechnungen der mitarbeiter an eine mail angehängt (pdf) und jeweils versendet.
natürlich mit mitarbeiter-management, zum hinzufügen und löschen.
es funktioniert bis heute (ist schon 2 jahre her) 
Ich hätts so gemacht, wie immer:
(Text im Clipboard!)
#include <string.au3>
Global $text = ClipGet()
Global $datum1 = _StringBetween($text, "Berechnung: ", @CRLF)
Global $datum2 = _StringBetween($text, "Zustellung am ", ")")
$datum1 = $datum1[0]
$datum2 = StringTrimRight($datum2[0], 6)
MsgBox(0, $datum1, $datum2)RegEx is immer sone Sache
wenn die mail immer gleich aussieht, kannst du theoretisch auch "StringBetween()" probieren (#include <string.au3>).
wäre es mein problem, wäre die lösung mit sicherheit schnell gefunden - da wüsste ich dann allerdings, wie die komplette mail aussieht
Global $str = "Versanddatum der Berechnung: XX.XX.XXXX"
Global $jo
$jo = StringSplit($str, ":")
$jo = $jo[2]
MsgBox(0,"", $jo)€dit:
Global $str = "Versanddatum der Berechnung: XX.XX.XXXX"
$str = StringMid($str, 30)
MsgBox(0,"", $str)"C:\Program Files (x86)\AutoIt3\Include\Array.au3" (1651) : ==> Variable used without being declared.:hat 0 mit BugFix' UDF zu tun.. aber lassen wirs, denn "mit Menschen wie mir zu diskutieren ist Zeitverschwendung."
€dit: alriiiiiiiiiiight! 
Bei mir läufts:
#include "_GetWorkingDaysInRange.au3"
MsgBox(0,"", _GetWorkingDaysInRange("01.08.2015", "31.08.2015", 11))Resultat: 21
Hi,
schau einfach mal in die Funktion rein, dann siehst du die Parameter, die du angeben musst
;===============================================================================
; Function Name: _GetWorkingDaysInRange
; Description:: Ermittelt die Anzahl an Arbeitstagen in einem übergebenen Datumsbereich, auch spezifisch nach Bundesland,
; auch Jahresübergreifend;
; Heiligabend und Silvester werden mit 0,5 Arbeitstagen berechnet;
; Anzahl der Wochenarbeitstage variabel (5-7)
; Parameter(s): $sFromDate Startdatum
; $sToDate Enddatum
; $vFederalState Index oder Kürzel des BundesLandes
; 0 BG nur Bundesweit gesetzlich
; 1 SH Schleswig-Holstein
; 2 HH Freie und Hansestadt Hamburg
; 3 NI Niedersachsen
; 4 HB Freie Hansestadt Bremen
; 5 NW Nordrhein-Westfalen
; 6 HE Hessen
; 7 RP Rheinland-Pfalz
; 8 BW Baden-Württemberg
; 9 BY Bayern
; 10 SL Saarland
; 11 BE Berlin
; 12 BB Brandenburg
; 13 MV Mecklenburg-Vorpommern
; 14 SN Freistaat Sachsen|Sachsen
; 15 ST Sachsen-Anhalt
; 16 TH Thüringen
; $iCountWorkDays Anzahl Arbeitstage pro Woche (5=Mo-Fr Standard; 6=Mo-Sa; 7=Mo-So)
; Requirement(s): Funktionen: _Feiertage(), __IsWorkingDay()
; Return Value(s): Anzahl der Arbeitstage
; Author(s):
;===============================================================================
Func _GetWorkingDaysInRange($sFromDate, $sToDate, $vFederalState, $iCountWorkDays=5)Gruß,
x0r
Hi,
viel zu kompliziert
Wie wärs mit einer Access-Datenbank?
Gruß,
x0r
Hi,
sowas ähnliches hatte ich mal gebaut, das Teil haste (kompiliert) in den PDF-Ordner kopiert, ausgeführt und konntest dir alle nach der Reihe anzeigen lassen und durchblättern. Eine Art "Quick-Finder":
#include <file.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$GUI = GUICreate("PDF Viewer", 631, 469, 192, 114)
Global $oPDF = ObjCreate("AcroPDF.PDF.1")
Global $GUI_ActiveX = GUICtrlCreateObj($oPDF, 16, 72, 593, 377)
GUICtrlSetStyle($GUI_ActiveX, $WS_VISIBLE)
GUICtrlSetResizing($GUI_ActiveX, $GUI_DOCKAUTO)
$path = GUICtrlCreateInput("", 16, 16, 593, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$back = GUICtrlCreateButton("<-", 16, 40, 75, 25, $WS_GROUP)
$open = GUICtrlCreateButton("Öffnen", 96, 40, 75, 25, $WS_GROUP)
$fwd = GUICtrlCreateButton("->", 176, 40, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $dir = @ScriptDir
Global $files = _FileListToArray($dir,"*.pdf")
Global $cnt = UBound($files)
Global $infile
Global $i = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back
file("back")
Case $fwd
file("next")
Case $open
file("open")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func file($opt)
if $opt = "open" Then ShellExecute(GUICtrlRead($path))
if $opt = "next" Then $i += 1
if $opt = "back" Then $i -= 1
if $i >= $files[0] +1 Then $i = 1
if $i <= 0 Then $i = $files[0]
;~ _ArrayDisplay($files)
;~ ConsoleWrite($i & @lf)
GUICtrlSetData($path, $dir & "\" & $files[$i])
$oPDF.src = $dir & "\" & $files[$i]
EndFuncläuft auch, muss das teil nur noch bissl verschieben, dann hauts hin.
danke!
Boah Alter!
Ich muss das erstmal Zuhause testen, hab hier kein, bzw kann kein neues AutoIt installieren (wegen der WinAPIProc.au3?).
Aber wenns funktioniert: GOIL!!! 
Danke dir,
x0r
Das klingt nicht gut.
Über "Tools -> Stop" isses etwas umständlich und strg+break eigentlich auch, da lauf ich halt Gefahr, dass ich sonst noch irgendwas kille (hab die Angewohnheit drauf rumzuhämmern)
Wäre fein gewesen, mit "Start" und "Stop"-Buttons
Hi,
gibts eine Möglichkeit, bei den Buttons in Scite jeweils einen für "Script starten" (Grünes Dreieck) und "Script stoppen" (Rotes Viereck) einzufügen?
Im Visual Basic Editor gibts auch sowas
Danke & Gruß,
x0r