hi,
danke das war doch recht hilfreich. Nun habe ich mal hier Excel genommen und hier eine Änderung vorgenommen $percent = 25 eine ander Zahl eingegenen. Doch es tut sich rein garnichts. Excel geht weit über die 25% hinnaus. Was mache ich noch falsch das ich kein Ergebniss sehe?
Taucher
hi,
danke damit habe ich mich beschäftigt. Nur es möchte nicht laufen. Es ist so original aus einem Thema hier im Forum übernommen. Ich würde es gerne einsetzen wenn es denn läuft. Dazu würde ich gerne ein paar klärende Worte haben.
Taucher
hi,
ja das einen habe ich dann auch gefunden. Leider will es aber nicht recht laufen.
[autoit]#include <process.au3>
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Global $process = "firefox.exe"
While 1
Sleep(10)
$cpu_usage = _Get_CPU_Usage(@ComputerName, 0, $process); return usages if smaller the percent passed in
If Not @error Then
ToolTip("CPU Usage of " & $process & @CRLF & "IDLE : " & $cpu_usage & " %" , 0, 0, "CPU USAGE", 1)
ExitLoop
EndIf
WEnd
Func _Get_CPU_Usage($strComputer, $percent = 5, $strProcess = "")
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
If $strProcess <> "" Then $strProcess = " WHERE Name = '" & $strProcess & "'"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfFormattedData_PerfProc_Process" & $strProcess, "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
If Number($objItem.PercentProcessorTime) > Number($percent) Then Return $objItem.PercentProcessorTime
Next
EndIf
SetError(1)
Return ""
EndFunc ;==>_Get_CPU_Usage
Ist es möglich es etwas näher zu erklären was geschieht. Ich habe es laufen lassen aber bei mir geschieht nix.
Taucher
PS. hat wer ne Erklärung
hallo,
irgendwie find ich nichts vergleichbares! HAst du mal nen Link zu sonem Thema
Taucher
Hallo,
Dumme Frage:
gibt es eine einfache Lösung um ein WinWait auf einen Prozess zu machen bis die CPU-Auslastung von diesem Prozess 0% beträgt?
MFG Taucher
Mahlzeit,
das ist ja eine super Funktion. Idealerweise wäre es top wenn die Teilung anhand der Zeileanzeil der Datei erfolgen könnte.
1000 Zeilen 10
2000 Zeilen 20
2500 Zeilen 25 usw. Ist das irgendwie möglich?
Taucher
hi,
danke es geht super.
Danke Taucher
hi,
irgendwie bekomme ich e nicht gebacken. Was möchte ich erreichen.
Im Ordner sind viele pdf Dateien die so einen Dateinamen D00000_0000595959_200704.pdf etc. In der txt stehen nur solche Nummern wie 0000595959 etc. Nun habe ich beide in ein Arry eingelesen und möchte sie vergleichen da beide von den Nummern(0000595959 etc) gleich sein müssen. Es kann vorkommen das im Ordner weniger Dateien sind. Die fehlende sollen aus der txt angezeigt werden und in eine neue Datei gegeben werden. Leider wird alles eingeschrieben.
Hier mein Ansatz
#include <file.au3>
#include <Array.au3>
#include <string.au3>
;
Opt("TrayIconDebug", 1)
Global $pathCompare = "C:\Taucher\mappe1.txt"
Global $compare_A
Global $test = "c:\Taucher\taucher.prob"
;
$FileList=_FileListToArray("C:\Taucher\EVN\PDF\")
If @Error=1 Then
MsgBox (0,"","Ich fehle")
Exit
EndIf
_ArrayDisplay($FileList,"$FileList")
If Not _FileReadToArray($pathCompare, $compare_A) Then
MsgBox(64,"","ich auch")
Exit
EndIf
_ArrayDisplay($compare_A,"$FileList")
;
For $i = 1 To UBound($compare_A) - 1
If StringMid($FileList, 8, 10) Then
_ArraySearch($FileList, $compare_A[$i], 1)
If @error = 6 Then
_ArrayAdd($FileList, $compare_A[$i])
EndIf
EndIf
Next
_FileWriteFromArray($test, $FileList,1,0)
Wo liegt mein Fehler und könnt ihr mir den zeigen ob es besser geht?
mfg Taucher
@ schluss jetz
hi,
schuldigung wenn ich hier irgendwelche befindlichkeiten geweckt habe. beide varianten funzen.(habe mich aber für die zweite entschieden) 
danke nochmals für die hilfe
taucher
gluck gluck...
hi,
danke das geht, aber jetzt erscheint auch bei einem zweistelligen Monat die 0.
habe es jetzt so gelöst
If @MON <= 09 Then
$mon = "0" & @Mon - 1
Else
$mon = @MON -1
EndIf
Ich hoffe das es richtig ist
Mfg taucher
hallo,
es ist wohl kein Brett sondern eine Bohle. Was ich möchte ist @Mon(Ausgabe ist ja 06) minus 1 dann sollte aber (05) ausgegeben werden aber es kommt (5) raus. Ich benötige aber (05). was mache ich falsche?
mfg taucher_2006
hallo bernd,
danke für die unterstützung werde es testen. die vielen sleeps haben eine ursache. das script abrbeitet mit der cmd. dort sehe ich nicht wenn er eine aufgabe erfüllt hat. so habe ich die zeit ausgetestet. leider darf dann aber nichts dazwischen kommen.
mfg taucher_2006
Hallo Gemeinde
ich benötige mal wieder eure Hilfe. Ich habe zwei txt Dateien. In der einen sind alle schon geladenen Dateinamen drin. In der zweiten sind alle die Dateinamen drin die schon mal geladen wurden aber einen fehler haben. Diese müssen jetzt aus der ersten Datei wieder raus, damit diese erneut und vollständig geladen werden können.
Die Datei 1 wird für ein anderes Script als Referenz benutzt. Alles was da nicht drin ist wird nach erneutem Start gedownlodet.
Beispiel: 1.txt
1of1_01049000024172320061011000000.CDR
1of1_01049000024172320061012000000.CDR
1of1_01049000024172320061013000000.CDR
1of1_01049000024172320061014000000.CDR
1of1_01049000024172320061015000000.CDR
1of1_01049000024172320061016000000.CDR
1of1_01049000024172320061017000000.CDR
1of1_01049000024172320061018000000.CDR
1of1_01049000024172320061019000000.CDR
1of1_01049000024172320061020000000.CDR
Beispiel: 2.txt
1of1_01049000024172320061011000000.CDR
1of1_01049000024172320061012000000.CDR
1of1_01049000024172320061013000000.CDR
1of1_01049000024172320061014000000.CDR
Das ist mein Ansatz der aber nicht recht möchte.
#include <file.au3>
#include <Array.au3>
#include <INet.au3>
#include <date.au3>
;
Global $pathMain = "G:\referenz\referenz.prob"
Global $pathCompare = "C:\Datensicherung\fehler.prob"
Global $mainFile_A
Global $oldFile_A = $mainFile_A
Global $compare_A
TrayTip("MBS-N", "Tagesrohdaten von Verizon werden geladen. Bitte warten...", 60000)
;FileWriteLine($PROTFILE, "Am " & _NowDate & " wurden die Datein " & $compare_A[$i] & " gedownloadet."@CRLF)
$CDR = "*.CDR"
$PROTFILE = ""
$Outlook2003 = @ProgramFilesDir & "\Microsoft Office\Office11\Outlook.exe"
$PID = ProcessExists("Outlook.exe")
;
If Not FileExists ($pathCompare) Then
;_Liste()
EndIf
Sleep(12000)
If Not _FileReadToArray($pathCompare, $compare_A) Then ;Fehlermail weil tägliche.txt nicht erstellt werden kann
_errormail1()
Exit
EndIf
If Not _FileReadToArray($pathMain, $mainFile_A) Then
_errormail2()
Exit
EndIf
For $i = 1 To UBound($compare_A) - 1
If StringRight($compare_A[$i], 4) = ".CDR" Then
_ArraySearch($mainFile_A, $compare_A[$i], 1)
If @error = 6 Then
_ArrayAdd($mainFile_A, $compare_A[$i])
_ArrayDelete($mainFile_A,$compare_A[$i])
Sleep(60000)
EndIf
EndIf
Next
_FileWriteFromArray($pathMain, $mainFile_A, 1, 0)
EndIf
Was mache ich falsch? Gibt es eine elegantere Lösung?
MFG Taucher_2006
hi,
@meger
danke funzt habe einfacher gedacht und wurde eines bessern belehrt.
:stolz_bin: :keks:
Taucher
hi,
ja alle zusammen ohne satzaufbauänderung. das macht ja auch der dos befehl.
taucher
hi,
ergebinss soll sein das aus einzeldateien die in ein crm system gelesen werden eine gemacht wird, damit das einleseprogramm einmal bedient wird.
@meger
ist-situation z.b. 10 txt gleicher satzaufbau
soll-situation 1txt datei.
meine versuche habe ich ja geschrieben.
ich kann dich verstehen das ich manchmal wirres zeug von mir geb und du(ihr) meine(unser) gedanken lesen müsst.(glaskugel wäre manchmal hilfreich ;-))
taucher
hi,
ja das habe ich auch gemacht,
#Include <File.au3>
#Include <Array.au3>
$FileList= _FilelistToArray("c:\datensicherung\", "*.txt")
$RPfad="C:\GLI_Prod\12 2006\" &@MDAY&"."&@MON &"."& @YEAR&".txt"
If @Error=1 Then
MsgBox (0,"","No Files\Folders Found.")
Exit
EndIf
_ArrayDisplay($FileList,"$FileList")
_FileWriteFromArray($filelist,$RPfad,1,0)
vielleicht stelle ich es mir auch zu einfach vor. hier kopiert er nur die dateinamen in einander.
taucher
hi, :weinen:
ich muss nochmal ein Frage los werden. Momentan löse ich das Problem so.
Run("cmd.exe")
Sleep(500)
send('cd\{enter}')
Sleep(500)
Send('cd Datensicherung {enter}')
Sleep(1000)
Send("copy /b *.txt test_"&@MDAY&@MON&@YEAR&".txt{Enter}")
Sleep(12000)
Send("Exit{Enter}")
Exit
Da es sich hier um eine ständige (edit) wechselnde (edit) Anzahl von txt mit identischen Satzaufbau handelt. Hier im Forum wurde schon so etwas behandelt aber mit zwei Dateien. Da es mehr sind kann ich es nicht recht einsetzen. Auch habe ich mit _FileReadToArray getestet bin aber an der Stelle gescheitert das ich nicht wildcard einlesen konnnte.
Vielleicht habt Ihr ja nen tip wie es geht.
Taucher :irre:
hi,
danke das hat gefehlt, mit dem dim hatte ich ja schon nur nicht [1]
:keks:
nun aber wiklich gutes we
taucher
