判断文件长短

Question

我有这样的文件
 1 ,民V5018, 1.57 
 1 ,5210, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521
 2 ,KK 1, 0, 113.1237, 90.2903, 20.068, 0, 0, 0
 3 ,FG 1, 0, 125.2328, 91.1549, 19.622, 0, 0, 0
 1 ,民V5018, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521
我用下面的代码找到了   民V5018这个数,但是文件1.txt中有多个"民v5018"这个数
我只想要:1 ,民V5018, 1.57   短的这一行
而不是:1 ,民V5018, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521这一行
那位高手能帮帮忙呢?
 Open "D:\民生测区数据\1.txt" For Input As #1
    Do
        Line Input #1, s
        If InStr(1, s, 民v5018) Then
            aa = s

Answer 1

Open "D:\民生测区数据\1.txt" For Input As #1 
aa=""
Do 
   Line Input #1, s 
   If InStr(s, "民V5018") Then 'v与V 在使用Instr时是有差别的.
      aa = s
      exit do
   end if
enddo
msgbox aa

Answer 2

楼主把问题说清楚点嘛。你的“短”是什么含义呢？你列出来的内容中，只有两行有“民V5018”，这种情况下谁都能明白。可是，谁知道后面还有没有“民V5018”呢？
假设后面还有一个： 1 ,民V5018, 1.57  
 1 ,5210, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521 
 2 ,KK 1, 0, 113.1237, 90.2903, 20.068, 0, 0, 0 
 3 ,FG 1, 0, 125.2328, 91.1549, 19.622, 0, 0, 0 
 1 ,民V5018, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521 
 2 ,KK 1, 0, 113.1237, 90.2903, 20.068, 0, 0, 0 
 3 ,FG 1, 0, 125.2328, 91.1549, 19.622, 0, 0, 0 
 1 ,民V5018, 1.23  
 1 ,5210, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521 会不会有这种情况？如果有，又该取哪行呢？？？

Answer 3

我有两个文件 第一个数据如下:  
 1 ,民V5018, 1.57  
 1 ,5210, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521 
 2 ,KK 1, 0, 113.1237, 90.2903, 20.068, 0, 0, 0 
 15 ,A 4, 0, 222.1614, 89.2742, 53.332, 0, 0, 0 
 16 ,A 5, 0, 223.4622, 89.4523, 48.679, 0, 0, 0 
 20 ,民V5017, 2.15, 206.4857, 89.5433, 320.498, 26.491, 270.0529, 320.498 
 21 ,民V5013, 1.29, 295.4938, 90.1534, 56.235, 115.4947, 269.4451, 56.236 
  …… 
 2 ,民V5013, 1.568  
 22 ,民V5012, 1.29, 0, 90.1854, 56.238, 180.0011, 269.4119, 56.238 
 23 ,民V5017, 1.29, 102.4757, 90.3851, 41.473, 282.4806, 269.2124, 41.473 
 24 ,L 1, 0, 19.2003, 94.0807, 8.691, 0, 0, 0 第二个文件数据如下: 
z5 
5 
20 
民V5017 
民V5018 
5212 
…… 
5233 
民V5013 
民V5012 
两个文件中的行数不定     
我想用第二个文件中的第四个数据，和文件中最后一个数据来判断第一个文件中是否有这个数据，
 即文件中的(民V5017和民V5012") 如果有就把这一整行数据赋值给一个变量A和B要怎么做呢???     在立即窗口中显示AB这两行数 
 
 ''''这两行在第一个文件中的位置是不定的 而且第一个文件中会有多个"民V5017和民V5012"     第一个文件中民V5018下面一定会出现民V5017这个数据
我想再用第二个文件的第五个数据和倒数第二个数据即(V5018和民V5013)
 来确定  最先找到   民V5017和民V5012  的那 两行比如
 1 ,民V5018, 1.57    '先找到这一行     接下来再找最先出现的 民V5017  这一行
 1 ,5210, 1.29, 359.5959, 91.0546, 28.521, 180.0003, 268.5425, 28.521 
 2 ,KK 1, 0, 113.1237, 90.2903, 20.068, 0, 0, 0 
 15 ,A 4, 0, 222.1614, 89.2742, 53.332, 0, 0, 0 
 16 ,A 5, 0, 223.4622, 89.4523, 48.679, 0, 0, 0 
 20 ,民V5017, 2.15, 206.4857, 89.5433, 320.498,        '就是这一行
 21 ,民V5013, 1.29, 295.4938, 90.1534, 56.235, 115.4947, 269.4451, 56.236 
  …… 
 2 ,民V5013, 1.568  
 22 ,民V5012, 1.29, 0, 90.1854, 56.238, 180.0011, 269.4119, 56.238 
 23 ,民V5017, 1.29, 102.4757, 90.3851, 41.473, 282.4806, 269.2124, 41.473   '这一行就不是了那位高手帮帮忙   先谢拉 

Answer 4

Instr最后一个参数设vbTextCompare，可不区分大小写