mata:
void hexconv(string scalar fread, string scalar fwrite)

{

fr = fopen(fread, "r")

fa = fopen(fwrite, "a")

i=0

while ((c=fread(fr,1))!=J(0,0,"")) {

fwrite(fa,(substr("0"+inbase(16,ascii(c)),strlen("0"+inbase(16,ascii(c)))-1,.)))

i++

if (mod(i,64)==0) {

fput(fa,"")

}

}

fclose(fr)

fclose(fa)

}
end

那位帮忙解释一下这个程序？谢谢！