fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

String-Datensätze fester Länge speichern mit BINARY

Uploader:	Sebastian
Datum/Zeit:	09.03.2013 14:09:28

Dim Datensatz(1 To 5) As String*6



Datensatz(1) = "123"

Datensatz(2) = "HALLOWELT"

Datensatz(3) = "TEST"

Datensatz(4) = "0123"

Datensatz(5) = "123456"



Dim i As Integer



Open ExePath + "/verw" For Binary As #1

For i = LBound(Datensatz) To UBound(Datensatz)

    Put #1, , Datensatz(i)

Next i

Close #1



Print "Alle Datensaetze geschrieben."

Sleep

End

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.