oder such mal "Toast" von Melba23 im englischen Forum.
Das sind selbstdefinierte Balloon-Tipps.. sieht nett aus, kann variabel ein- und ausgeblendet werden usw..
Die in Verbindung mit Accels müsste dir geholfen sein..
oder such mal "Toast" von Melba23 im englischen Forum.
Das sind selbstdefinierte Balloon-Tipps.. sieht nett aus, kann variabel ein- und ausgeblendet werden usw..
Die in Verbindung mit Accels müsste dir geholfen sein..
Huhu,
frohe Ostern,
ich danke mal allen.
Kann als erledigt angesehen werden.
Eventuell sind ja bis an das Ende Formeln kopiert? Dann ist die Zelle auch nicht leer, also "used".
absolut keine Formeln drin, da werden nur automatisiert Daten eingetragen. Wie entzieht sich mir leider.
water: thx an die @LF hab ich absolut nicht gedacht, hrhrhr
das mit dem $oExcel.ActiveSheet.UsedRange.Rows.Count gibt er mir IMMER 16384 zurück, dem ist aber so nicht..
Anscheinend wurde das in dieser Excel-Sheet so definiert oder was auch immer, aber definitv benutzt werden weniger.
Hiho,
ich lese wiederkehrende (nach unten) Daten aus Excel ein und erstelle daraus TXT-Dateien.
Leider sind die Daten in einer Zelle (sprich 5 Spalten) miteinander verbunden und der bricht mir die Daten in ne neue Zeile um.
Wie kann ich dies in eine Zeile bekommen?
Ebenso weiß ich nicht, wann die Tabelle aufhört -> mehr als 8 Zeilen leer wäre Ende der Excel-Datei, gibt es da ne einfache Prüfung odermuss ich auf leer testen??
#include <Excel.au3>
#include <Array.au3>
Global $error
Global $sFilePath1 = @ScriptDir & "\e2.xls" ; D
Global $oExcel = _ExcelBookOpen($sFilePath1)
Global $aarrayr[8][2] = [[3,1],[4,1],[12,1],[14,2],[18,2],[19,2],[18,5],[19,5]]
Global $date
$oExcel.ActiveWorkbook.Sheets("Belege").Select()
[/autoit] [autoit][/autoit] [autoit]If $error = 1 Then
MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
Exit
ElseIf $error = 2 Then
MsgBox(0, "Fehler!", "Die Lese-Datei existiert nicht!")
Exit
EndIf
Local $file = FileOpen("test.txt", 1)
[/autoit] [autoit][/autoit] [autoit]If $file = -1 Then
MsgBox(0, "Fehler", "Die Schreib-Datei konnte nicht geöffnet werden.")
Exit
EndIf
For $j = 0 to 210 step 21; wiederkehrende Zellen + 21
For $i = 0 To 7; 8 Zellen werden gelesen
$date =_ExcelReadCell($oExcel, ($aarrayr[$i][0])+$j,$aarrayr[$i][1])
FileWriteLine($file, $date & @CRLF)
Next
FileWriteLine($file, "--------------------------------------" & @CRLF)
Next
_ExcelBookClose($oExcel) ;
FileClose($file)
autoBert: das Hauptskript "wartet" ja bis die Funktion abgearbeitet ist, das meinte ich mit Block.
misterspeed: thx, das ist ein Ansatz, da wäre ich gar nicht draufgekommen..
hi,
der ignoriert den Timeout-param.
Abgesehen davon, blockiert der das Programm ebenso..
Hallo,
ich nutze eine "gefundene" und konvertierte .VBS-Funktion, um Rechnername/IP in meiner ListView anzupingen und je nach Status auf online/offline zu setzen (grün/rot).
Allerdings "blockiert" mir diese das ganze Programm, bis es durch die ~300 Rechner ist - schätzungsweise 1-2 Sekunden pro Offline-Rechner.
Geht das igendwie im Hintergrund bzw. von mir aus auch schneller??
p.s. das mit dem temp-File auslesen unten habe ich schon mal versucht durch das stdio-einlesen zu ersetzen, ist also nur eine andere Variante..
Func _IPTest()
GUICtrlSetState($ButIPScan, $GUI_DISABLE)
For $i = 0 to $iAnzahlPC-1
$RDP = _GUICtrlListView_GetItemText($LVPC, $i)
;ConsoleWrite($rdp & @CRLF)
if IsConnectible($RDP) = 1 Then
_GUICtrlListView_SetItemImage( $LVPC, $i, 2)
Else
_GUICtrlListView_SetItemImage( $LVPC, $i, 0)
EndIf
Next
GUICtrlSetState($ButIPScan, $GUI_ENABLE)
EndFunc
Func IsConnectible($sHost, $iPings=2, $iTO=150)
[/autoit] [autoit][/autoit] [autoit]If $iPings = "" Then $iPings = 2
If $iTO = "" Then $iTO = 150
Const $OpenAsDefault = -2
Const $FailIfNotExist = 0
Const $ForReading = 1
Local $oShell = ObjCreate("WScript.Shell")
Local $oFSO = ObjCreate("Scripting.FileSystemObject")
Local $sTemp = $oShell.ExpandEnvironmentStrings("%TEMP%")
Local $sTempFile = $sTemp & "\runresult.tmp"
$oShell.Run( "%comspec% /c ping -n " & $iPings & " -w " & $iTO & " " & $sHost & ">" & $sTempFile, 0 , True)
[/autoit] [autoit][/autoit] [autoit]Local $fFile = $oFSO.OpenTextFile($sTempFile, $ForReading, $FailIfNotExist, $OpenAsDefault)
[/autoit] [autoit][/autoit] [autoit]Local $sResults = $fFile.ReadAll
$fFile.Close
$oFSO.DeleteFile($sTempFile)
If StringInStr($sResults,"TTL=") Then
Return 1
Else
Return 0
EndIf
EndFunc
wo bekommt msgbox das $result her??
Hiho,
ich habe eine Textdatei mit Werten (";"-getrennt) . Insgesamt sind in einer Zeile 280 Werte.
Die Textdatei selbst hat ca. 70.000 Einträge (durch CRLF getrennt).
Jetzt habe ich vor, zeilenweise einzulesen und dabei darauf zu achten, ob ein bestimmtes Feldwert anders sit, sprich ich will gruppieren.
Innerhalb dieser Gruppierung sollen die auszulesenden Werte (nur bestimmte Felder - Summen bzw. max-Wert) neu in eine andere text-datei geschrieben werden.
Wie gehe ich da am besten vor?? Kleine Hilfestupser könnt ich gebrauchen.
Soll ich per Stringsplit erst alles in ein Array und dann die Werte vergleiche und dann in neues Array übertragen. Das wäre jetzt das erste was mir einfällt.
p.s.noch kein Code vorhanden..
FileReadLine ( "filehandle/filename" [, line] )
[/autoit]Hilfe lesen hilft manchmal *G*
hey danke,
das _StringInsert hab ich ja grad mal komplett ignoriert..ich dödel..
Hiho,
Ich habe eine Text-Datei mit mehreren/unbekannten Zeilen mit Text.
In diese soll in jeder Zeile an einer bestimmten Text-Position (z.B. 790) 4 Zeichen (meist Leerzeichen) überschrieben werden.
Zusätzlich gibt es aber Zeilen die nicht so lange sind wie die Standard-Zeile, sprich die o.g. Position gibt es gar nicht.
Da soll dann mit Leerzeichen aufgefüllt werden und dann dort wieder die 4 Zeichen eingefügt werden.
Wie gehe ich das am besten an?? Bräuchte da ein Anstupser..
jo was name22 hat, hab ich vergessen,
aber mit findstring gehts auch in dem man zuerst den momentanen text ausliest und dann den Index sucht..
umständlich, ginge aber (sofern keine Txt-Dubletten drin sind) *G*
_GUICtrlComboBox_FindString
[/autoit]so ala
[autoit]_GUICtrlListView_GetItemTextString($hWndListView, _GUICtrlListView_GetSelectionMark($hWndListView))
[/autoit]sollte dich in die Richtung schubsen..
ich kann nur sagen: Hut ab und mach weiter..
bei mir win7 x64 ebenso ohne Flackern..
Torni stammt noch aus der Zeit um ~1992-2002 als ich noch extremst als Cracker unterwegs war.
Der Nick selber ist die Abkürzung/Verniedlichung meines ersten Modems: "Tornado".
Da sass ich damals vor dem Internet bzw. BTX und musste mich wo anmelden und schaute mich vor dem Compi um - da fiel mir dieser Name ins Auge und schwupps war Torni "geboren"
Sind die Änderungen immer an festen Positionen?
Wenn ja, müsste es doch möglich sein, diesen String einmalig als Datei zu speichern und dann per FileSetPos und Filewrite(..., Binary(...)) zu speichern.
Oder dann gleich per WinAPI..müsste rein theoretisch alles schneller sein ?!?
Nur so als Denkanstoss.