ذخیره فایل با نام دلخواه

[susa 25]

سلام خدمت همه دوستان

 

بنده خیلی سوال میپرسم ولی سوالام ریز و جزئیه از همه معذرت میخوام

 

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

 

[softir 459]

در هم اکنون، susa گفته است :

http://nex1music.ir/bnr/shixon-450-450-d39.jpg

 

مثلا این عکس

 

 

سلام بفرما ساختم + سورس کد + کد

http://s8.picofile.com/file/8275867068/joda_kardan_esm_az_Adres.zip.html

Sub Globals
	
	Private EditText2 As EditText
	Private EditText1 As EditText
	Dim index As Int
	
End Sub

Sub split_Click
	
	index = EditText1.Text.LastIndexOf("/")
	EditText2.Text = EditText1.Text.SubString(index + 1)
	
End Sub

 

[softir 459]

در هم اکنون، susa گفته است :

سلام خدمت همه دوستان

 

بنده خیلی سوال میپرسم ولی سوالام ریز و جزئیه از همه معذرت میخوام

 

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

 

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

البته امیدوارم که بتونم بگم

[susa 25]

در 14 دقیقه قبل، softir گفته است :

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

البته امیدوارم که بتونم بگم

http://nex1music.ir/bnr/shixon-450-450-d39.jpg

 

مثلا این عکس

 

 

[susa 25]

در 11 ساعت قبل، softir گفته است :

سلام بفرما ساختم + سورس کد + کد

http://s8.picofile.com/file/8275867068/joda_kardan_esm_az_Adres.zip.html

Sub Globals
	
	Private EditText2 As EditText
	Private EditText1 As EditText
	Dim index As Int
	
End Sub

Sub split_Click
	
	index = EditText1.Text.LastIndexOf("/")
	EditText2.Text = EditText1.Text.SubString(index + 1)
	
End Sub

 

داداش میشه یه توضیح کوتاه بدی که مـلا بهش گفتی چیکار کنه؟

[softir 459]

در هم اکنون، susa گفته است :

داداش میشه یه توضیح کوتاه بدی که مـلا بهش گفتی چیکار کنه؟

Sub Globals
	
	Private EditText2 As EditText		
	Private EditText1 As EditText
	Dim index As Int
	
End Sub

Sub split_Click
	
	index = EditText1.Text.LastIndexOf("/")					, میاد آدرسی رو که دادی از آخر شروع به گشتن "/" می کنه 
															, بعد مکان برگشتی رو میریزه تو متغییر ایدکس

	EditText2.Text = EditText1.Text.SubString(index + 1)	, بعد با این تابع میاییم از اول تا اون مکان رو در نضر ننمیگیریم
															, از اون مکان به بعد رو میریزه تو ادیت تکس 2
	
End Sub

http://nex1music.ir/bnr/shixon-450-450-d39.jpg               مثلا این آدرس شماست
از آخر / رو پیدا میکنه بعد مکانش رو برمی گردونه
بعدمیگیم از اول تا اون مکان + 1 رو در نظر نگیر بگیه اش رو پس بده 
یعنی از کارکتر 24 به بعد رو بده

 

[susa 25]

در در 1395/09/04, 11:37:37، softir گفته است :

Sub Globals
	
	Private EditText2 As EditText		
	Private EditText1 As EditText
	Dim index As Int
	
End Sub

Sub split_Click
	
	index = EditText1.Text.LastIndexOf("/")					, میاد آدرسی رو که دادی از آخر شروع به گشتن "/" می کنه 
															, بعد مکان برگشتی رو میریزه تو متغییر ایدکس

	EditText2.Text = EditText1.Text.SubString(index + 1)	, بعد با این تابع میاییم از اول تا اون مکان رو در نضر ننمیگیریم
															, از اون مکان به بعد رو میریزه تو ادیت تکس 2
	
End Sub

http://nex1music.ir/bnr/shixon-450-450-d39.jpg               مثلا این آدرس شماست
از آخر / رو پیدا میکنه بعد مکانش رو برمی گردونه
بعدمیگیم از اول تا اون مکان + 1 رو در نظر نگیر بگیه اش رو پس بده 
یعنی از کارکتر 24 به بعد رو بده

 

مرسی دوست عزیز 3>