[编程交流] 读取文件-VBA

Sub FindScale(strVpScaleStd As String, strVpScaleCust As String)
   Dim strNomFichier As String
   Dim NomCalque As String
   Dim strTexte As String
   Dim iFichier As Integer
   Dim Position As Integer
   Dim strEchelle As String
   On Error Resume Next
   strNomFichier = "c:\vba\test.txt"
   iFichier = FreeFile
   Open strNomFichier For Input As #iFichier
   If Err Then
       MsgBox "Fichier " & strNomFichier & " introuvable."
       Exit Sub
   End If
   iFichier = FreeFile
   Do While Not EOF(iFichier)
       Line Input #iFichier, strTexte
           strTexte = Left(strTexte, 3)
           'If Left(strTexte, 3) = strVpScaleStd Then
           '    Position = InStr(strTexte, "*")
           '    strEchelle = Mid$(strTexte, Position + 1)
           'Else
           '    strTexte = ""
           'End If
   Loop
   Close #iFichier
   If strEchelle = "" Then
   MsgBox "actual scale = " & strVpScaleCust
   End If
End Sub