Beiträge von BugFix

  • "Bedankomat" für Beiträge

    Zitat von GtaSpider

    Klar wird eine Art Wettkampf ausbrechen, wer bekommt am meisten Bedankungen. Aber das ist doch eher erüwnscht, weil man nur ein "Danke" bekommt, wenn man auch was gutes gemacht hat (zum Beispiel geholfen hat, oder ein Skript gepostet hat).


    Wettkampf ist erwünscht ? - GtaSpider, ich verstehe dich nicht.
    Was hebt unser Forum denn so deutlich gegenüber anderen ab? - Die lockere Atmosphäre, Hilfsbereitschaft rein um zu Helfen und nicht um irgendwelche Punkte zu sammeln.
    Wenn ein User schreibt: "Danke, das hat mir geholfen - wieder was gelernt.", dann weiß ich, dass meine Bemühungen auf fruchtbaren Boden gefallen sind und das gibt mir auch die Motivation für die Zukunft.
    Was soll ich mit einem Dankeschön-Counter? Abends vorm Zubettgehen nochmal schnell ins Forum schauen, was der Zähler zeigt und mit dieser Selbstbeweihräucherung dann besser schlafen? :rofl: - Nein Danke, so degeneriert bin ich nicht.

    Klares Fazit: Bedankomat? - Nein, Danke!

  • [gelöst] AVM USB Fernanschluss läßt sich nicht installieren

    Zitat von Der_Doc

    Die exe wird doch von der FritzBox geliefert oder?

    Im FB-Interface kann man sie runterladen. Das ist ja nicht das Problem. Ich krieg das dämliche Ding halt nicht installiert.
    Der Fehler bedeutet m.M., dass eine Dll oder eine Funktion in einer Dll nicht gefunden werden kann. Auf meinen anderen PC im Heimnetz konnte ich es problemlos installieren.
    Ich vermute eher, die Software wurde 'weiterentwickelt'. Denn auf den anderen Rechnern habe ich das vor mehr als 2 Jahren installiert. Habe aber diese Version nicht mehr.

  • Homepage Impressumspflicht

    Laut Telekommunikationsgesetz gilt in Deutschland Impressumpflicht, d.h. auf der Homepage muß deutlich ersichtlich sein, wer der Eigentümer der Seite ist und wie man ihn kontaktieren kann.
    Um das ungewollte Auslesen dieser Daten durch Robots zu verhindern, schreibe ich das Impressum in ein Image und hänge dieses in die Seite. ;)
    Es wird oft darüber gestritten, ob für private Homepages die Impressumpflicht auch gilt. Soweit ich das deuten kann, ist es auf jeden Fall notwendig, wenn du ein Gästebuch, Forum oder ähnliches führst, wo Fremde Einträge schreiben können.
    Ich würde da auch kein Risiko eingehen. Es gibt Hunderte von Anwälten, die gierig Abmahnungen für so etwas verschicken. Und das ist teuer und wehren kannst du dich dagegen nicht, wenn es durch das Telekommunikationsgesetz gedeckt wird.

  • pfad

    Um das nochmal klarzustellen: Das hier ist das Unter-Forum "Jobbörse"!
    D.h. hier will jemand etwas kaufen. Also spart euch die Antworten, bis die Bezahlung geregelt ist. Ansonsten gehört sowas in H&U.

  • Text einfügen, löschen, ersetzten

    So gehts:

    [autoit]

    $sRead = StringRegExpReplace($sRead, '(\s\sMS_OTWREG_NOCHECK\s=\s)1(\r\n)', ' MS_OTWREG_NOCHECK = 0' & @CRLF)

    [/autoit]

    Das ist noch solche Macke der AutoIt-Regex-Engine (ist mir auch neu). Obwohl nur 9 Backreferenzen möglich sind, wird der Ausdruck: $10$2 (Backreferenz1 & 0 & Backreferenz2) als Backreferenz10 & Backreferenz2 interpretiert. Was 'n Schwachsinn. :cursing:

  • Text einfügen, löschen, ersetzten

    Copy & Paste - Fehler von mir ;)

    Spoiler anzeigen
    [autoit]

    For $i = 1 To $aFiles[0]
    $fh = FileOpen($sPfad & "\" & $aFiles[$i], 0)
    $sRead = FileRead($fh)
    FileClose($fh)
    $sFileName = $aFiles[$i]
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_DESIGNSEED\s=.*\r\n)', '$1' & " %lock MS_DESIGNSEED" & @CRLF)
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_SEEDFILES\s=.*\r\n)', '$1' & " # Verzeichnis der Seeddateien" & @CRLF)
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_COMPRESS_OPTIONS.*\r\n)', '')
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS.*\r\n)', '')
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_OTWREG_NOCHECK\s=\s)(1)(.*\r\n)', '$10$3')
    $sRead &= _
    @CRLF & _
    "MS_OPENDESIGNFILEFILTER = *.dgn" & @CRLF & _
    "MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0" & @CRLF
    $fh = FileOpen($sPfad & "\" & $aFiles[$i], 2)
    FileWrite($fh, $sRead)
    FileClose($fh)
    Next

    [/autoit]

  • Word-Dok. ergänzen

    Du hast recht, die Word-UDF ist gelinde gesagt Sch... . :S
    Ich arbeite da immer direkt mit dem Word Objekt Modell

    Hier mal ein kurzes Bsp.:

    Spoiler anzeigen
    [autoit]

    $oWord = ObjCreate("Word.Application")
    $oWord.Visible = True
    $oDoc = $oWord.Documents.Open ('C:\Test.doc') ; eine bestehende Datei aufrufen
    ; für Absätze = Paragraphs, für Sätze = Sentences, für Wörter = Words, für Zeichen = Character
    $countS = $oDoc.Sentences.Count
    $oSelect = $oDoc.Sentences($countS -1).Select ; markiert vorletzten Satz

    [/autoit]

    Lies dich mal etwas ein, ist nicht so sehr schwierig.

  • Text einfügen, löschen, ersetzten

    Das geht dann so:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    ;~ Pfad, wo die *.PCF-Dateien liegen
    $sPfad = "C:\Users\Shkal\Desktop\Schulung"
    ;~ Nur für die Dateiendung:
    $ext = "*.pcf"

    [/autoit] [autoit][/autoit] [autoit]

    If StringRight($sPfad, 1) <> "\" Then $sPfad &= "\"
    $aFiles = _FileListToArray($sPfad, $ext)
    If @error Then
    MsgBox(64,"","Fehler. Keine Dateien gefunden")
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $sPfad = StringTrimRight($sPfad,1)

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $aFiles[0]
    $fh = FileOpen($sPfad & "\" & $aFiles[$i], 0)
    $read = FileRead($fh)
    FileClose($fh)
    $sFileName = $aFiles[$i]
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_DESIGNSEED\s=.*\r\n)', '$1' & " %lock MS_DESIGNSEED" & @CRLF)
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_SEEDFILES\s=.*\r\n)', '$1' & " # Verzeichnis der Seeddateien" & @CRLF)
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_COMPRESS_OPTIONS.*\r\n)', '')
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS.*\r\n)', '')
    $sRead = StringRegExpReplace($sRead, '(\s\sMS_OTWREG_NOCHECK\s=\s)(1)(.*\r\n)', '$10$3')
    $sRead &= _
    @CRLF & _
    "MS_OPENDESIGNFILEFILTER = *.dgn" & @CRLF & _
    "MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0" & @CRLF
    $fh = FileOpen($sPfad & "\" & $aFiles[$i], 2)
    FileWrite($fh, $sRead)
    FileClose($fh)
    Next

    [/autoit]

    Noch als Randbemerkung: Dass man FileRead/ -Write auch ohne Filehandle verwenden kann, heisst nicht, dass man das auch tun muss.
    Ich persönlich finde, es ist einfach besserer Stil eine Datei sauber zu öffnen und zu schließen. ;)

  • Text einfügen, löschen, ersetzten

    Zitat von Dino

    Irgendwas fehlt noch

    Er hat die falschen RegEx-Lösungen verwendet. Die letzte gepostete Version funktioniert.
    Die AutoIt-Regex-Engine hat 'ne Macke: Anfang String ODER nach Zeilenumbruch wird normalerweise mit "^" maskiert. In der AutoIt eigenen Engine wird das aber als Stringanfang interpretiert. Daher hatte ich das anfangs auch falsch.

  • Text einfügen, löschen, ersetzten

    Mit Muster ist es wesentlich besser, dann klappts auch mit dem Nachbarn ;)

    Spoiler anzeigen
    [autoit]

    $path = '..\Schulung_13.pcf'
    $fh = FileOpen($path, 0)
    $read = FileRead($fh)
    FileClose($fh)

    [/autoit] [autoit][/autoit] [autoit]

    $read = StringRegExpReplace($read, '(\s\sMS_DESIGNSEED\s=.*\r\n)', '$1' & " %lock MS_DESIGNSEED" & @CRLF)
    $read = StringRegExpReplace($read, '(\s\sMS_SEEDFILES\s=.*\r\n)', '$1' & " # Verzeichnis der Seeddateien" & @CRLF)
    $read = StringRegExpReplace($read, '(\s\sMS_COMPRESS_OPTIONS.*\r\n)', '')
    $read = StringRegExpReplace($read, '(\s\sMS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS.*\r\n)', '')
    $read = StringRegExpReplace($read, '(\s\sMS_OTWREG_NOCHECK\s=\s)(1)(.*\r\n)', '$10$3')
    $read &= _
    "MS_OPENDESIGNFILEFILTER = *.dgn" & @CRLF & _
    "MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0" & @CRLF

    [/autoit] [autoit][/autoit] [autoit]

    $fh = FileOpen($path, 2)
    FileWrite($fh, $read)
    FileClose($fh)

    [/autoit]

  • Text einfügen, löschen, ersetzten

    - alle Dateien (kpl. Pfad) in ein Array einlesen (das schaffst du allein ;) )
    - in einer Schleife das Array durcharbeiten mit folgendem Code (ungetestet, aber sollte laufen)

    Spoiler anzeigen
    [autoit]

    $fh = FileOpen('Dateipfad', 0)
    $read = FileRead($fh)
    FileClose($fh)

    [/autoit] [autoit][/autoit] [autoit]

    $read = StringRegExpReplace($read, '(^MS_DESIGNSEED\s=.*\r\n)', '$1' & "%lock MS_DESIGNSEED" & @CRLF)
    $read = StringRegExpReplace($read, '(^MS_SEEDFILES\s=.*\r\n)', '$1' & "# Verzeichnis der Seeddateien" & @CRLF)
    $read = StringRegExpReplace($read, '(^MS_COMPRESS_OPTIONS.*\r\n)', '')
    $read = StringRegExpReplace($read, '(^MS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS.*\r\n)', '')
    $read = StringRegExpReplace($read, '(^MS_OTWREG_NOCHECK\s=\s)(1)(.*\r\n)', '$10$3')
    $read &= _
    "MS_OPENDESIGNFILEFILTER = *.dgn" & @CRLF
    "MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0" & @CRLF

    [/autoit] [autoit][/autoit] [autoit]

    $fh = FileOpen('Dateipfad', 2)
    FileWrite($fh, $read)
    FileClose($fh)

    [/autoit]

  • Feiertage

    Zitat von Cartan12

    Auf so eine verrückte Idee ist bis jetzt keiner gekommen ^^


    Auch auf die Gefahr, dich enttäuschen zu müssen :D
    Das haben bereits mindestens 2 vor dir getan, sogar mit der Möglichkeit das komponierte aufzuzeichnen. Durchsuch mal das Skriptforum. ;)

  • MAC-Adresse der LAN-Verbindung auslesen?

    Nimm dafür das Tool GetMAC.

    Edit: Oder so:

    [autoit]

    $strComputer = "."
    $objWMIService = ObjGet("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    $colAdapters = $objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    $n = 1
    $str = ''
    For $objAdapter in $colAdapters
    $str &= "Network Adapter " & $n & @LF
    $str &= "=================" & @LF
    $str &= " Description: " & $objAdapter.Description & @LF
    $str &= " Physical (MAC) address: " & $objAdapter.MACAddress & @LF
    $str &= " Host name: " & $objAdapter.DNSHostName & @LF
    $n += 1
    Next
    ConsoleWrite($str & @CRLF)

    [/autoit]

  • Scite und SVN

    SciTE besitzt ein eigenes Repository (was ich aber noch nie wirklich zum Einsatz gekriegt habe :S ).
    Aber du kannst natürlich SVN Repository lokal installieren und deine Dokumente, wie üblich auschecken.
    Ich hatte mal angefangen eine SciTE-SVN Verknüpfung zu basteln, ist dann aber irgendwann liegengeblieben. Vielleicht kannst du es ja beleben? ;)