vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 1749: Daten speichern durch Serialisierung (VB.NET) 
Autor: Ausbrecher
 Tipp anzeigenDatum: 25.08.10 03:28

Vielen Dank für den Tipp :=)

Würde aber gerne bei einer Sache nachhaken. Mir ist bisher keine Programmiersprache bekannt in der man so leicht wie in VisualBasic 6 Binärdaten schreiben kann (was ich leider in VB.NET sehr vermisse).

In Visual Basic 6 konnte man ganz einfach einen "Type" erstellen, und mittels open "..." for Binary #1 den kompletten Type eintragen (und später auch problemlos einladen) Es war auch möglich andere Binärdaten zu öffnen und so zum Beispiel eine JPEG Datei ganz einfach in ein Type einzuladen (solang der Type die richtige Gliederung hatte) und HeaderDaten bequem auslesen.

Beispiel (aus der Hand):

Private Type MeinTest
    Signature as String * 2
    TestInteger as Integer
    TestLong as Long
    TestStringShort as String * 16
    TestStringText as String
End Type
.....
Private Function LoadFile(ByVal Path as String) as MeinTest
    dim ff as integer
    ff = FreeFile
    open Path for Binary Access Read As #ff
    Get #ff, ,LoadFile ' Lade die Daten aus der Datei
    close ff
End Function
 
Private Sub SaveFile(ByVal Path as string, ByVal myData as MeinTest)
    dim ff as integer
    ff = FreeFile
    open Path for Binary Access Write As #ff
    Put #ff,, MyData ' Schreibe Daten in Datei
    close #ff
End Sub
 
Private Sub TesteMich()
    Dim Test1 as MeinTest
    Dim Test2 as MeinTest
 
    ' Ein par Einträge vornehmen
    Test1.Signature = "ZM"
    Test1.TestInteger = 91442
    Test1.TestLong = 1048576243
    Test1.TestStringShort = "Max. 16 Zeichen!"
    Test1.TextStringText = "Hier können so viele Zeichen wie gewollt rein"
 
    ' Nun Test1 Speichern
    Call SaveFile("c:\MeinTest.ooo", Test1)
 
    ' Und nun Die Datei in Test2 einladen
    Test2 = LoadFile("c:\MeinTest.ooo")
 
    ' Zum Testen ein par wenige Werte Ausgeben
    Call MsgBox(Test1.Signature & vbCrLf & Test1.TestInteger & vbCrLf & _
      Test1.TestStringText)
End Sub
Das Ergebnis beim Speichern ist eine original Binäre Datei. Bei VB.NET habe ich da leider nicht so schöne Erfahrungen. Leider aber ist VB6 vom Aussterben bedroht, und wird auch nciht mehr weiter entwickelt.
Leider geht das ganze in VB.NET nicht mehr so einfach, was ich vermisse.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 1749: Daten speichern durch Serialisierung (VB.NET)5.638Ausbrecher25.08.10 03:28
Re: Daten speichern durch Serialisierung (VB.NET)2.237ModeratorDaveS25.08.10 09:36
Re: Daten speichern durch Serialisierung (VB.NET)2.774MyNeXX25.08.10 17:46
Re: Daten speichern durch Serialisierung (VB.NET)2.308ModeratorDaveS25.08.10 18:03
Re: Daten speichern durch Serialisierung (VB.NET)2.291MyNeXX27.08.10 20:03
Re: Daten speichern durch Serialisierung (VB.NET)2.139ZAG09.10.12 17:23

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel