گرفتن int از فایل تکست

[amir1999 81]

سلام

دوستان من میخوام یه حلقه فور بسازم که یک طرفش متغیره اینته

به این شکل:

dim ds as int
for i = 0 to ds -1
    msgbox("","")
next

حالا مثلا توی اکتیویتی کریت ds رو برابر یه 5 قرار میدم بدون هیچ مشکلی 5بار مسیج باکس نشون میده!

حالا من میخوام این عدد 5 رو از داخل فایل تکستم بخونم و مشکل اصلیه من اینه که یک خط از فایل تکست که من مشخص میکنم و این عدد 5 داخلش هست رو به یه متغییر عددی یا اینت تبدیل کنم

خودم به هر روشی که میدونستم تست کردم اما دوست عزیزم فورس کلوز نمیذاشت!:(

خواهشا کمک!

واجبه:)

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

 

 

عجیبه

شما Encoding  رو روی ANSI  بزارید و مشکلتون حل میشه

روی UTF8  اصلا شرط IsNumber رو اجرا نمیکنه و بدون این شرط هم خطا میده

 

[amir1999 81]

22ساعت گذشته هنوز هیچکس جواب نداده

خواهشا یکی کمک کنه کارم لنگه

اگه توضیحاتم واضح نیست بگید دوباره توضیح بدم

[Payandehamir 2]

 

این کد برای ذخیره متغیر

dim a as int
a=5

Dim list1 As List
list1.Initialize
list1.Add(a)

File.WriteList(File.DirInternal,"a.txt",list1)

واین هم برای خواندن متغیر

dim a as int

Dim list1 As List
list1.Initialize
list1=File.ReadList(File.DirInternal,"a.txt")
a=list1.Get(0)
		

 

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

خب طبق گفتتون عدد رو از لیست میگیرید

باید چک کنید که این عددی رو که از لیست گرفتید عدد هستش یا خیر »

Dim l As List
l = File.ReadList(File.DirInternal,"1.txt")
If IsNumber(l.Get(0)) Then
	Private num As Int
	num = l.Get(0)
	For i = 0 To num - 1
		Log("Index #"&i)
	Next
End If

لیست ها واسمون آبجکت بر میگردونن و میتونه هر نوعی باشه، رشته و یا عدد.

[amir1999 81]

استاد آرتا کار نمیکنه:(

بدون هیچ ارور یا مشکلی

یعنی دستور if اجرا نمیشه

[amir1999 81]

در 19 ساعت قبل، Payandehamir گفته است :

 

این کد برای ذخیره متغیر

dim a as int
a=5

Dim list1 As List
list1.Initialize
list1.Add(a)

File.WriteList(File.DirInternal,"a.txt",list1)

واین هم برای خواندن متغیر

dim a as int

Dim list1 As List
list1.Initialize
list1=File.ReadList(File.DirInternal,"a.txt")
a=list1.Get(0)
		

 

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

من خوندن استرینگ رو بلدم اما بیرون کشیدن متغیر عددی از تکست رو نه!

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

نمیدونم مشکلتون دقیقا چیه

شما اگر مقدار داخل فایل تکست عدد کذاشته باشید بدون نیاز به تبدیل به int  مستقیما هم می تونید استفاده کنید

شاید مشکل از جای دیگه ای هستش

چون خوندن یک عدد از فایل تکست و قرار دادن داخل حلقه خب کد کد خاصی نداره.

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

[amir1999 81]

در 34 دقیقه قبل، مجید آرتا گفته است :

نمیدونم مشکلتون دقیقا چیه

شما اگر مقدار داخل فایل تکست عدد کذاشته باشید بدون نیاز به تبدیل به int  مستقیما هم می تونید استفاده کنید

شاید مشکل از جای دیگه ای هستش

چون خوندن یک عدد از فایل تکست و قرار دادن داخل حلقه خب کد کد خاصی نداره.

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

خدمت شما استاد

کدای خودتونه

مطمئنا مشکل از منه.لطفا یه چک بکنید

محتوی فایل تکست هم در خط اول فقط یه عدده(5)هیچ چیز دیگه...

و با UTF-8 سیوش کردم

test_txt.zip

[amir1999 81]

استاد ایزدی مثل همیشه عااااالی

واقعا ممنون

مشکل از اینکودینگ بود