vb.net打开text的简单介绍

怎样用vb.net读取本地.txt文件？

imports System.IO

创新互联建站长期为1000多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为蕲春企业提供专业的成都网站建设、网站制作，蕲春网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

读取指定文件

'

'读取指定文本文件

Public Function readtext(ByVal path As String)

If path = "" Then

readtext = "操作失败！"

Exit Function

End If

Try

If File.Exists(path) = True Then

Dim fs As New FileStream(path, FileMode.Open)

Dim sr As New StreamReader(fs)

Dim str As String

str = sr.ReadToEnd.ToString

sr.Close()

fs.Close()

readtext = str

Else

readtext = "操作失败！"

End If

Catch ex As Exception

readtext = "操作失败！"

End Try

End Function

'向指定文件写入数据

Public Function writetext(ByVal path As String, ByVal opi As Integer, ByVal msg As String)

If path = "" Then

writetext = "操作失败！"

Exit Function

End If

Dim op As FileMode

Select Case opi

Case 1

op = FileMode.Append

Case 2

op = FileMode.Create

Case Else

op = FileMode.Create

End Select

Try

If File.Exists(path) = True Then

Dim fs As New FileStream(path, op)

Dim sr As New StreamWriter(fs)

sr.WriteLine(msg)

sr.Close()

fs.Close()

writetext = "操作完成！"

Else

writetext = "操作失败！"

End If

Catch ex As Exception

writetext = "操作失败！"

End Try

End Function

参考这个吧

'

'vb.net源代码来自

'

vb.net中怎样在菜单栏点打开文件来打开D盘中一个txt文件

import System.IO

用文件流读

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim open As New OpenFileDialog

open.Filter = "テキスト ファイル (*.txt)|*.txt" _

"|すべてのファイル (*.*)|*.*"

If open.ShowDialog = Windows.Forms.DialogResult.OK Then

TextBox1.Text = open.FileName

Dim file As New FileStream(open.FileName, FileMode.Open, FileAccess.Read)

Dim encoding As Encoding = encoding.GetEncoding(Util.ToString(Me.ComboBox1.SelectedItem))

Dim stream As New StreamReader(file, encoding)

Dim strB As New StringBuilder

While (Not stream.EndOfStream)

strB.AppendLine(stream.ReadLine)

End While

Me.RichTextBox1.Text = strB.ToString

stream.Close()

End If

End Sub

vb.net文件读取txt

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

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

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

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

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

6、实现的上传结果。

vb.net 如何打开txt文件？

说明：以下代码在Microsoft Visual Basic 2005 （简体中文版）中通过。

创建新项目：

在窗体上添加文本框2个：TextBox1，TextBox2

TextBox1 -- 用来编辑要写入的文本文件的内容，或显示打开的文本文件的内容

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.Text s vbCrLf

Loop

r.Close()

End Sub

End Class

补充:你要把读出的数据赋值给一个变量,只要:声明一个变量为数值类型,然后只要读取一行就可以了,把这行数据经过转换成数值后赋给这个变量.

VB.NET怎样打开text文件并显示到文本框里

文本框通常用来显示文本字符，以下是用

VB

编写的打开某

txt

文件，并把文件内容显示在文本框的步骤及代码：

1、添加必要的组件（文本框、按钮）

2、设置属性：

3、编写按钮的响应代码：

vb .net 程序怎么默认打开txt记事本文件？

楼下的根本不对。exe右键是没有“打开方式”的，也没必要因为这个问题而还原系统。把exe设置为直接运行，方法：新建一个txt文件，输入ftype exefile="%1" %* ，保存，把扩展名改为bat，双击这个文件，就好了。