资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net文本文件读取 vb读取文件名

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

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

创新互联建站于2013年开始,公司以做网站、成都网站建设、系统开发、网络推广、文化传媒、企业宣传、平面广告设计等为主要业务,适用行业近百种。服务企业客户1000+,涉及国内多个省份客户。拥有多年网站建设开发经验。为企业提供专业的网站建设、创意设计、宣传推广等服务。 通过专业的设计、独特的风格,为不同客户提供各种风格的特色服务。

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运行完成,就完成了读取文本文件内容并输出到立即窗口。

VB.net 读取文本文件

Imports System.IO

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Dim sr As New StreamReader("d:\test.csv")

Dim arr1(), arr2(), arr3(), arr4() As Integer

Dim a1, a2, a3, a4 As New ArrayList

Do Until sr.EndOfStream

Dim str As String = sr.ReadLine

Dim s() As String = str.Split(",")

a1.Add(Convert.ToInt32(s(0)))

a2.Add(Convert.ToInt32(s(1)))

a3.Add(Convert.ToInt32(s(2)))

a4.Add(Convert.ToInt32(s(3)))

ListBox1.Items.Add(s(0))

Loop

arr1 = CType(a1.ToArray(GetType(Integer)), Integer())

arr2 = CType(a2.ToArray(GetType(Integer)), Integer())

arr3 = CType(a3.ToArray(GetType(Integer)), Integer())

arr4 = CType(a4.ToArray(GetType(Integer)), Integer())

sr.Close()

End Sub

End Class

VB.net 读取文本文件?

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。

vb.net怎么实现读取指定WORD文档中的内容

添加spire.doc.dll为引用,在vb.net中读取指定word文档的内容到 txt文件,代码示例如下:

'加载Word文档

Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")

'使用GetText方法获取文档中的所有文本

Dim s As String = doc.GetText

File.WriteAllText("文本1.txt", s.ToString)


名称栏目:vb.net文本文件读取 vb读取文件名
本文链接:http://cdkjz.cn/article/doiossg.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

业务热线:400-028-6601 / 大客户专线   成都:13518219792   座机:028-86922220