Hello there Привет
open "testUnicode.txt" for input as #1 a$=input$(#1, lof(#1)) close #1 for i =1 to len(a$) c$=mid$(a$,i,1) print i, asc(c$), if asc(c$)>31 then print c$ else print next
1 255 я 2 254 ю 3 72 H 4 0 5 101 e 6 0 7 108 l 8 0 9 108 l 10 0 11 111 o 12 0 13 32 14 0 15 116 t 16 0 17 104 h 18 0 19 101 e 20 0 21 114 r 22 0 23 101 e 24 0 25 13 26 0 27 10 28 0 29 31 30 4 31 64 @ 32 4 33 56 8 34 4 35 50 2 36 4 37 53 5 38 4 39 66 B 40 4
a$=mid$(a$,3) 'strip 2 marker bytes for i =1 to len(a$) step 2 'every second one c$=mid$(a$,i,1) print i, asc(c$), if asc(c$)>31 then print c$ else print next
|
|
|
|
... ... ... ... ... ... d$ = d$ + c$ next open "Speak2.txt" for output as #2 #2 d$ close #2 'speak the number c$ = "Speak2.txt" 'print c$ b$ = "cscript.exe speak.vbs "; c$ run b$, hide End
|