我有一個文本文檔名X， 保存如下所示數(shù)據(jù)N條， 01200706261859E0010165059 01200706261859E0010173847 …… 現(xiàn)要求將此格文件轉(zhuǎn)換成如下所示并保存至另一個文本中 2007/06/26 18:59:00 0010165059 001 00 1 00001 2007/06/26 18:59:00 0010173847 001 00 1 00002 …… 即將前文本每行（01200706261859E0010165059）中第3至10位（20070626）取出保存為生成的文本中的（2007/06/26），11至14位取出加“:00”保存為（18:59:00），最后10位保持不變保存為（0010165059），第1，2位取出前加“0”保存001，生成文本中的00 1 00001自動生成，最后的00001為自動按行數(shù)累加； 求高手幫個忙~~~~~~~！N急~~！ 謝謝！
2 回答
慕田峪7331174
TA貢獻(xiàn)1828條經(jīng)驗 獲得超13個贊
procedure TForm1.Button1Click(Sender: TObject);
var
oritext,aimtext:TextFile;
s,str:string;
str1:string[5];
i,m,n:integer;
begin
i:=1;
assignfile(oritext,'D:\aa.txt');//源文件
reset(oritext);//只讀方式打開
assignfile(aimtext,'D:\bb.txt');//目標(biāo)文件
Rewrite(aimtext);{追加方式打開。也可以用Rewrite(aimtext),這是創(chuàng)建一個新文件（對于一個已存在的文件，此操作將使原文件被覆蓋）。}
try
while not eof(oritext) do//循環(huán)讀取文本
begin
readln(oritext,s);
str:=copy(s,3,4)+'/'+copy(s,7,2)+'/'+copy(s,9,2)+' '
+copy(s,11,2)+':'+copy(s,13,2)+':00 '
+copy(s,16,10)+' 001 00 1 ';
m:=length(inttostr(i));//判斷i為字符串時的長度，決定str1中0的個數(shù)
for n:=1 to 5-m do
str1:=str1+'0';
str:=str+str1+inttostr(i);
str1:='';
i:=i+1;
writeln(aimtext,str);
end;
finally
closefile(oritext);
closefile(aimtext);
end;
end;
運(yùn)行正常，結(jié)果為：
2007/06/26 18:59:00 0010165059 001 00 1 00001
2007/06/26 18:59:00 0010173847 001 00 1 00002
2007/06/26 18:59:00 0010185451 001 00 1 00003
2007/06/26 18:59:00 0010112243 001 00 1 00004
2007/06/26 18:59:00 0010165059 001 00 1 00005
2007/06/26 18:59:00 0010173847 001 00 1 00006
2007/06/26 18:59:00 0010185451 001 00 1 00007
2007/06/26 18:59:00 0010112243 001 00 1 00008
2007/06/26 18:59:00 0010165059 001 00 1 00009
2007/06/26 18:59:00 0010173847 001 00 1 00010
2007/06/26 18:59:00 0010185451 001 00 1 00011
2007/06/26 18:59:00 0010112243 001 00 1 00012
白豬掌柜的
TA貢獻(xiàn)1893條經(jīng)驗 獲得超10個贊
對不起，語言代碼我已經(jīng)忘的差不多了，雖然我也學(xué)的Delphi7。
Delphi中有個函數(shù)是提取一個字符串中某幾位字符串的，忘了叫什么了，好象是COPY（），參數(shù)忘了。
剩下的就是TXT文件的讀和寫過程了。
你看看教程上字符串操作部分和文件管理部分吧，幫不了你別的了，不好意思。
添加回答
舉報
0/150
提交
取消