vb.net按行读取 vba按行读取文本放入数组

VB.NET中，现有一多行TXT文件，想按行读取全部内容，然后显示在一文体框中，代码如下

a = ""

TextBox1.Text =""

    

FileOpen(1, Application.StartupPath()  "\file\t1.txt", OpenMode.Input)      

Do While Not EOF(1)

   Input(1, a)

   TextBox1.Text =TextBox1.Text   a  vbcrlf

Loop      

        

一次性读取

a=File.ReadAllText(Application.StartupPath()  "\file\t1.txt")

相关问答

Q1: 使用vb.net读取文件夹中所有文件的指定内容

先按行读出所有数据，然后找到需要的信息

  IEnumerable string  list=  File.ReadLines("test.txt",Encoding.Default );

          foreach (string s in list)

          {

              if (s.Contains("图名"))

              {

                  textBox1.Text += s+"\r\n";

              }

              if (s.Contains("图号"))

              {

                  textBox1.Text += s + "\r\n";

              }

          }

不好意思，用的C#，其实差不多了，自己改改就好了

Q2: vb.net中如何按行读取一张表中的每一列的值

定义一个表对象vb.net按行读取，定义一个连接对象vb.net按行读取，定义一个连接字符串变量vb.net按行读取；

然后定义一个查询字符串变量，你对照着例子，拼出来一个连接对象vb.net按行读取；

打开连接，执行查询并填充结果到表对象。

然后，按照表里面的顺序，一行一行的读取每一列的值。

请照着例子学。

Q3: vb.net怎么按行读取数据到二维数组中，以空格分隔数据格式 -48.437500 0.000000 -0.000011 0.000011

用split函数

dim a()

a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a

得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定

大概就这样，你自己试试吧

Q4: vb.net 按行读取字符串

给你一个VB2010读写文件的例子吧

Dim name As String = ""

        Dim age As Integer

        name = InputBox("请输入姓名")

        age = InputBox("请输入年龄")

        FileOpen(1, "d:\信息.txt", OpenMode.Append)

        WriteLine(1, name, age)

        FileClose(1)

 FileOpen(1, "d:\信息.txt", OpenMode.Input)

        Dim h As String

        Dim j As String

        Dim f As String

        f = ""

        h = ""

        j = ""

        While EOF(1) = False

            f = LineInput(1)  vbCrLf  f

        End While

        FileClose(1)

        MsgBox("姓名"  "  "  "年龄"  vbCrLf  f)

Q5: vb.net 按行读取文件时，英文没错，但中文就出现乱码，请教为何？

Dim sr As New System.IO.StreamReader(Application.StartupPath "\1.txt",System.Text.Encoding.GetEncoding("GB2312")) 中文默认是 GB2312格式的.

关于vb.net按行读取和vba按行读取文本放入数组的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。