blogMyTrash

Es gibt ein neues Webportal auf dem sich Fragen über jedes erdenkliche Wissensgebiet stellen lassen. Natürlich werden die Fragen, schnellstens von Experte in dem jeweiligen Wissensgebiet beantwortet. Jeder soll auf einfachste Weise seine Erfahrung mit anderen Menschen austauschen und ein jeder davon profitieren. Um jede Menge Experten und Fragen zu erhalten lade ich euch alle [...]

Hy, I bought an apple iphone just a few weeks ago. Unfortunately the iphone slipped out of my hands an crashed on the floor. Now i have a broken display. I was very happy with my iphone from apple and great conversations. I also surfed throw the internet. The iphone belongs to a new generation [...]

Schon länger her, dass ich mein altes Motorola RaZr Handy in den Händen hatte. Vor ca. einem Jahr habe ich das Handy fallen gelassen und es war kaputt. Genauer gesagt war das Display defekt bzw. eingedrückt. Da ich mir sowieso ein neues Handy kaufen wollte habe ich kein Geld in die Reparatur meines Motorola RaZr [...]

Mein neues Apple Iphone ist gerade erst eingetroffen und ich war sehr zufrieden damit. Großes Display mit super Touchscreen Funktion. Nun ist mir leider das Display des Iphone kaputt gegangen. Garantie kann ich wohl leider vergessen und Handyversicherung habe ich auch keine abgeschlossen. Auf eine kostspielige Reparatur beim Fachhändler habe ich eigentlich auch keine Lust. [...]

‘ Mit VB-Script Textdatei als Datenbank verwenden bzw. ansprechen strFile = “C:\Temp\LogAnalyse.txt” ‘ Pfad zur TextdateistrFolder = “C:\Temp\” ‘ Pfad in der die schema.ini liegt (für Struktur der Datenbank) Set objfs = CreateObject(“Scripting.FileSystemObject”)Set objado = CreateObject(“ADODB.Connection”)Set objshell = CreateObject(“WScript.Shell”) strFile = objshell.ExpandEnvironmentStrings(strFile) objfs.CopyFile strFile, strFolder objado.open “Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=” & strFolder sql = [...]

‘ Neue Textdatei erzeugen bzw. erstellen mit VBScript datei = “C:\Temp\vbs-files\token.txt” ‘ Pfad und Name für die neue Textdatei Set objfs = CreateObject(“Scripting.FileSystemObject”)Set objstream = objfs.CreateTextFile(datei) ‘ Textdatei erzeugen bzw. erstellenobjstream.WriteLine Nowobjstream.WriteLine vbcrlfobjstream.closeWScript.Echo “Datei erzeugt: ” & datei

‘ Mit VB-Script Schreibschutz einer Datei entfernen Set fs = CreateObject(“Scripting.FileSystemObject”)datei = “C:\Beispiel.txt” ‘ Pfad zu einer existierenden Datei mit Schreibschutz DeleteSchreibschutz datei ‘ Subroutine DeleteSchreibschutz aufrufen und Dateipfad übergebenMsgBox “Schreibschutz entfernt bei ” & datei Sub DeleteSchreibschutz(dateiname) If Not fs.FileExists(dateiname) Then MsgBox “Datei nicht gefunden!” wscript.quit End If Set file = fs.GetFile(dateiname) file.Attributes = [...]

‘ eindimensionales Array definieren, befüllen und ausgeben in VB-Script Dim ProcessArray(1) ‘Array definieren 2 Zeilen Dim i ‘Hilfsvariable ProcessArray(0) = “Inhalt 1″ ‘Wert 0 befüllenProcessArray(1) = “Inhalt 2″ ‘Wert 1 befüllen For i = 0 To 1 WScript.Echo ProcessArray(i) ‘Wert i des Arrays ausgebenNext

‘ zeilenweise einlesen bzw. auslesen einer Textdatei mit VB-Script dateiPfad = “C:\Beispiel.txt”x = 0Const ForReading = 1 Set fs = CreateObject(“Scripting.FileSystemObject”) If (fs.FileExists(dateiPfad)) Then Set f = fs.OpenTextFile(dateiPfad, ForReading) ‘öfnen des File zum Lesen Do While f.AtEndOfStream <> True ‘solange einlesen bis Ende der Datei erreicht x = x+1 ReDim Preserve myArray(x) ‘Array vergrößern, damit [...]

‘ Mit VBScript Textdatei erzeugen und löschen datei = “C:\beispiel.txt” Set objfs = CreateObject(“Scripting.FileSystemObject”)If Not objfs.FileExists(token) Then WScript.Echo datei & ” ist nicht vorhanden”Else objfs.DeleteFile datei ‘ Mit VBScript Textdatei löschen WScript.Echo “File gelöscht: ” & dateiEnd If Set objfs = CreateObject(“Scripting.FileSystemObject”)Set objstream = objfs.CreateTextFile(datei) ‘ Mit VBScript Textdatei erzeugenobjstream.WriteLine Nowobjstream.closeWScript.Echo “File erzeugt: ” & [...]