关于读入文本文件的有关问题

关于读入文本文件的问题
TCN 030708 000056361CZ
01000000017844407207349 6 0TKTA / 0101 FFVV
02000000027844407207349 6 0PAR20120080305
03000000037844407207349 6 0PEK PAR PEKPAR
04000000047844407207349 6 00000000770500000000000CNY
05000000057844407207349 6 01
07000000067844407207349 6 0CC 00000007705
08000000077844407207349 6 00110MAR08
98000000087844407207349 6 00005TKTA
01000000097844406890453 0 0TKTA / 0101 FFVV
02000000107844406890453 0 0CAN02020080304
03000000117844406890453 0 0HKG HKG HKGHKG
04000000127844406890453 0 00000004990000000004000HKD
05000000137844406890453 0 01
07000000147844406890453 0 0GR BANK 00000049900
08000000157844406890453 0 00108MAR08
98000000167844406890453 0 00001TKTA 
我有个叫form的文本文件，里面存储上面的内容，这么才能将从第二行开始行开头为02的行读入到另一个文本文件里并且格式如下表的样子呢个？第二行的解释：1-2个字符表示行标识（ID）3-23个字符表示序列号（SN），第26字符表示内型（type），第42标识标识（flag），43-45表示地点（area），46-56标识日期（date），空白部分都是空格.
期望的结果如下：
ID SN type flag area date
02 000000027844407207349 6 0 PAR 20120080305
02 000000107844406890453 6 0 CAN 02020080304

[解决办法]
就一行一行的读
比如你读到一行为这个s代码如下处理

VB.NET code

        Dim s As String = "02000000027844407207349  6               0PAR20120080305 "        Dim st = s.Substring(0, 2)        If st = "02" Then            Dim ID, SN, type, flag, area, datettt As String            Dim Sarray()            Sarray = Split(s, " ")            ID = 2 '因为已经知道            SN = Sarray(0).substring(2, Len(Sarray(0)) - 2)            type = Sarray(1)            flag = Sarray(2).substring(0, 1)            datettt = Sarray(2).substring(1, Len(Sarray(0)) - 1)            inputtxt() '写入第二个文本文件        End If
[解决办法]
不知道这个慢不慢
VB.NET code
if strLine.StartsWith("02")  then '判断strLine这个字符串是否以02开头end if