fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Problem mit Binärmodus

Uploader:	schildron
Datum/Zeit:	28.03.2011 18:12:21

'--------------------------------

'Binärdatei schreiben

'--------------------------------



Open "Testdatei" For Binary As #1



For Counter As Integer = 1 To 10

    Put #1,Counter,"Hallo Welt"

Next



Close #1



'--------------------------------

'Binärdatei versuchen zu lesen

'--------------------------------

Dim As String Inhalt

Open "Testdatei" For Binary As #2



For Counter As Integer = 1 To 10

    Get #2,Counter,Inhalt

    Print inhalt

Next



Close #2



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.