fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Der entsprechende Code

Uploader:	The_Muh
Datum/Zeit:	26.09.2007 17:36:46

dim as string text, seite

dim shared as integer zeile=3, spalte=1

dim as integer mzeile, mspalte, buttons



sub speichern(text as string, seite as string)

    OPEN seite FOR OUTPUT AS #1

    PRINT #1, text

    CLOSE #1

    beep

end sub



function laden(seite as string) as string

    Dim text as string

    OPEN seite FOR INPUT AS #1

    while not EOF(1)

        dim neuezeile as string

        line INPUT #1, neuezeile

        text+=neuezeile+CHR(13,10)

    wend

    text=left(text,len(text)-2) 'letztes chr(13,10) wieder löschen da zu viel

    CLOSE #1

    CLS

    return text

end function

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.