我现在有如下格式的文件，我想把P0、T0、I9下边的数据分别倒入相关的表中，我是个初学者，只会对每一行相同格式的数据读取。而不知道如何读取特定的行，如，我想从第三行读取，直到T0，然后在从T0下面一行读取……

请问该如何实现，用什么样的函数。我在网上查了两天了，也没查个明白。

line input 能定位从第几行开始读么？


8***2 363710146 22612 22622 2*** 04
P0
7719 7738 7717 7721 7743 7680
7774 7803 7802 7795 7813 7723
7804 7791 7756 7726 7811 7725
7773 7783 7783 7785 7798 7726
7793 7779 7745 7721 7802 7713
7760 7779 7766 7760 7787 7721
7772 7765 7734 7697 7774 7697
7718 7738 7711 7704 7742 7693
7753 7791 7779 7791 7797 7704
7820 7809 7766 7732 7821 7731
7762 7772 7737 7704 7777 7701
7723 7733 7673 7635 7734 7635
7679 7737 7750 7759 7759 7635
7768 7777 7770 7781 7784 7762
7809 7795 7744 7709 7810 7707
7744 7744 7690 7661 7746 7656
7693 7730 7720 7716 7736 7662
7750 7758 7706 7682 7759 7666
7698 7723 7738 7768 7768 7682
7805 7797 7747 7721 7807 7713
7753 7781 7753 7744 7782 7722
7773 7765 7721 7705 7774 7692
7721 7722 7665 7655 7728 7639
7697 7718 7699 7713 7725 7656
7762 7766 7745 7745 7767 7713
7769 7781 7736 7701 7781 7698
7717 7715 7699 7696 7717 7675
7727 7727 7686 7739 7739 7679
7801 7813 7781 7762 7817 7739
7773 7774 7732 7720 7774 7710=
T0
0099 0065 0150 0108 0165 0060
0068 0014 0041 0045 0109 0013
0031 0009 0114 0092 0133 0006
0007 0008 0048 0036 0094 0004
0019 0001 0073 0083 0114 -005
0053 0033 0092 0070 0120 0026
0030 0005 0130 0136 0168 0001
0088 0050 0148 0142 0183 0048
0071 0038 0126 0082 0142 0036
0027 0004 0102 0126 0145 0001
0074 0021 0160 0150 0185 0012
0078 0024 0190 0179 0224 0018
0124 0085 0096 0060 0180 0060
-001 -010 0075 0057 0107 -014
0009 -017 0158 0162 0220 -023
0071 0027 0204 0186 0234 0022
0130 0088 0152 0155 0196 0069
0086 0040 0182 0184 0223 0034
0105 0082 0084 0054 0183 0053
0027 0002 0138 0151 0182 -005
0075 0028 0145 0137 0168 0017
0078 0029 0137 0152 0178 0026
0087 0048 0217 0175 0240 0036
0103 0082 0134 0112 0175 0081
0034 0042 0136 0108 0160 0026
0074 0030 0154 0160 0200 0023
0101 0066 0162 0137 0190 0056
0082 0047 0186 0110 0202 0042
0039 0030 0127 0120 0153 0025
0066 0024 0159 0154 0180 0016=
I9
0024 0062 0046
0011 0034 0028
-004 0054 0048
0004 0026 0013
-008 0030 0040
0009 0040 0030
-007 0058 0050
0016 0039 0044
0000 0037 0013
-032 0033 0043
-010 0048 0046
-015 0070 0068
0006 0011 0005
,012 0017 0012
,029 0065 0073
-006 0084 0062
0032 0074 0054
0008 0080 0075
0030 0029 0014
,015 0051 0044
-014 0047 0044
-004 0048 0052
0004 0084 0070
0033 0058 0048
0026 0042 0043
-004 0058 0060
0020 0070 0068
0025 0088 0058
0021 0036 0036
-008 0050 0053=

Dim Str1 As String
Dim Str2 As String
Open "d:\xxx.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Str1
if len(str1)<len(str2) then
'到了P0、T0、I9的行
end if
str2=str1
Loop