procedure ChangeWdlToTxt();
var
strSource : String;
beginfor i = 1 to 总页数 do
begin
strSource := copyCurrentPage(页号);
PasteToTxt(txt的文件名);
end;
end;如果方法可行,别忘了给分阿。
var
strSource : String;
beginfor i = 1 to 总页数 do
begin
strSource := copyCurrentPage(页号);
PasteToTxt(txt的文件名);
end;
end;如果方法可行,别忘了给分阿。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货