ارور در برنامه

[arf 30]

سلام

در برنامه ای که در بازار فرستادم  وقتی اجرا می شود ارور می دهد

لینک برنامه:https://cafebazaar.ir/app/naayeb.o.alziyaara/?l=fa

اینم سابی که ارور میده:

Sub savedate(sdate As String)
	shenas.Initialize(File.OpenInput(File.DirInternal,"6.txt"))
	Dim ali2 As String
	ali2 = shenas.ReadLine
	If ali2 <> sdate Then
		shenas.Close
		zaxire.Initialize(File.OpenOutput(File.DirInternal,"6.txt",False))
		zaxire.WriteLine(sdate)
		zaxire.Close
		For i=1 To 5
			zaxire.Initialize(File.OpenOutput(File.DirInternal,i&".txt",False))
			zaxire.Close
		Next
	Else
		shenas.Close
	End If
End Sub

[arf 30]

درضمن اگر در اروری که میده  روی "Yes"  بزنید برنامه بدرستی کار خواهد کرد

[arf 30]

اروری که می ده هم اینه:

java.lang.nullpointerexception

[محمدرضا شاهپیری 5,561]

دوست عزیز شما چجوری این رو نوشتین  

ali2 = shenas.ReadLine

TextWriter اصن همچین متدی نداره که

از چه نسخه ای از کتابخونه Core استفاده میکنید؟

[arf 30]

ممنون مشکلم حل شد

مشکل آنجا بود که در اولین اجرای برنام در گوشی فایل 6.txt خالی بود در نتیجه ali2 = shenas.ReadLine و ali2 برابر null می گشت و در دستور if نمی توانست ali2 را که null گشته است با sdate مقایسه کند

و با گذاشتن یک if که بررسی کند آیا ali2=null است یا نه مشکل حل شد.

شاید بدرد کسی خورد

Sub savedate(sdate As String)
	shenas.Initialize(File.OpenInput(File.DirInternal,"6.txt"))
	Dim ali2 As String
	ali2 = shenas.ReadLine
if ali2 = null then ali2="00"
	If ali2 <> sdate Then
		shenas.Close
		zaxire.Initialize(File.OpenOutput(File.DirInternal,"6.txt",False))
		zaxire.WriteLine(sdate)
		zaxire.Close
		For i=1 To 5
			zaxire.Initialize(File.OpenOutput(File.DirInternal,i&".txt",False))
			zaxire.Close
		Next
	Else
		shenas.Close
	End If
End Sub

[محمدرضا شاهپیری 5,561]

shenas و zaxire از چه نوعی ان؟

[arf 30]

shenas و zaxire از چه نوعی ان؟

ببخشید فراموش کردم

Private zaxire As TextWriter
Private shenas As TextReader