人在江湖，部分武功汇总及代码已更新详细修改方法，回复可见

hansonl198583 · 发表于 2019-3-17 20:42

thank you thank you very much

z153627063 · 发表于 2019-3-18 00:06

66666

qq187363 · 发表于 2019-3-18 09:19

666666666666666

龙滨哥 · 发表于 2019-3-19 11:53

var txt:TStringList;
  o,i,k,p: Integer;
  tmp,t:string;

begin
  if not OpenDialog1.Execute then exit;
if not DirectoryExists(ExtractFilePath(OpenDialog1.Files.Strings[0])+'output\') then
ForceDirectories(ExtractFilePath(OpenDialog1.Files.Strings[0])+'output\');
  txt:=TStringList.Create;
  for o := 0 to OpenDialog1.Files.Count - 1 do
  begin
txt.LoadFromFile(OpenDialog1.Files.Strings[o],TEncoding.UTF8);
Memo1.Lines.Add('');
Memo1.Lines.Add(ExtractFileName(OpenDialog1.Files.Strings[o]));
for I := 0 to txt.Count - 1 do
begin
   t:=txt.Strings[i];

   txt.Strings[i]:=t;
end;
txt.SaveToFile(ExtractFilePath(OpenDialog1.Files.Strings[0])+'output\'+ExtractFileName(OpenDialog1.Files.Strings[o]),TEncoding.UTF8);
  end;
  txt.Free;
  ShowMessage('OK!');

qq445164984 · 发表于 2019-3-20 02:57

我来看汇总的

天地圣棋 · 发表于 2019-3-20 10:10

111111111111111111111111111111111111111111

水木叶 · 发表于 2019-3-20 14:27

[s:01]

i1158964418 · 发表于 2019-3-20 14:39

111111111111111111111

Miku · 发表于 2019-3-20 22:13

好东西,先谢了!!!!!!!!!!!!!!!!

yy00800 · 发表于 2019-3-21 10:58

感谢大大发布，非常感谢！！！

yy00800 · 发表于 2019-3-21 10:59

骗贴子的？？没有内容啊！！！

aska0039 · 发表于 2019-3-27 19:31

还有这种操作？

zzb2652532 · 发表于 2019-3-28 06:05

大赞，看看，打完一遍不修改的，好艰难，不亏是小门派

zzb2652532 · 发表于 2019-3-28 06:06

逗我呢，什么都没说完

lix315316 · 发表于 2019-3-28 16:03

…………………………………

lsc196512 · 发表于 2019-4-2 00:40

666666666666666666666

sl5323230 · 发表于 2019-4-3 11:30

6666666666666666666666666

望月呤诗 · 发表于 2019-4-3 17:06

收下支持謝謝

a514579126 · 发表于 2019-4-4 11:46

赞一下，赞一下，赞一下，先赞一下

yanzhiwei · 发表于 2019-4-4 14:20

看看什么东东

yanzhiwei · 发表于 2019-4-4 14:32

没看到代码是多少，之看到功效?

yanzhiwei · 发表于 2019-4-4 14:32

没看到代码是多少，之看到功效?

lsc196512 · 发表于 2019-4-5 00:22

啧啧啧啧啧在

lsc196512 · 发表于 2019-4-5 00:24

叽叽叽叽叫

lsc196512 · 发表于 2019-4-5 00:45

求求求求求求求求求

账号		自动登录	找回密码
密码			我要成为铁血侠客

人在江湖，部分武功汇总及代码 已更新详细修改方法，回复可见

人在江湖，部分武功汇总及代码已更新详细修改方法，回复可见