[求助]加入图片当作字幕|『字幕制作交流区』 - 『漫游』酷论坛

{ssa的UUE专用编码器，请使用virtual pascal 2.1编译。
这个程序没有对文件长度进行判断……麻烦谁修改一下……
CopyRight (-_-) 2004 MeteorRain, MISL, release under GNU}
program ssa_uue_encode_tool;
uses sysutils;
type
foc = file of char;
var
inf:foc;
ouf:text;
infn,oufn:string;
data0:string[3];
data:array[0..3] of byte absolute data0;
edata0:string[4];
edata:array[0..4] of byte absolute edata0;
szbuffer:string[80];
procedure read2(var f:foc; var ch1:char; var ch2:char; var ch3:char);
begin
if not eof(f) then read(f, ch1) else ch1 := #0;
if not eof(f) then read(f, ch2) else ch2 := #0;
if not eof(f) then read(f, ch3) else ch3 := #0;
end;
begin
write('Infile:');
readln(infn);
if not fileexists(infn) then begin
writeln('File not found');
halt(-1);
end;
{write('Outfile:');
readln(oufn);}
oufn := infn + '.txt';
assign(inf, infn);
assign(ouf, oufn);
reset(inf);
rewrite(ouf);
szbuffer := '';
while not eof(inf) do begin
data0 := #0#0#0;
edata0 := #0#0#0#0;
read2(inf, data0[1], data0[2], data0[3]);
edata[1] := data[1] shr 2 + 33;
edata[2] := data[1] shl 4 and 63 + data[2] shr 4 + 33;
edata[3] := data[2] shl 2 and 63 + data[3] shr 6 + 33;
edata[4] := data[3] and 63 + 33;
szbuffer := szbuffer + edata0;
if szbuffer[0] >= #80 then begin
writeln(ouf, szbuffer);
szbuffer := '';
end;
end;
if szbuffer[0] > #0 then
writeln(ouf, szbuffer);
close(inf);
close(ouf);
writeln('Output OK');
end.