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
MsgBox("姓名"?"?"?"年龄"?vbCrLf?f)
把数据全部读出来,然后用split函数将整个字符串按换行符分割,放到某数组中去.换行符是Chr(10)
str=textbox.text'取得TEXTBOX的值,是不是这个具体我忘记了
arr=split(str,chr(10))
for each one in arr'枚举整个数组
print one
next
定义一个表对象,定义一个连接对象,定义一个连接字符串变量;
然后定义一个查询字符串变量,你对照着例子,拼出来一个连接对象;
打开连接,执行查询并填充结果到表对象.
然后,按照表里面的顺序,一行一行的读取每一列的值.
请照着例子学.
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")
用split函数
dim a()
得到的是文本,如果想得到数字就a(1) = val(a(1))'把a(1)的值强制转化成数字赋值给a(1),全部转换自己弄个循环搞定
大概就这样,你自己试试吧
以上就是土嘎嘎小编为大家整理的vb.net按行读取数据相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!