delphi 记事本时间转换
1. 打开记事本 1.tex 里面内容为 012005011517
………………………………
转换成 01--2005-01-15-17
再保存 记事本 2.txt
[解决办法]
LeftStr和RightStr两个函数,或你也可以用Copy
[解决办法]
记事本字符串只有一笔? 长度固定? 全是数字? 多笔时格式怎么保存的,一行一笔还是有什么间隔符号?
给你个范例(没测试),读到memo里面,一行行处理:
var
s:string;
i:integer;
begin
memo1.lines.loadfromfile('D:\1.txt');
for i:=0 to memo1.lines.count-1 do
begin
s:=memo1.lines.strings[i];
memo1.lines.strings[i]:=Copy(s,1,2)+'--'+Copy(s,3,4)+'-'+Copy(s,7,2)+'-'+Copy(s,9,2)+'-'+Copy(s,11,2);
end;
memo1.lines.loadfromfile('D:\2.txt');
end;
[解决办法]
str:=inttostr(memo1.lines.count)
[解决办法]
计算结束后加一句
memo1.Lines.Insert(0,datetimetostr(now));
[解决办法]
这句放在插入记录的最前面
