vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

VB.NET - Ein- und Umsteiger
BinaryWriter Unicode schreiben und länge des Textes 
Autor: DerMicha
Datum: 18.12.11 17:53
Hi, ich habe mir eine Sub geschrieben das ich per Offset angabe Unicode in eine Binärdatei schreibe. Der Code sieht momentan so aus. 

 
    Private _Encoding As System.Text.Encoding = System.Text.Encoding.Unicode
 
 
    Public Sub WriteStringUNICODE(ByRef FileName As String, ByRef InText As _
      String, ByRef Offset As Integer)
 
        Dim writeStream As FileStream
 
        Try
            writeStream = New FileStream(FileName, IO.FileMode.Open, _
              FileAccess.Write, IO.FileShare.Write)
            Dim writeBinay As New BinaryWriter(writeStream, _Encoding)
            writeBinay.BaseStream.Position = Offset
 
            writeBinay.Seek(Offset, System.IO.SeekOrigin.Begin)
            writeBinay.Write(InText, 0, InText.Length)
 
            writeBinay.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
Soweit funktioniert zumteil alles jedoch ist das problem, das wenn ich vorher einen Langen Text geschrieben habe und dann einen neuen Text schreibe der kürzer ist, sind am ende noch die alten Buchstaben bzw Bytes da vom langen Text. Wie kann ich diese mit "Nullen" ersetzen je nach länge des Textes?

Ich habe folgendes versucht... 
 
    Public Sub WriteStringUNICODE(ByRef FileName As String, ByRef InText As _
      String, ByRef Offset As Integer)
 
        Dim writeStream As FileStream
 
        Try
            writeStream = New FileStream(FileName, IO.FileMode.Open, _
              FileAccess.Write, IO.FileShare.Write)
            Dim writeBinay As New BinaryWriter(writeStream, _Encoding)
            writeBinay.BaseStream.Position = Offset
 
            writeBinay.Seek(Offset, System.IO.SeekOrigin.Begin)
            writeBinay.Write(InText, 0, InText.Length)
 
 
            writeBinay.Write(0)
            writeBinay.Write(0)
            writeBinay.Write(0)
            writeBinay.Write(0)
            writeBinay.Write(0)
            writeBinay.Write(0)
 
            writeBinay.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
Funktioniert zwar auch ABER ich müsste immer writeBinary.write(0) schreiben und das wäre umständlich zumal der Text eventuell verschiedene länge haben kann.

Gruß Micha
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
BinaryWriter Unicode schreiben und länge des Textes2.112DerMicha18.12.11 17:53
Re: BinaryWriter Unicode schreiben und länge des Textes935Blackbox18.12.11 21:36
Re: BinaryWriter Unicode schreiben und länge des Textes944Preisser18.12.11 23:05
Re: BinaryWriter Unicode schreiben und länge des Textes888DerMicha19.12.11 02:25

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 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