fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Einfacher Text->1337 Konverter

Uploader:	Sebastian
Datum/Zeit:	12.07.2008 18:28:18

DIM AS STRING Buchstabe, Eingabe, Ausgabe=""

DIM AS STRING Tabelle(6,1)

DIM AS INTEGER i, j, fund



'Es folgt die Umwandlungstabelle:

Tabelle(0,0) = "E": Tabelle(0,1) = "3"

Tabelle(1,0) = "A": Tabelle(1,1) = "4"

Tabelle(2,0) = "I": Tabelle(2,1) = "1"

Tabelle(3,0) = "L": Tabelle(3,1) = "1"

Tabelle(4,0) = "O": Tabelle(4,1) = "0"

Tabelle(5,0) = "B": Tabelle(5,1) = "8"

Tabelle(6,0) = "G": Tabelle(6,1) = "6"

'... to be continued ... ;-)



CLS

PRINT

COLOR 14

PRINT "  Text>1337 - Konverter"

COLOR 7

PRINT

PRINT "  Bitte geben Sie im Folgenden den Text ein, der umgewandelt werden soll:"

COLOR 10

INPUT "  ", Eingabe

COLOR 7

PRINT



IF Eingabe = "" THEN

    END

ELSE

    Eingabe = UCASE(Eingabe) 'Text in Großbuchstaben umwandeln.

    FOR i = 1 TO LEN(Eingabe)

        Buchstabe = MID(Eingabe,i,1)

        fund = 0

        FOR j = LBOUND(Tabelle) TO UBOUND(Tabelle)

            IF Tabelle(j,0) = Buchstabe THEN

                Ausgabe += Tabelle(j,1)

                fund = 1

                EXIT FOR

            END IF

        NEXT j

        IF fund = 0 THEN Ausgabe += Buchstabe

    NEXT i

    PRINT "  Der Text in Leetspeak:"

    COLOR 11

    PRINT "  "; Ausgabe

    COLOR 7

    PRINT

    PRINT "  Beliebige Taste zum Beenden dr"; CHR(129); "cken."

    SLEEP: END

END IF

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.