vb點虐 文件打開模式的簡單介紹

vb點虐 如何打開txt文件？

說明：以下代碼在Microsoft Visual Basic 2005 （簡體中文版）中通過。

10年的東陽網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。全網(wǎng)整合營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整東陽建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)公司從事“東陽網(wǎng)站設(shè)計”,“東陽網(wǎng)站推廣”以來，每個客戶項目都認(rèn)真落實執(zhí)行。

創(chuàng)建新項目：

在窗體上添加文本框2個：TextBox1，TextBox2

TextBox1 -- 用來編輯要寫入的文本文件的內(nèi)容，或顯示打開的文本文件的內(nèi)容

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

補充:你要把讀出的數(shù)據(jù)賦值給一個變量,只要:聲明一個變量為數(shù)值類型,然后只要讀取一行就可以了,把這行數(shù)據(jù)經(jīng)過轉(zhuǎn)換成數(shù)值后賦給這個變量.

vb點虐 ，知道一個文件的擴(kuò)展名，如何通過這個擴(kuò)展名獲得該文件的默認(rèn)打開方式（即默認(rèn)打開程序）？

如沒有現(xiàn)存的辦法的話只能讀取注冊表，以txt文件為類：

HKEY_CLASSES_ROOT\.txt?? '在這個地址有個默認(rèn)屬性值是：txtfile

HKEY_CLASSES_ROOT\txtfile\shell\open\command?? '這里的默認(rèn)屬性值txtfile的關(guān)聯(lián)程序：%SystemRoot%\system32\NOTEPAD.EXE %1

我暫不了解vb點虐 讀注冊表函數(shù)（剛在學(xué)），以vbs為類：

Dim?WshShell

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

Dim?Ext

ext=?WshShell.RegRead?("HKEY_CLASSES_ROOT\.mp3\") '這里的擴(kuò)展名.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 點虐 程序怎么默認(rèn)打開txt記事本文件？

樓下的根本不對。exe右鍵是沒有“打開方式”的，也沒必要因為這個問題而還原系統(tǒng)。把exe設(shè)置為直接運行，方法：新建一個txt文件，輸入ftype exefile="%1" %* ，保存，把擴(kuò)展名改為bat，雙擊這個文件，就好了。

當(dāng)前文章：vb點虐 文件打開模式的簡單介紹
瀏覽地址：http://m.jiaotiyi.com/article/ddgipec.html