文本文件操作问题

Question

我有以下文本文件，是从交换机里提取出来的号码资料，格式如下：
SNB        DEV            DETY   SUT  SCL      MIS             COS
1234567    LI3-57557                  OBA-107
                                      CCB-1
        
1234568    LI3-58130                  OBA-107
                                      CCB-1
        
1234569    LI3-55302                  OBA-107
                                      CCB-1
        
1234560    LI3-52493                  IPT-1
                                      APT-1
                                      ANT-1
                                      OBA-107
                                      ADI-2
        
END我怎样才能通过程序把每个字段分离开呢？如果我想把以上的文本文件转化为以下格式，该怎样做？
号码       功能
1234567   来电显示
1234567   国内长途
1234568   来电显示
1234568   本地网
................

Answer 1

建立记录［SNB，DEV...］
如果每一行的长度不固定，可以试试按空格拆分，判断其代码属记录的哪个变量值。
如果长度固定，按长度分解//不太可能发生吧!

Answer 2

建议看看：\Demos\Db\TextData\TextData.pas单元

Answer 3

SNB        DEV            DETY   SUT  SCL      MIS             COS
1234567    LI3-57557                  OBA-107
                                      CCB-1
        
1234568    LI3-58130                  OBA-107
                                      CCB-1
        
1234569    LI3-55302                  OBA-107
                                      CCB-1
        
1234560    LI3-52493                  IPT-1
                                      APT-1
                                      ANT-1
                                      OBA-107
                                      ADI-2
        
END
这个文本文件的中间分隔是不是Tab键,
如果是,我这里有现成的源码改一下就可以用了.

Answer 4

文本文件的中间分隔不是Tab键,是空格。
能不能贴上你的源程序啊？

Answer 5

TAdoTable?
创建一个， 然后对于每一行， Copy(,,pos(),..), trim(剩下的字符串), ...