مشکل در تبدیل رشته ی دریافت شده از دیتابیس آنلاین به اینتیجر

[mehran3d 75]

سلام دوستان من مقادیرم رو از دیتابیس سایت بوسیله php  دریافت میکنم

و با دستور

str2=Regex.Split("#",ReturnedText)

اونا رو جدا میکنم

توی رشته دریافتی یه سری عدد هستش مثل 1 و2 و 3و ...

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

وقتی میخوام اون اعداد(که به صورت رشته گرفتم) به اینتیجر تبدیل کنم با دستور زیر

''''p=رشته دریافت شده
dim i as int
i=p

با خطای invalid double  روبرو میشم. بنظر شما مشکل از کجاست؟

Error occurred on line: 173 (first)
java.lang.NumberFormatException: Invalid double: "1"
	at java.lang.StringToReal.invalidReal(StringToReal.java:63)
	at java.lang.StringToReal.parseDouble(StringToReal.java:269)
	at java.lang.Double.parseDouble(Double.java:295)

[mehran3d 75]

خودم درستش کردم

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

یه توضیحی هم بدم

مثلا ما یه مقدار  double بصورت "25452" 

داریم و میخوایم به عدد 25452 تبدیلش کنیم

مشکلی که من داشتم این بود که نمیتونستم به عدد تبدیلش کنم

بنابرین بر اساس طول رشته ، یکی یکی کاراکتر ها رو میخونم و تبدیل میکنم

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

 

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

(البته در صورتی که عدد بصورت اعشاری نباشه)

 

'''' p  مقدار دابل بود که دریافت کردم
dim i as int
i=con(p)
'''   i =>  عدد تبدیل شده

Sub con(n As String)As Int
	Dim p As Int

	p=0
	For u=0 To n.Length-1
		Select n.CharAt(u)
			Case "1"
				p=p*10+1
			Case "2"
				p=p*10+2
			Case "3"
				p=p*10+3
			Case "4"
				p=p*10+4
			Case "5"
				p=p*10+5
			Case "6"
				p=p*10+6
			Case "7"
				p=p*10+7
			Case "8"
				p=p*10+8
			Case "9"
				p=p*10+9
			Case "0"
				p=p*10+0
		End Select
	Next
	Return p
End Sub