Question

我有文件类型.txt（文本文件），它有多行，我有这些图片

我想让程序生成虚假信息

意思是：当有人点击生成按钮时，它就可以从文本文件中填充，并在visual basic中填充文本框

生成按钮上的每次点击（按下）使程序从文本文件（.txt）生成新信息

我尝试了很多方法：

代码：

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt")

代码：

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
   System.Text.Encoding.UTF32)

和这个

代码：

 Dim oFile as System****.File
Dim oRead as System****.StreamReader
oRead = oFile.OpenText(“C:\test.txt”)

和这个

代码：

 Dim FILE_NAME As String = "C:\Users\user\Desktop\test.txt"
        Dim objReader As New System.I--O.StreamReader(FILE_NAME)
        TextBox1.Text = objReader.ReadToEnd

代码：

' Form Load :
Dim text As String = MsgBox("text you want to make the form remember it.")
Or new Sub :
Code:
Private Sub Text
text
Code:
' Button Click :
Text()

代码：

    Dim path As String = "THE FILE PATH" 'The file path
        Dim reader As New IO.StreamReader(path)
        Dim lineIndex As Integer = 2 ' The index of the line that you want to read
        For i As Integer = 0 To lineIndex - 1
            reader.ReadLine()
        Next
        TextBox1.Text = reader.ReadLine


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ReadLineFromTxt("THE TXT FILE PATH", 0) '0 is the line index
    End Sub

    Public Shared Function ReadLineFromTxt(ByVal path As String, ByVal lineIndex As Integer) As String
        Dim reader As New IO.StreamReader(path)
        For I As Integer = 0 To lineIndex - 1
            reader.ReadLine()
        Next
        Return reader.ReadLine()
    End Function
End Class

这些方式取自这四分之一的成员： http://www.mpgh.net/forum/33-visual-basic-programming/693165-help-how-can-i-generate-text-txt-file-textbox-when-button-click-2.html

如果这些方式有效，请告诉我如何以最佳方式使用它

我有Visual Studio 2012并更新了1

充分尊重

Answer 1

假设您正在从文件中读取并在表单上显示行，您可以使用这些。

如果您有一个大文件（> 10MB），那么您可以使用此模式...（来自内存的语法，请原谅错误类型）

Public Class YourFormNameHere

 Private _CurrentLine as Integer = 0

 Private Sub btnClicked(sender, e) 'or enter pressed - This is YOUR keypress event handler.

  Using Dim sr as New StreamReader(filePath)

   Dim _curIndex as Integer = 0

   While (sr.EndOfFile == false)
    Dim _line as String = sr.ReadLine()         

    If (_curIndex = _CurrentLine)
      txtLineDisplay.Text = _line
      Break
    End If          

    curIndex += 1

   End While
  End Using
 End Sub
End Class

如果您的文件较小，请使用此模式。

Public Class YourFormNameHere

 Private _Lines as String()
 Private _CurrentLine as Integer = 0

 Private Sub formLoad(sender, e) 'one-time load event - This is YOUR form load event

   _Lines = File.ReadAllLines(filePath)

 End Sub

 Private Sub btnClicked(sender, e) 'or enter pressed - This is YOUR keypress event handler.

   txtLineDisplay.Text = _Lines[_CurrentLine]
   _CurrentLine += 1

 End Sub
End Class

如何在每次按下按钮的Visual Basic 1行中从文本文件读取到文本框

1 个答案: