Comment puis-je lire des données à partir d'un fichier texte à l'aide de VB6?

J'ai besoin de lire des données à partir de fichiers texte et utiliser le même dans mon application. Im en utilisant VB 6.0.
Ce qui commande dois-je utiliser? Un Exemple de code serait très appréciée.

InformationsquelleAutor Jack Njiri | 2010-05-20

vb6

15

Voici comment lire un fichier texte entier en une chaîne à partir de la VB6 manuel.
```
Function FileToString(strFilename As String) As String
  iFile = FreeFile
  Open strFilename For Input As #iFile
    FileToString = StrConv(InputB(LOF(iFile), iFile), vbUnicode)
  Close #iFile
End Function
```
- J'ai eu un "variable non déclarée" pour #iFile. En utilisant Dim iFile Entier génère des erreurs. Ce type devrait-il être?
- Ha! J'avais besoin de l'initialiser comme ça: iFile = FreeFile. OK. Merci!
- Je suis en train de lire un décompressé le fichier pdf et d'erreur de Saisie "passé la fin de fichier" sur le InputB ligne
- Je me suis converti dans une fonction comme suggéré par @Shodan
- que "d'Entrée dépasse la fin du fichier" error " est bizarre. Ce qui est LOF retour? Il doit être la longueur du fichier en octets. Et puis InputB est attend d'être adopté le nombre d'octets à lire, donc il est difficile de voir comment il peut lire au-delà de la fin du fichier.
InformationsquelleAutor MarkJ

Un tutoriel complet et un exemple de code peut être trouvé ici

  Open Filename$ For Input As #FileHandle

  Do While Not EOF(FileHandle)        ' Loop until end of file
   Line Input #FileHandle, TextLine$  ' Read line into variable
    ' Your code here
  Loop

  Close #FileHandle

Merci David, Andy

InformationsquelleAutor David Sykes

Je suis un peu en retard pour le jeu ici, mais le FileSystemObject qui fait partie de Microsoft Scripting Runtime (scrrun.dll) peut être très utile pour cela.

Public Function ReadTextFileAsString(IN_sFilePath As String) As String
    Dim myFSO As Scripting.FileSystemObject
    Dim myTextStream As Scripting.TextStream
    Dim myString As String

    'Create a new FileSystemObject
    Set myFSO = New Scripting.FileSystemObject

    'Make sure file exists:
    If myFSO.FileExists(IN_sFilePath) Then
        Set myTextStream = myFSO.OpenTextFile(IN_sFilePath, ForReading)
        myString = myTextStream.ReadAll()
        Call myTextStream.Close
    End If
    'Assign Return Value
    ReadTextFileAsString = myString

    'Make sure to clean up when done.
    Set myTextStream = Nothing
    Set myFSO = Nothing
End Function

Il y a un certain nombre d'autres méthodes disponibles pour obtenir des données à partir du flux de texte. Vous pouvez aussi lire un certain nombre de caractères, ou ligne par ligne. Vous aurez besoin d'ajouter de Microsoft Scripting Runtime dans votre projet références, mais il est vraiment très utile.

InformationsquelleAutor nedmech

Assurez-vous que votre fichier existe:

If myFSO.FileExists(IN_sFilePath) Then
    Set myTextStream = myFSO.OpenTextFile(IN_sFilePath, ForReading)
    myString = myTextStream.ReadAll()
    Call myTextStream.Close
End If
'Assign Return Value
ReadTextFileAsString = myString

InformationsquelleAutor Sarpsar

0

si il n'y a que du texte dans le fichier, puis vous pouvez le lire dans l'ensemble en 1 variable de chaîne avec le code suivant :
```
Private Sub ReadFile(strFile As String)
  Dim intFile As Integer
  Dim strData As String
  intFile = FreeFile
  Open strFile For Input As #intFile
    strData = Input(LOF(intFile), #intFile)
  Close #intFile
End Sub
```
une chaîne de longueur variable peut contenir jusqu'à environ 2 milliards de dollars (2^31) caractères

InformationsquelleAutor Hrqls

Voici le code pour que

Function ReadFileToText(filePath)

   Dim objFile, objText, text

   Set objFile = CreateObject("Scripting.FileSystemObject")
   Set objText = objFile.OpenTextFile(filePath)

   text = objText.ReadAll
   objText.Close

   Set objText = Nothing
   Set objFile = Nothing

   ReadFileToText = text

End Function

Plus de détails, vous pouvez vérifier http://smartreferences.blogspot.in

InformationsquelleAutor Palanikumar

-1

je vous renvoie à une autre méthode pour lire et importer le contenu de votre fenêtre de formulaire

public sub readfile
 Dim rtc As TextBox = New TextBox
        rtc.Multiline = True
        rtc.ScrollBars = ScrollBars.Both
        rtc.Width = 400
        rtc.Height = 200
        Me.Controls.Add(rtc)
        rtc.WordWrap = True
        Dim FILE_NAME As String = "C:\Users\vcidex92\Desktop\suji\me.html"

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)
            rtc.Text = objReader.ReadToEnd
            objReader.Close()
        Else

            MsgBox("File Does Not Exist")
        End If
   end sub

C'est VB.Net et la question est balisé VB6.

InformationsquelleAutor

Vous devez vous connecter pour publier un commentaire.