vb.net输出文本 vb怎么输出到文本

VB.net窗体设计中，如何读取.txt文件中的数据？

1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。

2、双击Command1添加如下代码

Private Sub Command1_Click()

  Dim strFile     As String

  Dim intFile     As Integer

  Dim strData     As String

   strFile = "c:\学生成绩.txt"

  intFile = FreeFile

  Open strFile For Input As intFile

  strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

  Debug.Print strData

  Close intFile

End Sub

3、按F8开始单步调试代码，点击Command1，进入单步调试功能，

4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

相关问答

Q1: vb.net怎么从文本文档中读取一行数据，将文本输出到控制台？

以下示例一次从文件中读取一行vb.net输出文本，然后将每行文本打印到控制台。

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub

Q2: VB.NET怎么输出指定字符串文本文件

Dim strFilePath As String =SaveFileDialog1.FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打开指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

Q3: VB.net 控件richtextbox.text 输出txt文本中的内容不换行

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        RichTextBox1.Text = "1"  vbCrLf  "2"  vbCrLf  "3"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim SaveFileDialog1 As New SaveFileDialog()

        SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"

        If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

            RichTextBox1.SaveFile(SaveFileDialog1.FileName, 3)

        End If

    End Sub

vb.net输出文本的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb怎么输出到文本、vb.net输出文本的信息别忘了在本站进行查找喔。