Wie kann ich Daten aus einer Textdatei mit VB6 lesen?

Question

Ich muss Daten aus Textdateien lesen und das gleiche in meiner Anwendung verwenden. Ich benutze VB 6.0. Welche Befehle verwende ich? Einige Beispielcodes würden sehr geschätzt.

Answer 1

Eine vollständige Anleitung und Beispielcode kann here

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 

Answer 2

Hier finden wie eine ganze Textdatei in einen String lesen - von der VB6 manual.

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 

Answer 3

Ich bin ein wenig zu spät, um das Spiel hier, aber das Filesystem, die ziemlich nützlich dafür sein kann, ist Teil der Microsoft Scripting Runtime (scrrun.dll).

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 

Es gibt eine Reihe anderer Methoden zum Abrufen von Daten aus dem Textstream. Sie können auch eine bestimmte Anzahl von Zeichen gleichzeitig oder Zeile für Zeile lesen. Sie müssen Microsoft Scripting Runtime in Ihre Projektreferenzen einfügen, aber es ist wirklich sehr nützlich.

Answer 4

Stellen Sie sicher, dass Ihre Datei vorhanden ist:

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 

Answer 5

wenn es einfach nur Text in der Datei ist, dann können Sie in den gesamten in 1 String-Variable mit dem folgenden Code lesen:

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 

ein Länge variabler Länge kann bis zu ungefähr 2 Milliarden (2^31) Zeichen enthalten

Answer 6

Hier ist der Code dafür

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 

Mehr Details erfahren Sie http://smartreferences.blogspot.in

Answer 7

überprüfen ich Ihnen eine andere Methode beziehen sich auf den Inhalt zu Ihrem Formular Fenster zu lesen und importieren

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