Aleviten

Informatik

PHP



EN | DE | TR
Share on Facebook
02 26 2009

VBS Zeile im Text finden

Um Werte aus einer bestehenden Datei in eine neue Datei zu Kopieren kann dieser Code sehr Hilfreich sein.
Code :::::::::::::::::::::::::::::::::::
Dim pernabeintrag,strNextLine,arrServiceList Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ (c\programme\lotus\notes.ini", ForReading) Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , vbCrLf) 'Wscript.Echo "Zeile: " & arrServiceList(0) if left(arrServiceList(0), 15) = "NAMES=names.nsf" then Wscript.Echo "Treffer: "& arrServiceList(0) zukopierendezeile = arrServiceList(0) end if Loop
::::::::::::::::::::::::::::::::::: Hier wird nach einem wert gesucht das die Zeile enthalten sollte:
if left(arrServiceList(0), 15) = "NAMES=names.nsf" then



02 25 2009

Captcha






Captchas haben sich wegen zunehmenden Spamming-Attacken schon fast zum Standard für Webformulare entwickelt. Sie haben die Aufgabe, Menschen von Programmen zu unterscheiden und schaffen es somit Formulare davor zu schützen, automatisch ausgefüllt zu werden.



02 22 2009

Neues Design

Allso endlich ist es soweit, ein neues Design ist vollendet, zumidest hoffe ich das es ist. Das Grafische wahr sicherlich der Schwierigere Part als der Code.



08 17 2007

Bush und Sprachen

Treffen sich drei Männer aus verschiedenen Ländern. Sagt der aus England: "Bei uns ist das schwierig, wir schreiben 'school' und sagen 'skul'!" "Das ist noch gar nichts", sagt der Mann aus Frankreich "wir schreiben 'Renault' und sagen 'Reno'!" "Bei uns ist das aber noch schwieriger", antwortet da der Mann aus Deutschland "Wir schreiben 'Wie bitte?' und sagen 'Hä?'" Das ist nix sagt der Ami: Wir schreiben Bush und sagen Arschloch