如何生成自定义扩展名的文件.docx

如何生成自定义扩展名的文件.docx

《如何生成自定义扩展名的文件.docx》由会员分享，可在线阅读，更多相关《如何生成自定义扩展名的文件.docx（15页珍藏版）》请在冰豆网上搜索。

如何生成自定义扩展名的文件

如何生成自定义扩展名的文件？

VisualStudioDevelopment

 > 

VisualStudio相关讨论

问题

∙

0

登录进行投票

我想用我开发的程序生成和读取自定义扩展名的文件，可以实现吗？

2009年1月4日3:

29

回复

|

引用

答案

∙

0

登录进行投票

别急，这样试试：

OptionExplicitOn

OptionStrictOn

ImportsSystem

ImportsSystem.IO

ClassMyStream

PrivateConstFILE_NAMEAsString="Test.jpg"

PublicSharedSubMain（）

'Createthenew,emptydatafile.

IfFile.Exists（FILE_NAME）Then

Console.WriteLine（"{0}alreadyexists!

",FILE_NAME）

Return

EndIf

DimfsAsNewFileStream（FILE_NAME,FileMode.CreateNew）

'Createthewriterfordata.

DimwAsNewBinaryWriter（fs）

'WritedatatoTest.data.

DimiAsInteger

Fori=0To10

w.Write（CInt（i））

Nexti

w.Close（）

fs.Close（）

'Createthereaderfordata.

fs=NewFileStream（FILE_NAME,FileMode.Open,FileAccess.Read）

DimrAsNewBinaryReader（fs）

'ReaddatafromTest.data.

Fori=0To10

Console.WriteLine（r.ReadInt32（））

Nexti

r.Close（）

fs.Close（）

EndSub

EndClass

2009年1月8日5:

28

回复

|

引用

版主

全部回复

∙

0

登录进行投票

你好！

  通过BinaryWriter和BinaryReader来读写文件，扩展名你自己定义就行了。

2009年1月4日5:

05

回复

|

引用

版主

∙

0

登录进行投票

你好，能不能帮我举个例子啊。

谢谢。

本人初学者，详细一点比较好，谢谢。

如果自己的软件里面有文字图片声音，视频之类的。

那那个怎么做。

下怎么实现。

谢谢你，真的谢谢你

2009年1月6日5:

17

回复

|

引用

∙

0

登录进行投票

ImportsSystem

ImportsSystem.IO

PublicClassBinaryRW

SharedSubMain（）

DimiAsInteger=0

DiminvalidPathChars（）AsChar=Path.InvalidPathChars

DimmemStreamAsnewMemoryStream（）

DimbinWriterAsNewBinaryWriter（memStream）

'Writetomemory.

binWriter.Write（"Invalidfilepathcharactersare:

"）

Fori=0ToinvalidPathChars.Length-1

binWriter.Write（invalidPathChars（i））

Nexti

'CreatethereaderusingthesameMemoryStream

'asusedwiththewriter.

DimbinReaderAsNewBinaryReader（memStream）

'SetPositiontothebeginningofthestream.

memStream.Position=0

'Readthedatafrommemoryandwriteittotheconsole.

Console.Write（binReader.ReadString（））

DimmemoryData（_

CInt（memStream.Length-memStream.Position）-1）AsChar

Fori=0TomemoryData.Length-1

memoryData（i）=Convert.ToChar（binReader.Read（））

Nexti

Console.WriteLine（memoryData）

EndSub

EndClass

2009年1月6日7:

25

回复

|

引用

版主

∙

0

登录进行投票

 周雪峰你好：

   我看了你的代码但实在不知道怎么用。

不好意思太麻烦你了。

能不能给我一个完整的代码。

比如里面有声音图片视频等东西是，这个main函数怎么用。

谢谢。

真是太麻烦你了。

2009年1月6日9:

35

回复

|

引用

∙

0

登录进行投票

不好意思，没有明白你的真实需求啊！

你是想保存的文件里面包括文字，图片和声音吗？

2009年1月6日10:

36

回复

|

引用

版主

∙

0

登录进行投票

真是不好意思，没说清楚。

对不起。

 我的意思是，有一个Form，里面有两个textbox，一个richtextbox，一个PictureBox和可以播放音频的控件。

然后我保存这些资料的时候生成一个*.muradil这个样一个文件格式的文件。

如果有安装过我自己做的软件的电脑，可以双击刚才保存的文件直接打开，当然打开的时候用我自己做的软件打开。

现在肯定知道我的意思了。

呵呵。

。

。

太麻烦你了。

谢谢你

就像word，word的扩展名是.doc，我们保存的时候有一个*.doc的文件出现。

我们需要的时候双击那个*.doc的文件就能打开你以前保存过的文件。

当然这个里面包含很多信息，比如图片文字等。

谢谢你。

谢谢你这么详细这么认真的讲解。

谢谢。

。

。

。

呵呵。

。

。

。

。

等你的消息。

我的邮箱是muradil0903@

2009年1月6日14:

06

回复

|

引用

∙

0

登录进行投票

这个功能主要是通过注册表来实现，网上的实例比较多，你找找看，用.net类库比较简单。

我也帮你找实例看看。

2009年1月6日14:

29

回复

|

引用

∙

0

登录进行投票

那先谢谢你了。

我找了很多资料。

但是6.0的比较多，但找到的都是实现文字的保存打开。

我想实现图片声音。

。

。

。

谢谢。

。

。

2009年1月7日4:

50

回复

|

引用

∙

0

登录进行投票

想自己定义一个系统可以认出的文件类型吗？

很简单，只要在注册表中申请一下就可以。

以下示例为创建一个扩展名为"test"，默认为记事本打开的文件。

将以下内容放入记事本，保存为"xxx.reg"。

注意红色标记部分，应该改成你想要的图标路径！

WindowsRegistryEditorVersion5.00

[HKEY_CLASSES_ROOT\.test]

@="测试文件"

[HKEY_CLASSES_ROOT\.test\DefaultIcon]

@="c:

\\test.ico"

[HKEY_CLASSES_ROOT\.test\OpenWithList]

[HKEY_CLASSES_ROOT\.test\OpenWithList\notepad.exe]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.test]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.test\OpenWithList]

"a"="notepad.exe"

"MRUList"="a"

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.test\OpenWithProgids]

"test_auto_file"=hex（0）:

这是我网上找的。

还有：

ImportsSystem

ImportsSystem.IO

PublicClassForm1

   Submain1（）'检测传进来的参数

       DimcmdsAsString（）

       cmds=System.Environment.GetCommandLineArgs

       Ifcmds.Length>0Then

           DimiAsInteger

           Fori=0Tocmds.Length-1

               Ifcmds（i）.ToStringLike"*.gulyar"Then'其中abc为你自定义文件的扩展名

                   cmd=cmds（i）.ToString

                   iscaseurl=True

               EndIf

           Next

       EndIf

   EndSub

   DimstrFileNameAsString

   DimcmdAsString=""'用来保存传入的参数

   DimiscaseurlAsBoolean=False'判断是否是你需要的参数

   DimiAsInteger

   PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

       DimstrFileNameAsString

       DimSaveFileDialog1AsNewSaveFileDialog

       strFileName=TextBox1.Text

       WithSaveFileDialog1

           .DefaultExt="byt"

           .FileName=strFileName

           .Filter="Textfiles（*.gulyar）|*.gulyar"

           .FilterIndex=1

           .InitialDirectory="f:

\\"

           .Overw