锐客网

  1. 首页 > 睿知 > it技术 > >

vb.nettxt操作的简单介绍

IT技术和次

VB.net窗体设计中，如何读取.txt文件中的数据？1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2 。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFileAs String
Dim intFileAs Integer
Dim strDataAs String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = https://www.04ip.com/post/StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码 ， 点击Command1，进入单步调试功能，
4、多次按下F8或直接按下F5运行完成 ， 就完成了读取文本文件内容并输出到立即窗口 。
vb.net 如何打开txt文件？说明：以下代码在Microsoft Visual Basic 2005 （简体中文版）中通过 。
创建新项目：
在窗体上添加文本框2个：TextBox1vb.nettxt操作 ， TextBox2
TextBox1 -- 用来编辑要写入vb.nettxt操作的文本文件vb.nettxt操作的内容vb.nettxt操作，或显示打开的文本文件的内容
TextBox2 -- 用来输入要打开或要写入的文件名（包括盘符 ， 路径）（例如：c:\123.txt）
在窗体上添加2个按钮：Button1，Button2
Button1 -- 写入文件
Button2 -- 打开文件
代码如下：
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As New StreamWriter(TextBox2.Text)
w.Write(TextBox1.Text)
w.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim r As New StreamReader(TextBox2.Text)
Dim s As String
TextBox1.Text = ""
Do While r.Peek-1 '是否到文件尾
s = r.ReadLine
'MessageBox.Show(r.Peek)
TextBox1.Text = TextBox1.TextsvbCrLf
Loop
r.Close()
End Sub
End Class
补充:你要把读出的数据赋值给一个变量,只要:声明一个变量为数值类型,然后只要读取一行就可以了,把这行数据经过转换成数值后赋给这个变量.
请教在VB.net中如何将数据写入txt文件、再从txt文件读出？软糖来告诉你吧 。
VB.net中读写文件主要使用System.IO命名空间 。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取 ， 注意编码格式和写入的编码保持一致 。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 写入 ， 会覆盖同名的文件 。
Dim 要写的内容 As String = ""
File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 写入 。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False,System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加写入 。
将上面代码的第二个参数False改为True 。
◆ 满意请采纳，谢谢 ◆
vb.net如何批量生成一堆TXT文件？function writetxt (filename as string,currenttxt as string) filename ="c:\"filename".txt" 'filename要生成的文件名 currenttxt当前写入的文件内容. open filename for output As #1 print #1, currenttxt close #1 end functiongsub xxx ... '定义rs为recorder,并生成记录集, ... rs.movefirst while not rs.eof call writetxt rs.filds("文章标题").value ,rs.filds("文章").value rs.movenext loop '关闭记录集等 end sub
vb.net文件读取txt1、实现上传按钮方法代码 。
2、判断图片对象是否为空代码 。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码 。

推荐阅读


上一篇：sqlserver倒序，数据库sql对结果进行倒序

下一篇：无人直播定制名字，无人直播定制名字叫什么