ارورر در خواندن فایل تکست

[mamalliii 214]

سلام دوستان 

یه متن رو توی فایلل تکست ریختم

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

 

[mamalliii 214]

سلام واقعا  ممنون

حل شد

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

همین پست خودمو حل شده میزنم   :-)

[MahdiHD 1,748]

فایل تکست وجود ندارد.شما از با استفاده از کد نویسی فایل تکست ایجاد و در آن مطلب نوشته اید ؟ با از قابل فایل تکست را در پوشه فایل ریخته اید؟

[mamalliii 214]

این کد هام هس

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    Dim label As Label
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("formsakht")
    label.Initialize("label")
    label.Text = File.ReadString(File.DirInternal, "amozesh.txt")
	ScrollView1.Panel.AddView(label,Null,Null,Null,Null)
      
    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[MahdiHD 1,748]

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

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

خب الان همچین فایلی با نام amozesh.txt توی dirInternal وجود نداره دیگه.

باید ایجاد بشه.

[mamalliii 214]

من توی files های پروژه م یختم

ینی ادرس رو به fir assest تغییر بدم؟

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

من توی files های پروژه م یختم

ینی ادرس رو به fir assest تغییر بدم؟

بله بله:

  label.Text = File.ReadString(File.DirAssets, "amozesh.txt")

[shahab.es 5,429]

سلام عزیزم

شما وقتی یه فایل رو کپی میکنی توی پوشه فایل ها

باید توی پوشه اینترنالم قرارش بدی

دستور زیر چک میکنه و اگه نبود، قرارش میده

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

If File.Exists(File.DirInternal,"shaha.txt") = False Then
File.Copy(File.DirAssets,"shaha.txt",File.DirInternal,"shaha.txt")
End If