vbs练习中。。。- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set File = FSO.OpenTextFile("a.txt",1)
- A = Array(2,3,1,8,5,2,1,0,8,100)
- B = Array(3,4,2,5,6,6,9,6,9,100)
- DO Until File.AtEndOfStream
- n = n + 1
- Two = File.ReadLine
- For i=1 To 3
- If One = "" then Exit For
- A1 = A(Mid(One,i,1))
- B1 = B(Mid(One,i,1))
- If Cstr(A1) = Mid(Two,i,1) Or Cstr(B1) = Mid(Two,i,1) Then
- Str = Str & n & vbCrLf
- Exit For
- End If
- Next
- One = Two
- LOOP
- FSO.CreateTextFile("b.txt",True).Write Str
复制代码
|