متن فارسی در برنامه

[amirsafari 116]

سلام دوستان من یه فایل متنی رو میخونم توی برنامم. 

ولی زبان فارسی رو نمایش نمیده . 

چرا؟؟؟

اینم کدم : 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#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.

	
	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("Layout1")
	If File.Exists(File.DirInternal,"aa.txt")=False Then
	File.Copy(File.DirAssets,"aa.txt",File.DirInternal,"aa.txt")
	End If
	Dim auto As AutoSizeScroll
	Dim st As String
	Dim label1 As Label
	Dim font As Typeface
	font=Typeface.LoadFromAssets("ariblk.ttf")
	label1.Initialize("label1")
	st=File.ReadString(File.DirInternal,"aa.txt")
	label1.Text=st
	label1.Typeface=font
	ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
	auto.set(label1,ScrollView1)
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

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

نمایش نمیده؟؟ یا بد نمایش میده؟

موقع ذخیره فایل تکست از Notpad گزینه ی Encoding رو بذارید روی UTF-8 و سیو کنید.

[ebham 232]

فونت رو عوض کن دادا 

 

راستی 

 

کد زیر اصلا لازم نیست چرا کار خودتو سخت میکنی 

	st=File.ReadString(File.DirInternal,"aa.txt")
	label1.Text=st

میتونی مستقیم بخونیش 

	label1.Text=File.ReadString(File.DirInternal,"aa.txt")

[ebham 232]

اشتباه از من تصحیح شد

[امین شاهدی 5,765]

    If File.Exists(File.DirInternal,"aa.txt")=False Then
  File.Copy(File.DirAssets,"aa.txt",File.DirInternal,"aa.txt",  سلام خوبی )
    End If

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

الان من فایل رو با تکست سلام پر کردم 

 

 

دوست عزیز بهتر نیست با ندادن جواب های غلط دوستان رو به اشتباه نندازین ؟ 

کد های دوستمون درسته همش

[ebham 232]

دوست عزیز بهتر نیست با ندادن جواب های غلط دوستان رو به اشتباه نندازین ؟ 

 

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