vb点虐 文件打开模式的简单介绍

vb点虐 如何打开txt文件？

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

10年的东阳网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网整合营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整东阳建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“东阳网站设计”,“东阳网站推广”以来，每个客户项目都认真落实执行。

创建新项目：

在窗体上添加文本框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文件为类：

HKEY_CLASSES_ROOT\.txt   '在这个地址有个默认属性值是：txtfile

HKEY_CLASSES_ROOT\txtfile\shell\open\command   '这里的默认属性值txtfile的关联程序：%SystemRoot%\system32\NOTEPAD.EXE %1

我暂不了解vb点虐 读注册表函数（刚在学），以vbs为类：

Dim WshShell

Set WshShell = WScript.CreateObject("Wscript.Shell")

Dim Ext

ext= WshShell.RegRead ("HKEY_CLASSES_ROOT\.mp3\") '这里的扩展名.mp3可以改成其它的看看

MsgBox WshShell.RegRead ("HKEY_CLASSES_ROOT\"  ext  "\shell\open\command\")

vb点虐 打开文件夹

System.Windows.Forms.OpenFileDialog

System.Windows.Forms.SaveFileDialog

System.Windows.Forms.FolderBrowserDialog

以上三个类均能够很好的解决楼主的需求。

具体的请lz自己查msdn

vb 点虐 程序怎么默认打开txt记事本文件？

楼下的根本不对。exe右键是没有“打开方式”的，也没必要因为这个问题而还原系统。把exe设置为直接运行，方法：新建一个txt文件，输入ftype exefile="%1" %* ，保存，把扩展名改为bat，双击这个文件，就好了。