Question

vb读取文本文件中每行的某几个字符

我刚学VB，请大家帮忙
有1个文本c:\1.txt,内容不规律，共N行，如下：
dsfafkjsdhk1231 13
dhskja1231jsdah1321
dsfs19j312 ffds 1
1231231231313112313
还有很多行。。。行数不定

我要读取每行中第7到第10个字符，
如果取得的值相等，就把它们显示出来。
例如上面的例子就应显示“1231”。
我说的明白吗？哪位能提供下代码啊？
Scitin ,这样可以把所有7-10字符都取出了，我只想取相同的数值，再如何比较啊？

Answer 1

Private Sub Command1_Click()
Dim a$, s$(), i&, j&, m&
ReDim s$(1 To 1000)
Open "c:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
m = m + 1
If Len(a) >= 10 Then
s(m) = Mid(a, 7, 4)
End If
Wend
Close #1
If m = 0 Then Exit Sub
ReDim Preserve s$(1 To m)
For j = 1 To m
For i = j + 1 To m
If Len(s(j)) = 4 And s(j) = s(i) Then Print "第" & j & "行和第" & i & "行是相同的,内容为:" & s(i)
Next
Next
End Sub

Answer 2

dim s() as string
dim i as interge
open "c:\1.txt" for input as #1
while not eof(1)
line input #1,s(i)
s(i)= mid(s(i),7,3)
i=i+1
wend
close #1
do
if s(i)<>s(i-1) then exit sub
i=i-1
loop until i=0
print i(0)
当每行的第7-10个字符都相同时就会显示出来，否则则不会。你是不是这个意思？