网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb点虐 简体中文版 vbnet ide

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
文章URL:http://bjjierui.cn/article/ddcpdcj.html

其他资讯