vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB.NET - Fortgeschrittene
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL Comp-6-Format) 
Autor: Schudi
Datum: 26.11.18 20:51

Danke, danke, danke!

100 Punkte mit Sternchen!

Funktioniert mit allen bisher probierten Werten. 115 / 20150423 / 19991018

Ich hab's nur noch verallgemeinert:

    Structure Artikel
        Dim Mc As String '10 Byte
        Dim Num As Integer '2 Byte
        ...
        Dim NeuDat As String '4 Byte
        ...
    End Structure
 
    Sub LeseDatei()
 
        Dim s = IO.File.OpenRead("d:\##\cobol.txt")  'Testdatei
        Dim r = New IO.BinaryReader(s)
 
        'einen Satz lesen
        Dim a As New Artikel
 
        ReadBuffer = r.ReadBytes(2)
        a.Num = CType(Comp6toString(ReadBuffer), Integer)  'inkl. Umsetzung 
        ' nach Integer
 
        ...
 
        ReadBuffer = r.ReadBytes(4)
        a.NeuDat = Comp6toString(ReadBuffer)               'bleibt eine String
 
        ...
 
        r.Close()
 
    End Sub
   Public Function Comp6toString(ReadValue() As Byte) As String
 
        Dim x As String = ""
        For i = 0 To ReadValue.Length - 1
            x &= ReadValue(i).ToString("x2")
        Next
        Return x
 
    End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Hexwert in String Halbbyte für Halbbyte umwandeln1.243Schudi20.11.18 17:03
Re: Hexwert in String Halbbyte für Halbbyte umwandeln797Manfred X20.11.18 17:44
Re: Hexwert in String Halbbyte für Halbbyte umwandeln773eierlein21.11.18 19:44
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...774Schudi26.11.18 14:36
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...759Schudi26.11.18 15:24
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...771eierlein26.11.18 15:44
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...771Schudi26.11.18 16:34
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...806Schudi26.11.18 16:24
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...798eierlein26.11.18 17:16
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...898Schudi26.11.18 18:30
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...914eierlein26.11.18 19:47
Re: Hexwert in String Halbbyte für Halbbyte umwandeln (COBOL...789Schudi26.11.18 20:51

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-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