Hallo zusammen,
grade bin ich dabei ein Programm mit VB6 zu VB.NET komplett umzuschreiben. Mittlerweile bin ich zu einem für mich unlösbaren Problem gekommen. In VB6 werden txt-Dateien gespeichert und aus diesen gelesen, in VB.NET geht das ja auch. Das hab ich auch hinbekommen. Das Problem dabei ist der Inhalt der txt-Datei. Manche Zeilen haben nur kryptische Zeichen - und ich weiß nicht wo die her kommen und wie man die wieder lesen kann. Hier ein Beispiel aus der txt-Datei:
Nicht wundern: die Datei sieht wirklich so aus. "Durchmesser" (Dateikennung) ist in Zeile 1, alles andere in Zeile 2
in VB6 wird das so gespeichert:
So, und jetzt die Frage: Warum kommen solche kryptischen Zeichen? Und wie kann ich diese in VB.NET auslesen?
Ich hoffe ihr könnt mir helfen.
Danke!
grade bin ich dabei ein Programm mit VB6 zu VB.NET komplett umzuschreiben. Mittlerweile bin ich zu einem für mich unlösbaren Problem gekommen. In VB6 werden txt-Dateien gespeichert und aus diesen gelesen, in VB.NET geht das ja auch. Das hab ich auch hinbekommen. Das Problem dabei ist der Inhalt der txt-Datei. Manche Zeilen haben nur kryptische Zeichen - und ich weiß nicht wo die her kommen und wie man die wieder lesen kann. Hier ein Beispiel aus der txt-Datei:
Nicht wundern: die Datei sieht wirklich so aus. "Durchmesser" (Dateikennung) ist in Zeile 1, alles andere in Zeile 2
in VB6 wird das so gespeichert:
Visual Basic-Quellcode
- Sub Save_Durchmesser()
- Put #FileNum, 1, Dateikennung
- Put #FileNum, 2, Messdatum
- Put #FileNum, 3, Kennwort
- Put #FileNum, 4, Kunde
- Put #FileNum, 5, Ort
- Put #FileNum, 6, Ofen_Nr
- Put #FileNum, 7, Ofenabmessung
- Put #FileNum, 8, Anzahl_Stationen
- Put #FileNum, 9, Messender
- Put #FileNum, 10, Bemerkung_Husky
- Put #FileNum, 11, Position_Ritzel
- Put #FileNum, 12, Position_Zahnkranz
- Put #FileNum, 13, Antriebsstation
- Put #FileNum, 14, Entfernung_Zk_LR
- N = 14
- For i = 1 To Anzahl_Stationen
- N = N + 1
- Put #FileNum, N, Position_Längsführung(i)
- Next i
- N = N + 1
- Put #FileNum, N, Planetenkühler
- For i = 1 To Anzahl_Stationen
- N = N + 1
- Durchmesserwerte_Alle.Wert_D1 = A_Durchmesser_LR(i)
- Durchmesserwerte_Alle.Wert_D2 = B_Durchmesser_LR(i)
- Durchmesserwerte_Alle.Wert_D3 = C_Durchmesser_LR(i)
- Durchmesserwerte_Alle.Wert_D4 = Durchmesser_LR(i)
- Put #FileNum%, N, Durchmesserwerte_Alle
- N = N + 1
- Durchmesserwerte_Alle.Wert_D1 = A_Durchmesser_L_R(i)
- Durchmesserwerte_Alle.Wert_D2 = B_Durchmesser_L_R(i)
- Durchmesserwerte_Alle.Wert_D3 = C_Durchmesser_L_R(i)
- Durchmesserwerte_Alle.Wert_D4 = Durchmesser_L_R(i)
- Put #FileNum%, N, Durchmesserwerte_Alle
- N = N + 1
- Durchmesserwerte_Alle.Wert_D1 = A_Durchmesser_R_R(i)
- Durchmesserwerte_Alle.Wert_D2 = B_Durchmesser_R_R(i)
- Durchmesserwerte_Alle.Wert_D3 = C_Durchmesser_R_R(i)
- Durchmesserwerte_Alle.Wert_D4 = Durchmesser_R_R(i)
- Put #FileNum%, N, Durchmesserwerte_Alle
- N = N + 1
- Relativberechnung.Wert_RA1 = Meßwert_Relativ(i)
- 'Relativberechnung.Wert_RA2 = LR_Zuordnung(i)
- Relativberechnung.Wert_RA2 = LR_Meßwert(i)
- Relativberechnung.Wert_RA3 = Wanddicke_LR(i)
- Relativberechnung.Wert_RA4 = Relativbewegung(i)
- Relativberechnung.Wert_RA5 = Höhenkorrektur(i)
- Put #FileNum%, N, Relativberechnung
- Next i
- End Sub
So, und jetzt die Frage: Warum kommen solche kryptischen Zeichen? Und wie kann ich diese in VB.NET auslesen?
Ich hoffe ihr könnt mir helfen.
Danke!