vb点虐 如何打开txt文件？

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

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

创建新项目：

在窗体上添加文本框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点虐 下载的？

可以安装成中文的

微软上的vs下载中心

;productID=C0037913-9E11-4A2D-8FD1-0BA441296CBC

vs点虐

2003

下载

MSDN

library

CD1

;downid=1

MSDN

library

CD2

;downid=2

MSDN

library

CD3

;downid=3

VISIO

CD1

;downid=4

2005版下载

Visual.Studio.点虐 .2005.简体中文版].rar

;downid=1

我要vb点虐 的下载地址 中文版的

一楼兄弟真有气魄啊。在线发送2GB在的。你是愚公啊？？？

楼主请到360的软件管家里下载。。那里有个软件宝库，里面有个VB2008标准版，，是中文的 差不多是80MB左右吧。

名称栏目：vb点虐 简体中文版 vbnet ide
本文网址：http://chengdu.cdxwcx.cn/article/ddcpdcj.html