تیم نرم افزاری پایگاه سایبری استان خوزستان

محلی عمومی برای انتقال دانش برنامه نویسی

تیم نرم افزاری پایگاه سایبری استان خوزستان

محلی عمومی برای انتقال دانش برنامه نویسی

تیم نرم افزاری پایگاه سایبری استان خوزستان کانال رسمی تلگرام پایگاه سایبری استان خوزستان

جهت بیان هرگونه سوال و یا دیدگاه می توانید از کاربری تلگرام زیر استفاده نمایید
Telegram: @saiber89

آپ پیسی نام گروه نرم افزاری ماست که قصد داریم در خدمت جامعه خود با رویکرد انتقال دانش برنامه نویسی و رفع مشکلات شما در ضمینه های برنامه نویسی باشیم ./

آخرین نظرات
نویسندگان

باعرض سلام

با توجه به اهمیت موضوع ذخیره سازی اطلاعات برای هر برنامه نویس و همچنین بازیابی اطلاعات ذخیره شده این پست را تقدیم سروران گرامی میگردد.


button1 جهت ذخیره سازی اطلاعات موجود در Textbox1 و ذخیره آن در فایلی با آدرس D:\append.txt با دسترسی ترتیبی نوشته شده است.

Button2 جهت بازیابی اطلاعات ذخیره شده با دسترسی ترتیبی و بازیابی آن در Textbox2 نوشته شده است.

نکته حائز اهمیت: با توجه به اینکه پس از ذخیره سازی اطلاعات با زبان فارسی ( با نگارش فارسی متنی را نوشته باشید و قصد ذخیره آن را داشته باشید.) پس از ذخیره تمام کاراکترهای فارسی بصورت علامت سوال ؟؟؟؟؟ درخواهند آمد لذا ما از رمزنگاری "  System.Text.ASCIIEncoding.Unicode  " استفاده کردیم تا هرگونه کاراکتری را بتوانید ذخیره سازی کنید.


Button3 جهت ذخیره سازی اطلاعات موجود در Textbox1 و ذخیره آن در فایلی با آدرس D:\random.txt با  دسترسی تصادفی نوشته شده است.

Button4 جهت بازیابی اطالاعات ذخیره شده با دسترسی تصادفی با توجه به شماره رکورد و بازیابی آن در Textbox2 نوشته شده است.

نکته 1: ذخیره سازی با روش تصادفی یک مشکل عمده دارد و آن هم طول فایل ذخیره شده است که اگر اطلاعات شما طولانی باشد امکان ذخیره سازی ممکن نیست.

نکته 2: درذخیره سازی و بازیابی فایل های تصادفی  حتما می بایست شماره رکورد را وارد نمایید که در کد زیر از شمارنده NumericUpDown1.Valueاستفاده نموده ایم که شما میتوانید به هرشکلی آن را وارد نمایید.

نکته 3: Fileput جهت ذخیره سازی و fileget جهت بازیابی استفاده میشود.

نکته 4: برخلاف Stream که ذخیره و بازیابی بسیار ساده تر است، Openfile  کردن نیازمند یک مقدار از نوع Integer  و حتما Freefiile وارد بشود، درتمام کدهای ذخیره و بازیابی می بایست از این مقدار صحیح، استفاده نمایید.



Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sr As New StreamWriter("d:\append.txt", True, System.Text.ASCIIEncoding.Unicode)
        sr.Write(TextBox1.Text & vbNewLine)
        sr.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sr As New StreamReader("d:\append.txt", System.Text.ASCIIEncoding.Unicode)
        TextBox2.Text = sr.ReadToEnd
        sr.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim f As Integer = FreeFile()
        Dim rc As Integer = NumericUpDown1.Value
        FileOpen(f, "d:\random.txt", OpenMode.Random, OpenAccess.Write)
        FilePut(f, TextBox1.Text, rc)
        FileClose(f)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim f As Integer = FreeFile()
        Dim rc As Integer = NumericUpDown1.Value
        FileOpen(f, "d:\random.txt", OpenMode.Random, OpenAccess.Read)
        FileGet(f, TextBox2.Text, rc)
        FileClose(f)
    End Sub
End Class

پاسخگویی رایگان به سوالات کاربران

انتشار در واتساپ

*****

انتشار در تلگرام



  • افسر سایبری

نظرات  (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

کاربران بیان میتوانند بدون نیاز به تأیید، نظرات خود را ارسال کنند.
اگر قبلا در بیان ثبت نام کرده اید لطفا ابتدا وارد شوید، در غیر این صورت می توانید ثبت نام کنید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی