fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Level-Konvertierung

Uploader:	Mao
Datum/Zeit:	23.06.2007 21:21:56

Dim As String InputFile, OutputFile, Temp

Dim As Integer IFF, OFF, i



Input "Text-Level  : ", InputFile

Input "Binaer-Level: ", OutputFile



IFF=FreeFile

OFF=FreeFile



Open InputFile For Input As #IFF

Open OutputFile For Binary As #OFF

  While Not Eof(IFF)

    Line Input #IFF, Temp

    For i=1 To Len(Temp)

      Put #OFF,, Chr(Asc(Mid(Temp, i, 1))-48)

    Next i

  Wend

Close #OFF

Close #IFF



Print "Well done. ;)"

Sleep

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.