网站建设资讯

NEWS

网站建设资讯

vb.net按行读取 vb实现excel一行的读取

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

用split函数

成都创新互联是专业的聂拉木网站建设公司,聂拉木接单;提供网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行聂拉木网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

dim a()

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

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

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

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")

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

定义一个表对象,定义一个连接对象,定义一个连接字符串变量;

然后定义一个查询字符串变量,你对照着例子,拼出来一个连接对象;

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

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

请照着例子学。

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)


当前标题:vb.net按行读取 vb实现excel一行的读取
当前链接:http://cdweb.net/article/dopoosd.html