delphi 操作文本文件

文本1：0010,09-15-2009,11:29AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,>=1.030,,BLO,Negative,,pH ,5.0,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,*0002,09-14-2009,11:30AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,<=1.005,,BLO,3+,*,pH ,5.5,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,0003,09-14-2009,11:30AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,<=1.005,,BLO,3+,*,pH ,5.5,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,*

文本2：

数据1:0001,09-17-2009, 9:11AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Trace,*,BIL,Negative,,KET,Negative,,SG ,>=1.030,,BLO,Negative,,pH ,5.0,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,
数据2:0002,09-17-2009, 9:14AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,1.015,,BLO,Negative,,pH ,5.0,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,

数据3:0003,09-17-2009, 9:14AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,1.015,,BLO,Negative,,pH ,5.0,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,

我有一个文本文件，里面只有一条数据，很长的字符串如（文本1），我想通过程序转换成（文本2）的格式，按照一个编号0001，0002……分别分成有标示的独立的记录，请问哪位高手可以指教一下，谢谢！

文本数据是以逗号分隔的，可以把所有值赋于TStringList变量中。

如果每条数据的项目数是相同的，可以用循环控制输出

如果不同，可以判断某一个项是否是日期，如果是那么就是一条新记录

加加人气……