Hallo zusammen,
ich habe das Problem eine Binärdatei öffnen und auswerten zu müssen, ohne das ich weiß wie besagte Datei aufgebaut ist.
In besagter Datei sind vertrauliche Kundeninformationen abgelegt und diese werden derzeit verschlüsselt übertragen und mittels VBA dekodiert und ausgelesen.
Das gesamte Programm soll künftig auf eine andere Plattform und die VBA Anwendung (Access) soll durch ein VB.NET Programm abgelöst werden.
Mein Problem ist jetzt, dass ich den vorhandenen VBA Code nicht "übersetzten" kann. In VBA funktioniert alles Prima. Hier mal der Code:
Protokolldatei = "C:\Verzeichnis\Dateiname.red" 'GetOpenFile
If Not Len(Protokolldatei) = 0 Then
Me.Datensaetze = Anzahl_PD_Datensaetze(Protokolldatei) 'Anzahl der
' Datensätze
Me.v_Dateiname = Protokolldatei
End If
End Sub
Function Anzahl_PD_Datensaetze(Dateiname As String) As Long
Open Dateiname For Binary Access Read As #1 Len = 120
Dim Dateidaten As String
Dim i As Long
i = 0
Do While Not EOF(1) ' Auf Dateiende abfragen.
Dateidaten = Input(120, #1) ' Datenzeilen lesen.
i = i + 1
'Debug.Print Dateidaten ' Daten im Direktfenster ausgeben.
Loop
Close #1 ' Datei schließen
Anzahl_PD_Datensaetze = i
End Function Jetzt ist die Anzahl der Datensätze bekannt und ein bestimmter Datensatz aus der Datei wird ausgelesen:
Function PD_lesen(Dateiname As String, Datensatz As Long) As Long
Dim i As Long
Dim a As String
Dim jj1, jj2, mm1, tt, dd, hh, mm2 As String
' Header
Dim v_Kennung As Byte
Dim v_Terminal_SW As String * 4
Dim v_Kartenhersteller As String * 1
Dim v_Kartennummer As Double
Dim v_filler As String * 4
......
....
...
' Öffnen der Datei
Open Dateiname For Binary Access Read As #1 Len = 120
'Datensätze überspringen
While Datensatz > 1 And Not EOF(1)
a = Input(120, #1)
Datensatz = Datensatz - 1
Wend
'Header
'########################################################
'Pos HGS 1
v_Kennung = Asc(Input(1, #1))
'Pos HGS 2
v_Terminal_SW = Input(4, #1)
'Pos HGS 3
v_Kartenhersteller = Input(1, #1)
'Pos HGS 4
v_Kartennummer = StringToDouble(Input(4, #1))
'Pos HGS 5
v_filler = Input(4, #1)
.........
Close #1 Der eigentliche Code ist natürlich länger aber ich hänge schon hier.
Im weiteren Verlauf wird mit diversen Funktionen der Rest des Datensatzes übersetzt.
Bei mir scheitert es aber schon daran v_Kennung oder v_Terminal_SW auszulesen.
Da die Anwendung in Access einwandfrei funktioniert, weiß ich was raus kommen müssete aber in VB.NET bekomme ich das nicht hin.
Ich hoffe wirklich sehr, dass mir einer helfen kann.
Mein Hauptproblem ist wohl, dass ich nicht weiß was diese Zeilen des VBA Codes bewirken:
'Header
'########################################################
'Pos HGS 1
v_Kennung = Asc(Input(1, #1))
'Pos HGS 2
v_Terminal_SW = Input(4, #1)
'Pos HGS 3
v_Kartenhersteller = Input(1, #1)
'Pos HGS 4
v_Kartennummer = StringToDouble(Input(4, #1))
'Pos HGS 5
v_filler = Input(4, #1) Was genau macht dieser "Input(1, #1)" Befehl?
Ich bin für jede Unterstützung dankbar!! |