- Var
- t,o:text;
- a,i:longint;
- filename:string;
-
- Procedure work(filename:string);
- Var
- d:text;
- s:ansistring;
- data:record
- name,homename,world,yaw,pitch,x,y,z : string;
- end;
- Begin
- assign(d,'data/'+filename);reset(d);
- writeln('成功打开此用户数据文件，开始识别用户数据');
- readln(d,s);
- delete(s,1,17);
-
- writeln('该用户为',s);
- data.name:=s;
-
- repeat
- readln(d,s);
- until (s='homes:') or (eof(d)) ;
-
- if s='homes:' then Begin
- writeln('此用户有家记录，进行下一步处理');
- repeat
- //homename
- readln(d,s);
- if (s[1]=' ') and (s[2]=' ') then begin
- end
- else
- begin
- break
- end;
- while s[1]=' ' do delete(s,1,1);
- delete(s,length(s),1);
- data.homename:=s;
-
- //world
- readln(d,s);
- delete(s,1,11);
- data.world:=s;
-
- //x
- readln(d,s);
- delete(s,1,7);
- data.x:=s;
-
- //y
- readln(d,s);
- delete(s,1,7);
- data.y:=s;
-
- //z
- readln(d,s);
- delete(s,1,7);
- data.z:=s;
-
- //yaw
- readln(d,s);
- delete(s,1,9);
- data.yaw:=s;
-
- //pitch
- readln(d,s);
- delete(s,1,11);
- data.pitch:=s;
-
- writeln('该用户家名字',data.homename);
-
- write(o,'"',data.name,'" ');
- write(o,'"',data.homename,'" ');
- write(o,'"sur"');
- write(o,' "',data.world,'" ');
- write(o,'"',data.x,'" ');
- write(o,'"',data.y,'" ');
- write(o,'"',data.z,'" ');
- write(o,'"',data.yaw,'" ');
- writeln(o,'"',data.pitch,'"');
-
- writeln('该用户家记录已被识别并导出');
-
- until eof(d);
-
- End
- else
- begin
- writeln('此用户无家记录，无需处理，处理进程退出');
- end;
-
-
- close(d);
- End;
-
-
- Begin
- assign(t,'list.txt');reset(t); //玩家数据列表
- {格式
- 第一行 数据数量n
- 第二行到n+1行 UUID.yml
- }
- assign(o,'output.txt');rewrite(o); //最终保存的txt格式的数据列表可以使用navicat导入到mysql
-
- readln(t,a);
-
- for i:=1 to a do begin
- readln(t,filename);
- writeln('===================================================');
- writeln('正在处理：',filename);
- work(filename);
- writeln('处理完毕');
- end;
- writeln('所有用户处理完毕');
- close(o);
- close(t);
-
- //所有数据处理完之后最好再删掉一些没用的或者是不合法的行，我没有对这些进行特判
- End.
|
好的