包含vb.net打开文件流的词条-成都快上网建站

包含vb.net打开文件流的词条

vb.net如何调用打开外部excel文档

第一步,新建项目。

麻江网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。创新互联建站2013年开创至今到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站

1

打开vb.net,也就是打开Microsoft visual studio 2010,第一次使用的时候设置为basic语言就行。新建项目--打开excel。

2

新建成功。

END

第二步,添加引用。

1

“项目”--“添加引用”。

2

添加Microsoft Excel 14.0 Object Library。

END

第三步,添加打开文件对话框工具。

1

工具箱--对话框--openfiledialog。

2

添加成功。

END

第四步,添加命令按钮控件。

1

工具箱--公共控件--button。

在控件上右击鼠标,进入属性设置。

2

text属性设置为“打开excel”。

3

name属性也设置为“打开excel”。

END

第五步,编写程序。

1

鼠标双击命令按钮,进入编程界面,编写程序。

END

第六步,运行程序。

1

鼠标单击启动调式图标,程序开始运行。

2

单击打开excel命令按钮,调用打开文件对话框,选择自己要打开的excel文件。

END

第七步,保存程序。

第一次程序运行完,关闭程序,出现关闭项目提示,选择保存。

2

选好自己要保存的位置。

vb.net读取文件流

dim filename as string = "文件名" Using myfilestream As New FileStream(FileName, FileMode.Open, FileAccess.Read)

Dim data() As Byte

ReDim data(myfilestream.Length - 1)

myfilestream.Read(data, 0, myfilestream.Length)

myfilestream.Close()

' data是你要的结果,为byte(), End Using

如何用vb.net 打开一个既存的txt文档。

可以调用CMD

方法一:

Shell("cmd.exe /c call c:\新建文本文档.txt", AppWinStyle.NormalFocus)

缺点:不但会打开文本文件,同时还会显示一个cmd窗体。

方法二:

需要新建一个bat文件到资源里,输入start C:\新建文本文档.txt

代码

shell "bat文件的路径.bat"

这样就好了,两种方法各有好坏。一个会显示cmd窗体,一个需要bat文件。

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使用打开对话框,打开一个文本文件显示在文本框中,然后对文本框中的信息进行编辑后

读文件内容到TextBox :

Try

Using sr As StreamReader = New StreamReader("C:\\TestFile.txt")

textbox1.Text = sr.ReadToEnd()

End Using

Catch E As Exception

Console.WriteLine(E.Message)

End Try

修改完成后,保存到文件:

Using sw As StreamWriter = New StreamWriter("C:\\TestFile.txt")

sw.Write(textbox1.Text)

sw.Close()

End Using

其中,流构造的参数

New StreamReader("C:\\TestFile.txt")

New StreamWriter("C:\\TestFile.txt")

中的"C:\\TestFile.txt"可以用OpenFileDialog和SaveFileDialog的FileName属性替换.

Dim openFileDialog1 As New OpenFileDialog()

openFileDialog1.InitialDirectory = "c:\"

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

openFileDialog1.FilterIndex = 2

openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

Try

Using sr As StreamReader = New StreamReader(openFileDialog1.FileName)

textbox1.Text = sr.ReadToEnd()

End Using

Catch E As Exception

Console.WriteLine(E.Message)

End Try

End If

保存的时候换成SaveFileDialog就好

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打开文件流的词条
URL地址:http://kswjz.com/article/docsggi.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流