Kategorie: Scriptsprachen
Ich habe eine Schwäche für Zeitrafferaufnahmen. Um gutes Ausgangsmaterial zu erhalten, kann man seine Kamera auf ein Stativ stellen und regelmäßig auslösen lassen oder man nutzt eine der…
Ich schleppe meine Nikon ja fast überall mit hin, aber greife dennoch zwischendurch auch gern zum Telefon, um einen Moment unmittelbar mit Familien und Freunden zu teilen. Allein…
Kleine Hilfsfunktion, um XML / HTML konforme Strings zu erzeugen def encodeHTML(self,text): „““ Encodes strings to valid HTML. @type text: String @param text: Text „““ l=[] for c…
um in einem explizit erzeugten Thread mit Python die win32com Schnittstelle nutzen zu können, ist der Aufruf der Methode CoInitialize() in pythoncom notwendig, die die Koordination der Threads…
Um die GUI für längere Berechnungen nicht zu blockieren sollte man einen neuen Thread erzeugen. Dieser kann die GUI nach dem Observer Pattern über seinen aktuellen Zustand informieren:…
http://www.google.com/apis/maps/ Google Maps basiert auf JavaScript und kann daher, ohne eine Software zu installieren, in jedem JavaScript fähigen Web Browser angezeigt werden. Momentan unterstützt Google Maps folgende Browser:…
Sub Summe_bilden() Dim i As Long Dim adress1, adress2 As String Range(”E2″).Select ‘hier deine spalte und zelle eintippen adress1 = ActiveCell.Address i = 0 While ActiveCell.Value <> „“…
hadfjashfksdf sdjslfjdsl sjdksjadhask hjfskdjfh dfsjkdfhdsf aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa sjfsakdjflsa hsdkjhsd
Cookietest Nachname: Vorname: Abteilung:
Dim WshShell Set WshShell = WScript.CreateObject(„WScript.Shell“) WScript.Echo WshShell.CurrentDirectory WshShell.CurrentDirectory = „c:\“ WScript.Echo WshShell.CurrentDirectory
activeCell.Rows(„1:1“).EntireRow.Select Selection.Font.Bold = True
Sub GetDateCreated() ‚This requires a Reference to Microsoft Runtime Scripting Library Dim FSO As Scripting.FileSystemObject Dim FileItem As Scripting.File Dim DateCreated As String Set FSO = New Scripting.FileSystemObject…
Pos1 = Instr(1, „suchtext“, „t“, 0) if (Pos1 = 0) then echo „nichts gefunden“ end if
Sub zelle_selektieren() Dim Spalte As String Dim Zeile As Integer Spalte = „A“ Zeile = 3 ‚Range(„E18“).Select Range(Spalte & Zeile).Select End Sub
Sub mehrere_zeilen() Dim S As Integer Dim zeilenanzahl As Integer S = 2 zeilenanzahl = S + 3 Rows(zeilenanzahl & „:“ & S).Select End Sub