关于vb点虐 远程txt的信息

vb点虐 如何读写 TXT ？？

FileOpen(文件号，文件路径，读取方式，读取卜告类型)

创新互联致力于互联网网站建设与网站营销，提供成都做网站、成都网站建设、成都外贸网站建设、网站开发、seo优化、网站排名、互联网营销、成都微信小程序、公众号商城、等建站开发，创新互联网站建设策划专家，为不同类型的客户提供良好的互联网应用定制解决方案，帮助客户在新的全球化互联网环境中保持优势。

GET读取数据函数

PUT写入数据函数

FielClose(文件号)

当前路径很简单，你打开opendailog时候会返回一个FILENAMES的文件路径，那洞弊银么用到上面读写模式就纳宴行。

如何用vb点虐 打开一个既存的txt文档。

可以调用CMD

方法一：

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

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

方法二：

需要新建一个bat文件到资源亮孙里，输宏键链入start C:\新建文本文档.txt

代码

shell "bat文件的路蔽孙径.bat"

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

vb点虐 如何打开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点虐 中如何将数据写入txt文件、再从txt文件读出？

软糖来租桐告诉你吧。

VB点虐 中读写文件主要使用System.IO命名空间。

① 使用 File.ReadAllText 读取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 读取，注意编码格式和写入的编码保持兆型贺一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 写入，会覆盖同名的文件。

Dim 要写的内容 As String = ""

File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 写入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加写入。族派

将上面代码的第二个参数False改为True。

◆ 满意请采纳，谢谢 ◆