Beiträge von msp-holzwurm

GERMAN
ist mein im Geburtenbuch der Stadt Würzburg eingetragener Vornamen.

außerhalb Frankens (Nördlich von Fulda und südlich von Ingolstadt, westlich von Aschaffenburg und östlich von Bayreuth) evtl. nicht so gebräuchlich --)))

Grüße aus Main-Spessart

German

schonmal auf der CeBIT geholfen??
Am letzten Tag vorm Messestart darf kein Auto mehr aufs Messegelände, die 4 21" Röhrenmonitore haben wir dann halt mal in Halle 21 getragen (ca. 800m vom Parkplatz aus) damit den guten Stücken nix passiert auch nicht auf sonem holprigen Vollgummitransportwagen.

das waren halt noch Zeiten und abends beim Griechen sind die verbrauchten Kaloriechen wieder nachgeladen worden ....

Grüsse

German

mach ja sehr viel in gnu-Tools, aber auf was willst Du raus:

a, das war nur ein blödes Beispiel, Du brauchst was anderes als das Auslesen der Volume.txt Datei

b, willst Du mit Autoit die lokalen Festplatten abarbeiten (um z.B. dadrauf ne Datei zu suchen)

bei b ist es 10 mal einfacher gleich das in Autoit zu programmieren.
(auslesen der lokalen Festplattennamen)
; ===lokale Festplatten??
$LWS = DriveGetDrive( "fixed" )
If NOT @error Then
; MsgBox(4096,"", "Found " & $var[0] & " drives")
For $i = 1 to $LWS[0]
_poutput($PSYSINFOINI,"LOCAL_DIR" & $i & "=" & $LWS[$i])
Next
EndIf

Achtung _poutput ist eine weitere Funktion von mir!!

Schreib mal genau, was Du machen willst.

Grüße

German

Du hast noch keine Frau nach einem 8h Computerkurs mit mir als Referenten gesehen!!!!!
(dagegen sieht die aus, wie eine Marathonläuferin wie 2:45h vor ihrem ersten Olympiasieg)!!!!

würde sagen, daß sind 63" Mäuschenklicker vor nem anständigen Bildschirm!!!!

(siehe diese verkrampfte Handhaltung!!)

Den Monitor würde ich ja sofort nehmen, mein Arbeitstisch hier ist auch nicht von IKEA sondern SONDERANFERTIGUNG aus 40x30mm Stahlrohr und mein 21"er hier wiegt schätzungsweise genausoviel (nämlich rund 42kg!!!)

Grüße

German

Hallo All!

weiß, es ist peinlich, mach echt viel mit Autoit, aber meine Programme laufen auf irgendeinem Server ohne Menü und Oberfläche und werden zu 99% von einem bestimmten Produkt aufgerufen (dessen Menüoberfläche ich dann benutzen muss).

habe versucht ein tail Kommando zu schreiben (für alle Nicht-Unixler) der schaut in ne Datei uns spuckt mit der option -f normalerweise die letzten 20 Zeilen permanent aus (das ist sinnvoll wenn ich mir das Protokoll eines Jobs anschauen will, der stundenlang läuft ich ich mitschauen will, wo ist der gerade.
Das wollte ich jetzt mit Autoit und Windows-Optik realisieren.

Autoit-Code ist anbei (einer meiner ersten Versuche mit Oberfläche), das Protokoll unterstelle ich in c:\protokoll, nur heute ist mir das Teil auf einem Produktionsserver 2mal abgeschmiert, bzw. VNC hat nicht mehr gewollt und ich konnte nicht mehr weiterarbeiten.

Kann da mal ein Experte draufschauen, hab ich da einen haarsträubenden Fehler drin???

Wie bringt mann den Spoiler rein??

Gartenzaun und Text Spoiler oder sowas??

Edit GtaSpider: [04.10.2007 21:08]
Spoiler und AutoIt Tags eingefügt
Aufruf:

[SPOILER][AUTOIT]
AutoIt Code
[/AUTOIT][/SPOILER]

Hallo!

auch als absoluter Nicht-Computer-Spieler (meine Kiste hier ist Soundkartenfreie-Zone)

HERZLICH WILLKOMMEN

arbeite jetzt ca. 1,5 Jahre mit Autoit (hab damit einiges aus der gnu-Shell Schiene abgelöst) und es macht jeden Tag mehr Spaß.

msp-holzwurm
msp=Main-Spessart

Klar kannst Du verschiedene Errorlevel abfragen, dann aber nur mit Spagetticode weiterarbeiten

siehe unten Beispiel mit 99999 (das wären 100.000 Möglichkeiten)

==autoit programm test_41.au3====================
test_41.au3
#include <string.au3>
#include <file.au3>
#include <array.au3>
#include <GUIConstants.au3>

$grepstring = InputBox("test_41.au3", "Zahl eingeben." , "", "")
if StringIsDigit($grepstring) then
exit $grepstring
EndIf

==================

============hier die Batch dazu=======

test_41.au3

goto test_41%ERRORLEVEL%

test_41.au3

goto test_41%ERRORLEVEL%

:test_411
echo eins
goto ende
:test_412
echo zwo
goto ende
:test_4199999
echo der spinnt hier
:test_413
echo keinen bock
goto ende
:ende
echo schnauze voll

=================================

Scheunenbadscher:

Scheune= Gebäude meist teilmassiv und Holzständerbauweise für landwirtschaftliche Zwecke errichtet (Lagerhalle, Maschinenhalle)

Scheunenbadscher=selbsternannter Kfz-Innungsobermeister nach dessen Reparaturkünsten die Karre 5l Öl auf 100km braucht, die Bremsen nicht mehr gehen und die Beifahrertüre nur noch von innen zu öffnen ist und der Lack sieht nach Lackierkabine Modell SAHARA aus.
(der kann natürlich auch Hubschrauber, U-Boote, Raketenwerfer und Flachbildschirme reparieren!!)

PS: falls Haku hier Geburtstag hat (hab doch was gesehen):

ALLES GUTE

Hallo!

hier meine nix.bat

======================
ts_test.exe
if not errorlevel 1 goto nixts
:ts
echo Ich_bin_terminalserver
:nixts
echo ich_nix_terminalserver
goto ende
:ende
echo schnauze_voll
=======================

und hier der Quellcode des ts_test.au3
alles läuft in einer CMD-shell

Viel Spaß damit und ich fleh Dich an:
mach gleich alles in AUTOIT!!!! das ist einfach Erste Bundesliga, Batch ist und bleibt was für SCHEUNENBADSCHER wie wir Fraggn sagen.

Grüße

German

Edit BugFix: CodeTags

Hallo All!

bin nach wie vor der Fan des zip.exe von info-zip, gibt aber Probleme, wenn der oracle-client in bestimmten Versionen auf dem Rechner ist, da die Herrschaften den auch benutzen (aber in einer älteren Version).
Etliche schnucklige Sachen funktionieren nur mit zip ab Version 2.3

Um zu prüfen, ob das Zip-Programm im Suchpfad liegt, hab ich 2 Funktionen gebaut.
_pruefzip23()
_pruefzip232()

hab zwischenzeitlich auch ein Superteil an Hichtech-Archivierungs Version für Produktionsserver, die dynamisch die CPU-Last abfragt, damit die Kiste beim zippen nicht völlig in die Knie geht. (sowas gibts garantiert noch nicht von Winzip)

Wenn ich im Winter mal wieder mehr Zeit habe, dann stell ich da mal einen ganzen Berg zusammen, denke, daß ist ein wirklich interessantes Thema und das sind die Tools, die es nicht zu kaufen gibt.

Ist da jemand interessiert dran, das Teil läuft bei mir jeden früh um 4.00 auf dem Produktionsserver und sorgt dafür daß ich am Monatsende statt 50.000 Dateien nur jeweils 2 pro Tag habe.??????

Gruß aus dem heißen Spessart

German

(war heute mit der Lagerung seiner Holzernte 2007 beschäftigt)

bernd670: Tags gesetzt!

ja, schätze Word hat dann statt 1000 unnötiger Funktionen für den Normalbediener mehrere Funktionsassistenten und mindestens 10 verschiedene Layoutsysteme, die Hotline arbeitet dann direkt für ihr Krankengeld vom Bett im Nervenkrankenhaus aus mit Online-Video-Streaming.

und die Mausstrecke bis zum ersten Ausdruck ist mindestens 1km lang ---))))

Gruss

German

als Stift hatten wir ein System mit 2x 8-Zoll Floppy (da müßte ich sogar noch eine besitzen) und dieses Wahnsinnsteil mit Wechselplatte.

Größe einer Tortenhaube und mit der Haube hat man die 5 Platten die zentrisch auf einem 16,6cm dicken Zylinder befestigt waren in die "Futterschneidmaschine" (Spitzname wegen des Lämrpegels) als Topladermäßig eingeführt.
(wäre heute verboten, das Startgeräusch liegt ca. beim Lärmpegel einer 727-Turbine)

Zur Weihnachtszeit kam dann immer einer aus dem Schwabeländle (war ja schließlich ein Kienzle-System) und hat die Futtschneidmaschine (da ja kein geschlossenens System) mit Alkohol und OP-Stäbchen gereinigt.

Die Drucker waren einfach Made-in-Germany Qualität (Kienzle 256er sag ich nur), wenn das Papier aus war, konnte man auf der Fronthaube eines Autos weiterdrucken.

Als ich dann Fulltime in der EDV angefangen hatte und bei nem Kunden ein Fredmprodukt uminstallieren mußte bekam ich von der Hotline die Nummer eines Seniorenstiftes!!!!! (der Programmierer war zwar schon in Rente, aber es war natürlich eine Frage der Ehre, seinen letzten 5 Kunden beim Problemen zu helfen!!!)

ein 2MB RAM-System beim Kunden hatte ca. 42 Terminals und 5 Drucker angeschlossen!!!!!! und die Edelkunden hatten ein Mehrprozessorsystem mit Geräten am gemeinsamen SCSI-II Bus!!!!!!!
(z.B. 60 MB Streamer)

(daß sowas geht, wird heute wahrscheinlich nicht mal in einem Hardwarefachbuch mehr erwähnt werden!!)

ja, so waren sie die guten Alten Zeiten

Grüßle

German

Hallo Oscar!

Du hast das nur falsch formuliert:

wir um die vierzig:

- können nen Computer noch ohne Maus bedienen.
- haben Windows 2.3 mit AdobePageMaker installiert (auf DOS ist das Teil gar nicht gelaufen)
- können einen Computer noch aufschrauben und die Teile dadrin benennen
- haben auf Wechselplatten mit 5MB gearbeitet
- brauchen keine 80 stelligen Dateinamen, sondern haben ne Struktur auf unserer HD

langen einen Lötkolben auf der richtigen Seite an und können ein serielles Kabel selbst zusammenbauen

lt. Statistik haben wir also 2x20 Jahr ERFAHRUNG

Viel Spaß hier

German

Hallo All!

hab mir unten eine Funktion gebaut, die mein Analysetool nutzt, um festzustellen, ob ich auf einem Terminalserver bin oder nicht.
Mangels Testmöglichkeiten und/oder Erfahrungen auf solchen Systemen wäre es schön, wenn mal ein Profi einen Blick drauf werfen könnte. lt. Kollegen würden bei dem

query termserver

Kommando auch Server angezeigt werden, die keine Terminalserver sind.

Was besseres (Abfrage Registry??) hab ich aber nicht gefunden.

Es Dankt Euch

German

Edit BugFix: Tags eingefügt

Hallo!

Stringsuche in solchen "Dampfhämmern" geht ziemlich langsam:

Hier mal ein Stück aus Testcode von mir, hab das Teil jetzt auf C umgestellt, da das doch etwas schneller geht (hat mich zwar ne Pizza und nen Kaffee gekostet, da ich Nachhilfe gebraucht habe, aber es war bei 200MB mit autoit einfach zu langsam)

Stell die Blocksize auf 4096, das war bei meinen Performancetests am schnellsten. (am Beispiel unten sind 2048)

$hfile= FileOpen($hexfile, 0)
if $hfile = -1 then
Return 1
Exit
EndIf

; Read in 1 character at a time until the EOF is reached
While 1
$read=0
; $aryChar = FileRead($hfile,1)
$block = FileRead($hfile,2048)

If @error = -1 Then ExitLoop

$aryChar = StringSplit($block, "")
; jetzt hab ich das Teil im array

For $i = 1 To $aryChar[0]
; nur Ausgabe wenn Integer Wert
$asciiwert=asc($arychar[$i])
if $asciiwert=0 then
$arychar[$i]=" "
Endif
$convstring = $convstring & $arychar[$i]
Next

FileWrite($afile, $convstring)
$convstring=""

Wend

================================

Gruss

German
genannt der INTEGRATOR

Hallo Knuspertux!

hört sich ja mal richtig vernünftig an.
Die Spezies: DMK (degeneriertes Mäuschen Klickerchen) ist leider stark auf dem Vormarsch.

Soll ja noch einzelne Lebewesen geben, die den vi bedienen können.

Also viiiieeeellll Spaß hier

Gruss

German
PS: als richtiger Holzwurm hab ich natürlich auch ne Stichaxt im Einsatz, sowas funktioniert sogar ohne Strom

Hallo All!

habe ein sehr komplexes Analysetool mit Autoit gebaut wäre echt Klasse, wenn ich jetzt noch irgendwie feststellen könnte, ob mein Win2000 oder Win2003 unter ner VMWARE läuft.

Mein Tool funktioniert erste Sahne, aber eines unserer Programme eben nicht und die "lieben Kunden" stellen einfach um, ohne vorher zu fragen und jammern dann nach Wochen daß sie Probleme haben.

Gibts irgendeine Möglichkeit, außer in HKLM\software nach den vmware-tools zu suchen????

1000 Danke & gruss aus dem Spessart

German

Hallo!

hier ist meine Lösung, sicher nicht so brilliant, aber auch immer ne Frage, wie oft und wieviele Daten werden da "konvertiert".

Hier ne einfache und ausbaufähige Anfängerlösung, die bei mir im Kundeneinsatz ist und Buchungsstellen säubern muß (falls da wieder so ein Äggsberde Text drin erfasst hat, war bei meiner Integration aber nicht kommen darf).

; test_31.au3
; Beispiel fuer Usergroup

$Variable = "Sie haben $0,37 gewonnen"

$cleanit=StringToNum($Variable)
msgbox(0,"Sauber sieht dess so aus",$cleanit)

Func StringToNum($stringtoconv)

Local $Hilf, $i, $convString
$aryChar = StringSplit($stringtoconv, "")
; jetzt hab ich das Teil im array

For $i = 1 To $aryChar[0]
; nur Ausgabe wenn Integer Wert
$checkstring=StringIsInt($aryChar[$i])
if $checkstring=1 then
$convString = $convString & $aryChar[$i]
EndIf
if $aryChar[$i]='.' then
;msgbox(0,"Punkt gefunden","HUHU")
$convString = $convString & $aryChar[$i]
EndIf
if $aryChar[$i]=',' then
;msgbox(0,"Komma gefunden","HUHU")
$convString = $convString & $aryChar[$i]
EndIf


Next

Return $convString

EndFunc

===========================================

es grüßt Euch

German

Dein Profil tut echt gut, mal wieder einer, der schonmal was anders als Windoof gesehen hat und noch XTREE und NC bedienen kann.

Dos 2.3 auf OLYPMPIA 386-10er beim Computerschein A in der Handwerkskammer das waren halt noch Zeiten.

UIH hab ich übrigens nach wie vor im Einsatz (TP-Programmierung läst grüßen)
(Druckvorschau im DOS Modus!!!)

Viel Spass hier

Grüsse aus dem Spessart

German

Hallo!

hier mal ein kleiner Versuch von mir, Akku ist aber schon ziemlich leeer heute.

wie gefällt dir das???
=========================================

$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
; Datum und Größe rausholen
If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
$T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
$T_FILECOUNT = $T_FILECOUNT + 1
$T_FILESIZE=FileGetSize($N_TFILE)
if $T_FILESIZE > 1048576 then
$HILF_FILESIZE = $T_FILESIZE / 1024 /1024
$HILF1_FILESIZE = StringFormat("%.2f",$HILF_FILESIZE)
$FORMAT_FS=@TAB & $HILF1_FILESIZE & " " & " MB"
Else
$HILF_FILESIZE = $T_FILESIZE / 1024
$HILF1_FILESIZE = StringFormat("%.2f",$HILF_FILESIZE)
$FORMAT_FS=@TAB & $HILF1_FILESIZE & " " & " KB"
EndIf
$t = FileGetTime( $N_TFILE, 1)

If Not @error Then
; $yyyymd = $t[0] & "/" & $t[1] & "/" & $t[2]
$Format_Datum= @TAB & $t[2] & "." & $t[1] & "." & $t[0]
EndIf
; Datum Ende


MsgBox(0,'filecount xx' & $T_FILECOUNT ,$N_TFILE & $FORMAT_FS & $FORMAT_Datum)
EndIf

============================================

Gruss

German
genannt: DER INTEGRATOR

PS: Deinen Code hab ich jetzt aber auch gemopst, gefällt mir gut.

Hallo!

helf hier auch gerne, hab aber keine VISO Datei, ist das Textformat wie DXF oder wie sehen die Dateien aus.
Binärzeichen drin???

Mach halt mal ein Muster oder stelle mal eine Textstelle hier rein und sag was von ALT-->NEU getauscht werden soll.

Gruss aus dem Spessart

German