بازکردن پسوند خاص

[azbddk]

چطور می تونم یه فایل با پسوند خاص رو تو برنامه ام بازکنم؟

[vira1368]

Dim openFileDialog1 As OpenFileDialog = New OpenFileDialog
openFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
openFileDialog1.FilterIndex = 1

[azbddk]

منظورم یک فایل که پسوندش توسط برنامه تولید می شه است

[younes221]

منظورم یک فایل که پسوندش توسط برنامه تولید می شه است


سلام ؛ اطلاعات داخل این فایل رو با استفاده از الگوریتمی که خودتون ابداع کردید کد کردید ؟ یا به دقیقا به صورتی که داخل برنامه نوشتید داخل یک فایل با پسوند دلخواه ذخیره کردید ؟

اگر حالت اول باشه خوب شما باید با استفاده از الگوریتمی اطلاعاتی رو که قبلا کد کردید رو برگردونید و در RichTextBox یا هر چیز دیگه ای نمایش بدید .

در حالت دوم فایل تولید شده تفاوتی با فایل های سیستم عامل نداره جز اینکه پسوند فایل تغییر کرده! یعنی شما میتونید با استفاده از کد دوستمون ولی با پسوند مورد نظرتون فایل رو انتخاب کنید و بایت به بایت از فایل بخونید و به کاراکتر معادل تبدیل کرده و در یک کنترل اطلاعاتتون رو نمایش بدین .

[azbddk]

ببخشید من منظورتون رو متوجه نمیشم. در واقع من یه برنامه دارم درست می کنم که یه فایل مثلاً با پسوند opr رو تو محیط برنامه باز کنه و اونو بخونه(منظورم آدرس فایل نیست منظورم کل اطلاعات فایل هست)و بعد اون رو باهمین فرمت ذخیره کنه

[alimanam]

با سلام


ببخشید من منظورتون رو متوجه نمیشم. در واقع من یه برنامه دارم درست می کنم که یه فایل مثلاً با پسوند opr رو تو محیط برنامه باز کنه و اونو بخونه(منظورم آدرس فایل نیست منظورم کل اطلاعات فایل هست)و بعد اون رو باهمین فرمت ذخیره کنه

نوشتن فایل که به برنامه شما بستگی داره که با چه الگوریتمی ( باینری یا متنی ) قراره فایل رو ذخیره کنه . برای باز کردن فایل در برنامه خودتون ( دبل کلیک کردن فایل مورد نظر ) در ابتدا باید آدرس فایل رو به دست بیارین از کد زیر میتونین اون رو به دست بیارین : ( بهتره در تابع Sub New اصلی فرمی که قراره اون فایل نمایش داده بشه نوشته بشه )

Dim returnValue As String() = Environment.GetCommandLineArgs()


اولین اندیس ( از دو !!! شروع کن ) شد یعنی اینکه کاربر روی فایل دبل کلیک کرده و قراره فایل در برنامه ما باز بشه . درضمن در ابتدا باید پسوند فایل مورد نظر رو به سیستم عامل بشناسونی به وسیله کد زیر :

Private Sub RegisterExtention(ByVal FileType As String, ByVal Icon As String, ByVal Address As String)
Dim RegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("", True)
RegKey.CreateSubKey("." & FileType).SetValue("", FileType & "File")
RegKey.CreateSubKey(FileType & "File").CreateSubKey("DefaultIcon").SetValue("", Icon)
RegKey.OpenSubKey(FileType & "File", True).CreateSubKey("Shell").CreateSubKey("Open").CreateSubKey("Command"). _
SetValue("", """" & Address & """" & " " & """" & "%1" & """" & " %*")
End Sub


http://www.sharefile.ir/uploads/1371466597.jpg

برای استفاده از تابع بالا میتونی از این کد استفاده کنی ( آرگومانهاش ساده است و نیاز به توضیح نداره )


Dim appPath As String = My.Application.Info.DirectoryPath & "\" & _
My.Application.Info.AssemblyName & ".exe"

RegisterExtention("opr", "", appPath)



پسورد فایل ضمیمه : 9823KJFDWBJ29834KJWBR23

موفق باشید./