VB.NET 自定義一個文件類型，比如 "XX.abc" 里面存儲文本，且只能自己可以打開，如何實現(xiàn)？

Function ByteToBin(m As Byte) As String ' 將字節(jié)型數(shù)據(jù)轉換成八位二進制字符串

創(chuàng)新互聯(lián)專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、館陶網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5高端網(wǎng)站建設、商城建設、集團公司官網(wǎng)建設、外貿(mào)營銷網(wǎng)站建設、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為館陶等各大城市提供網(wǎng)站開發(fā)制作服務。

Dim c$

c$ = ""

Do While m 0

r = m Mod 2

m = m \ 2

c$ = r c$

Loop

c$ = Right("00000000" c$, 8)

ByteToBin = c$

End Function

Function Reverse(m As String) As String ' 將八位二進制字符串顛倒順序

Dim i%, x$

x = ""

For i = 1 To 8

x = Mid(m, i, 1) x

Next i

Reverse = x

End Function

Function BinToByte(m As String) As Byte ' 將八位二進制串轉換成十進制

Dim x As String * 1, y%, z%

z = 0

For i = 1 To 8

x = Mid(m, i, 1)

y = x * 2 ^ (8 - i)

z = z + y

Next i

BinToByte = z

End Function

Private Sub Command1_Click()

Dim x As Byte, i%, fname$

fname = InputBox("請輸入要加密的文件名！注意加上路徑名：")

If Dir(fname) = "" Then

MsgBox "文件不存在！"

Exit Sub

End If

Open fname For Binary As #1 ' 以二進制訪問模式打開待加密文件

For i = 1 To LOF(1) ' LOF函數(shù)是求文件長度的內(nèi)部函數(shù)

Get #1, i, x ' 取出第i個字節(jié)

x = BinToByte(Reverse(ByteToBin(x))) ' 這里調(diào)用了三個自定義函數(shù)

Put #1, i, x ' 將加密后的這個字節(jié)寫回到文件原位置

Next i

Close

MsgBox "完成！"

End Sub

退出：Unload Me

網(wǎng)上幫你找的，如果不符合你的要求，你可以再去網(wǎng)上在搜搜，有很多代碼的。

vb.net中怎么判斷文件類型

這個問題可以用注冊表解決。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件擴展名在注冊表里的文件類型名稱

'比如.zip的類型名稱一般是zipfile

fileType = 讀取注冊表的classes_root下的子鍵(fileExt)的默認鍵值

'取得打開這種文件的程序

openCommand = 讀取注冊表的classes_root下的子鍵(fileType + "\shell\open\command")的默認鍵值

Return getOpenCommand

End Function

讀取注冊表的HKEY_CLASSES_ROOT下的子鍵的默認鍵值的方法可以在網(wǎng)上搜索到。

這樣getOpenCommand("doc")就可以得到一個字符串(包括引號)：

"C:\Program Files\Word\word.exe" "%1"

這里只需要用Spilt函數(shù)把C:\Program Files\Word\word.exe分離出來就好了

vb.net都可以讀取哪些格式的文件？

基本都能讀取，文本類型的完全沒問題，高級文本比如DOC等文檔需要一些控件、算法支持。理論上來說全都支持，但是如何訪問就要看技術。參數(shù)等信息一般保存在配置文件、XML文件、注冊表中 追問： 配置文件是什么格式的文件 回答： 是以INI為后綴名，但是是TXT 文件格式 ，文 本格 式，可以用記事本打開。于普通文本格式不同的是，INI里面的信息都是有一定規(guī)律的存放。便于再次讀寫

VB.NET中，文件對話框（OpenFileDialog）顯示某種設定的文件類型需要修改什么屬性？

Filter 屬性設置當前文件名篩選字符串，該字符串確定出現(xiàn)在對話框的“文件類型”框中的選項。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 獲取或設置文件對話框中當前選定篩選器的索引；

openFileDialog1.RestoreDirectory = true ;

對于每個篩選選項，篩選器字符串都包含篩選器說明，后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。

分享文章：vb.net文件類型 vb中的文件訪問類型分為程序文件和數(shù)據(jù)文件
網(wǎng)址分享：http://chinadenli.net/article10/dodcido.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護、用戶體驗、自適應網(wǎng)站、靜態(tài)網(wǎng)站、定制網(wǎng)站、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)