|
| |
VB.NET - Ein- und Umsteiger| vb2010 in großer Textdatei kleinen Text austauschen ohne Datei komplett zu laden | |  | | Autor: hupsi | | Datum: 06.04.11 11:33 |
| Hallo,
ich schreibe derzeit eine Anwendung in VB2010. Dabei erzeuge ich große Dateien mit einem Text-Headerbereich.
d.h. die ersten n-Bytes sind textlesebare Headerinformationen, anschließend folgenen mehrere Mbytes an Messdaten.
Da ich zu Beginn der Anwendung noch nicht alle Informationen für den Header habe, schreibe ich quasi Platzhalter, um am Ende wenn diese Werte bekannt sind, diese zu überschreiben.
Und für dieses überschreiben suche ich in VB2010 eine Funktion.
Alles was ich versucht habe, z.B. Streamwriter überschreiben die ganze Datei, löschen meine Messdaten.
Kennt jemand eine geeignete Funktion.
In VB6 ging so etwas.
Danke für Eure Tipps!
Gruß hupsi | |
| Re: vb2010 in großer Textdatei kleinen Text austauschen ohne Datei komplett zu laden | | | Autor:  FZelle (Moderator) | | Datum: 06.04.11 11:38 |
| Dann solltest du evtl mal das Arbeiten mit Dateien besser nachlesen.
Schau doch mal in der Hilfe was StreamReader ist!!
http://msdn.microsoft.com/de-de/library/system.io.streamreader(VS.80).aspx
Und dann schau mal im System.IO Namespace was für einen Reader/Writer du wohl für Binärdaten nehmen musst. | |
| Re: vb2010 in großer Textdatei kleinen Text austauschen ohne Datei komplett zu laden | | | | Autor: hupsi | | Datum: 06.04.11 13:36 |
| Hallo,
danke, oft ist es nur ein Denkanstoss.
Es funktioniert auch fast, bis auf eine Kleinigkeit.
' ---- Headerdaten wegschreiben
If Not NurHeaderüberschreiben Then
' also neuen leeren RSP-File anlegen und mit der Block Variablen (
' String) füllen
Dim fsRsp As StreamWriter = New StreamWriter(RspDatei, False, _
System.Text.Encoding.Default)
fsRsp.Write(Block)
fsRsp.Close()
Else
' also hier nun am Ende nur den Header am Anfang mit der Block
' Variablen überschreiben
Dim fs As New FileStream(RspDatei, FileMode.Open, FileAccess.Write)
' Create the writer for data.
Dim w As New BinaryWriter(fs, System.Text.Encoding.Default)
' Write data to Test.data.
'Dim a As Long = w.Seek(0, SeekOrigin.Current)
w.Write(Block)
w.Close()
fs.Close()
End IfDer File bleibt in seiner Größe erhalten.
Nur beim Überschreiben mit der Block-Variablen (String) ganz am Dateianfang werden immer 3 Zeichen vorangestellt.
An welchem Parameter muss ich da drehen.
Danke!
Gruß hupsi | |
| Re: vb2010 in großer Textdatei kleinen Text austauschen ohne Datei komplett zu laden | | | | Autor: hupsi | | Datum: 06.04.11 14:53 |
| Hallo,
ich habs gefunden.
Wen es interessiert!
' ---- Headerdaten wegschreiben
If Not NurHeaderüberschreiben Then
' also neuen leeren RSP-File anlegen und mit der Block Variablen (
' String) füllen
Dim fsRsp As StreamWriter = New StreamWriter(RspDatei, False, _
System.Text.Encoding.Default)
fsRsp.Write(Block)
fsRsp.Close()
Else
' also hier nun am Ende nur den Header am Anfang mit der Block
' Variablen überschreiben
Dim fs As New FileStream(RspDatei, FileMode.Open, FileAccess.Write)
' Create the writer for data.
Dim w As New BinaryWriter(fs, System.Text.Encoding.Default)
' Write data to Test.data.
'die Dateiposition setzten, hier direkt am Anfang der Datei
Dim Position As Long = w.Seek(0, SeekOrigin.Current)
' die Stringvarible in ein Byte-Array umwandeln
Dim bb As Byte() = System.Text.Encoding.Default.GetBytes(Block)
' dann das Byte-Array wegschreiben
w.Write(bb)
w.Close()
fs.Close()
End Ifman darf den String nicht direkt als String schreiben, sondern in ein Byte-Array.
Und dann gehts.
Gruß hupsi | |
 | 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 |
 |
|
sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
| |
|
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
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.