arduno
Anmeldungsdatum: 12.05.2011 Beiträge: 252
|
Verfasst am: 12.07.2013, 23:14 Titel: Text-Datei in Hex umwandeln |
|
|
Hallo, guten Tag.
Ich möchte bitte diese Textdatei in Hexzahlen umwandeln.
Wie wird die eingelesen : Input oder Line Input ?
Code: |
0000 , 0175 , 0349 , 0523 ,
0698 , 0872 , 1045 , 1219 ,
1392 , 1564 , 1736 , 1908 ,
2079 , 2250 , 2419 , 2588 ,
2756 , 2924 , 3090 , 3256 ,
3420 , 3584 , 3746 , 3907 ,
4067 , 4226 , 4384 , 4540 ,
4695 , 4848 , 5000 , 5150 ,
5299 , 5446 , 5592 , 5736 ,
5878 , 6018 , 6157 , 6293 ,
6428 , 6561 , 6691 , 6820 ,
6947 , 7071 , 7193 , 7314 ,
7431 , 7547 , 7660 , 7771 ,
7880 , 7986 , 8090 , 8192 ,
8290 , 8387 , 8480 , 8572 ,
8660 , 8746 , 8829 , 8910 ,
8988 , 9063 , 9135 , 9205 ,
9272 , 9336 , 9397 , 9455 ,
9511 , 9563 , 9613 , 9659 ,
9703 , 9744 , 9781 , 9816 ,
9848 , 9877 , 9903 , 9925 ,
9945 , 9962 , 9976 , 9986 ,
9994 , 9998 , 10000 ,
|
Code: |
Screenres 300,200,32
Dim Shared As Integer z1
DIM AS String satz,satz1
Open "f:\winvice\sin.txt" FOR input AS #1
Open "f:\winvice\sincos.fs" FOR Output AS #2
Print #2,"create sincos"
Do
Line Input #1, satz
For z1=0 To 7
satz1=satz1+Hex(Val(satz),4)+" , "
satz1=LCASE(satz1)
Next
Print #2,satz1
satz1=""
Loop UNTIL EOF(1)
Close #1
Close #2
Print "fertig..."
sleep
|
Danke.
Gruss |
|