SetDirectory["/Users/akb/Dropbox/Trabajo/URL/akb_files/Cursos/Mathematica/actividades/"];

file="binfile.bin"

bytearray=StringToByteArray["Alejandro Kunold es el mejor profesor del universo conocido. Deberian nombrarlo lider supremo de la galaxia."]

Normal[bytearray]

str=CreateFile[file]

BinaryWrite[str,bytearray]

Close[str]

binlist=BinaryReadList[str]

FromCharacterCode[binlist]

DeleteFile[str]

binlist=BinaryReadList[str]

str=CreateFile["binaryfile.bin"]

bytearray=StringToByteArray["Alejandro Kunold es el mejor profesor del universo conocido. Deberian nombrarlo lider supremo de la galaxia."]

BinaryWrite[str,bytearray]

Close[str]

(* Reading the file *)

SetDirectory["/Users/akb/Dropbox/Trabajo/URL/akb_files/Cursos/Mathematica/actividades/"];

binlist=BinaryReadList["binaryfile.bin"]

FromCharacterCode[binlist]

SetDirectory["/Users/akb/Dropbox/Trabajo/URL/akb_files/Cursos/Mathematica/actividades/"];

file="binfile.bin"

(* Creating the file *)

bytearray=StringToByteArray["vx=0.223344 vy=0.563478 x=0.8954 y=0.7245 "]

Normal[bytearray]

file="binaryfile2.bin"

str=CreateFile[file]

BinaryWrite[str,bytearray]

Close[str]

(* Reading the file *)
binlist=BinaryReadList["binaryfile2.bin"]

string=FromCharacterCode[binlist]

posvx=StringPosition[string,"vx="]
posvy=StringPosition[string,"vy="]
stringpartvx=StringTake[string,{{posvx[[1,2]]+1,posvy[[1,1]]-1}}]
vx=ToExpression[stringpartvx[[1]]]

posvy=StringPosition[string,"vy="]
posx=StringPosition[string," x="]
stringpartvy=StringTake[string,{{posvy[[1,2]]+1,posx[[1,1]]-1}}]
vy=ToExpression[stringpartvy[[1]]]

(vx^2)+(vy^2)