Hallo, wenn du nur die Zahl haben willst geht das einfach so:
[autoit]
$string = "jdh..(/6"
$string = StringRegExpReplace($string, "[a-zA-Z.()./]", "")
MsgBox(0, "", $string)
Hallo, wenn du nur die Zahl haben willst geht das einfach so:
[autoit]
$string = "jdh..(/6"
$string = StringRegExpReplace($string, "[a-zA-Z.()./]", "")
MsgBox(0, "", $string)
$variable = "hallo"
Send($variable)
Hast warscheinlich das benutzt:
[autoit]Send("$variable")
[/autoit]_IECreate Invisible ist doch auch ok, oder?
Hallo,
Aufjedenfall schön gemacht ;). Man kann es aber auch noch kleiner machen:
#include <INet.au3>
#include <String.au3>
Global $data[8]
;===============================================================================
; Function Name:_GetINetInfo()
; Description:: Internetdaten auslesen
; Parameter(s): keine
; Requirement(s): #include <INet.au3>
;#include <Array.au3>
;#include <String.au3>
; Return Value(s): Erfolg:Array mit den Internetdaten
;
;
;Fehler: @error 0Source konnte nicht eingelesen werden / keine Internetverbindung
;
; @error 1Öffentliche Ip-Adresse nicht gefunden
;@error 2Netz-Rechnername nicht gefunden
;@error 3Browsername nicht gefunden
;@error 4DSL-Provider Anbieter nicht gefunden
;@error 5Proxy nicht gefunden
;@error 6Netzkontendaten: Stadt nicht gefunden
;@error 7Netzkontendaten: Region nicht gefunden
;@error 8Netzkontendaten: Land nicht gefunden
;
; Author(s): Jautois ([email='autoit.report@web.de'][/email])
;===============================================================================
Func _GetINetInfo()
Local $url = "http://www.meineip.de/"
$source = _INetGetSource($url)
If @error Then SetError(0)
$Names = StringSplit("Das ist Deine IP-Adresse,Rechnername ist,mit diesem Browser,Dein DSL Anschluss kommt von,Proxy eingeschaltet?", ",")
$Names2 = StringSplit("Stadt: ,Region: ,Land: ", ",")
For $i = 1 To UBound($Names) - 1
$btwn = _StringBetween($source, $Names[$i] & "</th>" & @CRLF & " <td>", "<")
$data[$i - 1] = $btwn[0];Öffentliche IP
If @error Then SetError($i)
Next
For $i = 1 To UBound($Names2) - 1
$btwn = _StringBetween($source, $Names2[$i], "<")
$data[UBound($Names) + $i - 2] = $btwn[0];Stadt
If @error Then SetError(UBound($Names) + $i - 1)
Next
Return $data
EndFunc ;==>_GetINetInfo
Deal or no Deal ist ganz nett, nur ich mag den Moderator nicht Naja, das scheint mir auf den ersten Blick ziemlich viel Arbeit, mal sehen, wenn ich mal Zeit und Lust hab bin ich auch dabei ;).
Bestimmt, nur keiner versteht was du meinst. Vielleicht drückst du dich etwas besser aus ;).
$timer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While True
If TimerDiff($timer) > 5000 Then ; 5000 = 5 Sekunden, 15Minuten = 900000
MsgBox(0, "", "5 Sekunden :P")
$timer = TimerInit() ;timer zurücksetzen
EndIf
Sleep(100)
WEnd
Benutz doch einfach Timerinit und lass alle 15Minuten den _IE starten ;).
Herzlichen Glückwunsch auch von mir !
Ich persönlich finde Video-Tuts mit Stimme sehr viel angenehmer und interessanter, als ne langweilige Text-Datei, die ich sowieso nur halb durchlese. Beim Video-Tut muss man auch kaum was machen und kann sich alles schön ansehen, was glaube ich auch mehr Spaß macht und man kann sich bestimmt auch mehr merken.
Hallo, deins ging nicht weil du IN der Funktion die Variable $zz auf 0 gesetzt hast. D.h. immer wenn du die Funktion aufrufst wird $zz = 0 und somit wird Else nie erscheinen ;).
Global $zz = 0
[/autoit] [autoit][/autoit] [autoit]While True
test()
Sleep(100)
WEnd
Func test()
If $zz = 0 Then
MsgBox("", "", "")
$zz += 1
Else
MsgBox("", "anders", "anders")
$zz = 0
EndIf
EndFunc ;==>test
Aber etwas ohne Sinn ;D
Hallo ;),
[autoit]$str = '<beliebiger Text>Das <anderer beliebiger Text>ist <bla blabla>die <aslasfjklfjaklf>Lösung.<bla>'
$str = StringRegExpReplace($str, "(<[\w+ ]*>)", "")
MsgBox(0, "", $str)
War mir auch nicht sicher, aber man hat ja
http://www.bug-fix.info/PathCheck.htm
Oder alle Files einzeln includen Kannst dir ja ein Script schreiben, das dir den Code dafür schreibt, wenns zu viele sind.
Würde GUICtrlSetData nur verwenden, wenn es wirklich ein anderer Wert ist. Ansonsten flackert es, sieht nicht schön aus :(.
Dim $Input_datei = "HT1_1EFD.txt"
Dim $Output_datei = "HT1_1_cut.txt"
;Datei öffnen
$Input = FileOpen($Input_datei, 0)
If FileExists($Output_datei) Then FileDelete($Output_datei)
$Output = FileOpen($Output_datei, 1)
; Check if file opened for writing OK
If $Output = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
;GUI_EINBINDEN
#include <GUIConstants.au3>
GUICreate("Daten filtern", 300, 50, 100, 100)
$Label_Zaehler = GUICtrlCreateLabel("", 10, 30, 280, 20)
GUISetState()
;Schleife für Logfile einlesen
Dim $Begin_Zahlenwerte = 0
Dim $Zaehler = 0
Dim $Firstsplit = 100
While 1
$Zeile = FileReadLine($Input)
If @error = -1 Then ExitLoop
$Split = StringSplit($Zeile, @TAB)
$Zaehler = $Zaehler + 1
GUICtrlSetData($Label_Zaehler, $Zaehler)
Dim $Ausgeben = 1
Dim $Zeile_original = $Zeile
If ($Begin_Zahlenwerte == 1) Then
[/autoit] [autoit][/autoit] [autoit];Zeile zerlegen
$pos = StringInStr($Zeile, Chr(9))
$timestamp = Int(StringMid($Zeile, 1, $pos - 1))
$Zeile = StringMid($Zeile, $pos + 1)
$pos = StringInStr($Zeile, Chr(9))
$found = StringMid($Zeile, 1, $pos - 1)
$Zeile = StringMid($Zeile, $pos + 1)
; if ($found <> "both") then
; $Ausgeben = 0
; endif
If ($Ausgeben == 1) Then
Dim $Anfangszeit = 0
Dim $Endszeit = 0
$Ausgeben = 0
$Anfangszeit = 80189
$Endzeit = 114555
If ($timestamp >= $Anfangszeit And $timestamp <= $Endzeit) Then $Ausgeben = 1
; hier soll Leerzeile dazwischen
$Anfangszeit = 164673
$Endzeit = 199040
If ($timestamp >= $Anfangszeit And $timestamp <= $Endzeit) Then $Ausgeben = 1
EndIf
EndIf
If ($Zeile == "Timestamp Found GazepointX GazepointY") Then
$Begin_Zahlenwerte = 1
EndIf
If ($Ausgeben == 1) Then
If $Split[1] > $Firstsplit Then
$Firstsplit += 100
FileWriteLine($Output, @CRLF & $Zeile_original)
Else
FileWriteLine($Output, $Zeile_original)
EndIf
EndIf
WEnd
GUIDelete()
MsgBox(0, "Fertig", "Bin fertig!")
Exit
Ein Anhang wäre gut, mit einer Txt Datei zum testen.