13518219792
第一步，新建项目。
麻江网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、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
选好自己要保存的位置。
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
可以调用CMD
方法一：
Shell("cmd.exe /c call c:\新建文本文档.txt", AppWinStyle.NormalFocus)
缺点：不但会打开文本文件，同时还会显示一个cmd窗体。
方法二：
需要新建一个bat文件到资源里，输入start C:\新建文本文档.txt
代码
shell "bat文件的路径.bat"
这样就好了，两种方法各有好坏。一个会显示cmd窗体，一个需要bat文件。
说明：以下代码在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
补充:你要把读出的数据赋值给一个变量,只要:声明一个变量为数值类型,然后只要读取一行就可以了,把这行数据经过转换成数值后赋给这个变量.
读文件内容到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就好
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
