ذخیره فایل txt

[berayan 90]

سلام

من با ذخیره فایل تکست مشکل دارم

از مطالب انجمن استفاده کردم ولی به نتیجه نریسیدم

قضیه از این قراره که من می خوام هر بار که کاربر وارد یک صفحه میشه یه شماره در فایل تکست ذخیره بشه و مثلا به 3 که رسید اخطار اصلی رو بده و از نرم افزار خارج بشه .

خودم با استفاده از مطالب انجمن یه سورس نوشتم ولی متاسفانه (نه چاپ میکن نه می خونه )

[color=#0000ff]Sub Globals[/color]

Dim writer As TextWriter
Dim reader As TextReader

[color=#0000ff]End Sub[/color]
=====================================================
[color=#0000ff] Sub Activity_Create(FirstTime As Boolean)
[/color]

Activity.LoadLayout("scoroll")
ScrollView1.Panel.LoadLayout("1")

Dim writ1 As String
Dim s1 As String
'=========================================================================


[color=#0000ff]If[/color] [color=#0000ff]File[/color].Exists(File.DirInternal,[color=#a52a2a]"m.txt"[/color])=False [color=#0000ff]Then[/color]


writer.Initialize(File.OpenOutput(File.DirInternal,[color=#a52a2a]"m.txt"[/color],True))
s1="0"
writer.WriteLine(s1)
[color=#0000cd]ToastMessageShow[/color]("اخطار اول.",False)


[color=#0000ff]Else[/color]


"reader.Initialize(File.OpenInput(File.DirInternal,[color=#a52a2a]"m.txt[/color]))
Dim red1 As String
red1 = reader.ReadAll


[color=#0000ff]If [/color]red1 = "2" [color=#0000ff]Then[/color]


writer.Initialize(File.OpenOutput(File.DirInternal,[color=#a52a2a]"m.txt"[/color],True))
s1=3
writer.WriteLine(s1)
[color=#0000cd]ToastMessageShow[/color]("اخطار اخر.",False)


[color=#0000ff]Else If[/color] red1 = "1" [color=#0000ff]Then[/color]


writer.Initialize(File.OpenOutput(File.DirInternal,[color=#a52a2a]"m.txt"[/color],True))
s1="2"
writer.WriteLine(s1)
[color=#0000cd]ToastMessageShow[/color]("اخطار سوم.",False)


[color=#0000ff]Else If[/color] red1 = "0" [color=#0000ff]Then[/color]


writer.Initialize(File.OpenOutput(File.DirInternal,[color=#a52a2a]"m.txt"[/color],True))
s1="1"
writer.WriteLine(s1)
[color=#0000cd]ToastMessageShow[/color]("اخطار دوم.",False)


[color=#0000ff]End If[/color]
[color=#0000ff]End If[/color]


reader.Initialize(File.OpenInput(File.DirInternal,[color=#a52a2a]"m.txt"[/color]))
red1 = reader.ReadAll


[color=#0000ff]If[/color] red1 = "3" [color=#0000ff]Then[/color]


[color=#0000cd]Msgbox[/color]("آی پی شما ثبت شد","متاسفم")
ExitApplication
Activity.Finish

[color=#0000ff]Else If[/color] red1 < 3 [color=#0000ff]Then[/color]




ExitApplication
Activity.Finish

[color=#0000ff]End If
[/color]
end sub

[مهدی ایزدی 9,203]

درود

به نظر من این کارها نیازی نیست این همه کد نویسی

کلا بیا توی Main توی Activity Create بنویس :

    If File.Exists(File.DirInternal,"file.iz") = False Then
   File.WriteString(File.DirInternal,"file.iz","0")
   End If

بعدی توی Activity Resume مربوط به همون Activity و لایه ای که میخوای فقط سه بار باز بشه بیا بنویس:

    Dim i As Int = File.ReadString(File.DirInternal,"file.iz")
   If i > 3 Then
   Activity.Finish
   StartActivity(Main)
   Else
   x = i + 1
   Msgbox("اخطار شماره" & x,"اخطار")
   File.WriteString(File.DirInternal,"file.iz",x)
   End If

همین کارتو راه میندازه *laie*

[پژمان نیکروان 6,055]

درضمن یه چیزم من بگم... اگه میخوای کاری کنی که فقط طرف بتونه سه بار از برنامه استفاده کنه ، فایل تکست رو تو dirInternal ذخیره نکن.

چون به محض اینکه به فرض به 3 رسید و تونست کاربر استفادش کنه. میتونه بره رو تنظیمات برنامه ، برنامه رو پاک کردن دیتا(Clear Date) بزنه و دوباره برگردونه به اول.

یا باید تو دیتابیس ذخیره بشه که قابل ویرایش و دسترسی برای کاربر نباشه ، یا داخل رم که طرف نتونه با پاک کردن دیتا اونو پاک کنه (که البته بازهم پیداش کنه میتونه پاکش کنه).

[مهدی ایزدی 9,203]

در نهایت هرکاری که کنه باز کاربر امکان دور زدن برنامه رو داره مگه اینکه با دیتابیس آنلاین کار کنه :-d

[مجید آرتا 5,874]

در نهایت هرکاری که کنه باز کاربر امکان دور زدن برنامه رو داره مگه اینکه با دیتابیس آنلاین کار کنه :-d

یاد اون اون پروژه تستی که واسه کرک گذاشتی افتادم*laugh2*

میتونید در کنار دیتابیس آنلاین از انکریپتور هم استفاده کنید *r24* دیتابیس رو انکریپت کنید.*r24*

سره نخو دادیم شما تا تهش برید دیگه *herher*