在VB.NET里如何自己创一个文件类型并使用它？

[huadiexiaowu]

本人一个VB.NET新手，想把程序的设定存为一个文件，这个文件扩展名可以自定义，如.zh/.zhang/.AAA，并且可以从这个文件读取东东，就是可以写入也可以读取，请问应该如何做？

[水如烟]

这是注册表中文件关联问题

你用Google搜下，保证一大堆教你怎么关联文件

两个步骤：
确定你的文件类型
在注册表上注册你的关联信息

程序安装时
因为要涉及到注册表的读写问题
如果你是写在系统而不是用户部分的话
那得考虑权限异常

[xuxun]

用FileOpen函数，形式如下：
FileOpen(fn1, g_ModFilePath, OpenMode.Input)
fn1-->文件号(整型变量)，可用freefile函数分配一个，如：fn1 = freefile
g_ModFilePath-->文件完整的路径字符串，如 C:\AAA.BBB
OpenMode.Input-->OpenMode是系统自带的枚举，表示文件访问模式，Input则代表读取文件

详细用法：
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.2052/vblr7/html/vastmOpen.htm

[xuxun]

如不清楚再给你一段代码示例：

'输入字符串
Dim strInput As String
'插入标记字串
Dim strInsertTag As String
'输出字符串
Dim strOutPut As String
Dim str1 As String

Do Until EOF(fn1)
strInput = LineInput(fn1)
str1 = ""
If InStr(strInput, "<#") > 0 Then
strInsertTag = RtnInsertTag(strInput)
str1 = RtnCodeLine(strInsertTag, tpDllSrc)
strOutPut = Replace(strInput, strInsertTag, str1)
Else
strInsertTag = ""
strOutPut = strInput
End If
PrintLine(fn2, strOutPut)
Loop
FileClose(fn1)
FileClose(fn2)

PS:RtnInsertTag、RtnCodeLine是自定义函数，不用理它