سوال در مرود چند خط کد

[roozen]

سلام لطفا توضیح بدین چند تا خط پایین چی کار می کنه؟

Temp_Date_string=""
For Loop_date = 1 to Len(Date) step 1
If (Mid(Date, Loop_date , 1)<> "/" Then
Temp_Date_string=Temp_Date_String + Mid(Date , Loop_date , 1)

End IF
Next Loop_date​

 

[mjebrahimi]

vb کار نیستم ولی میخواستم بدونم تابع Mid تعریف نشده تو جایی از این برنامه ؟

 

[mohsen25]

vb کار نیستم ولی میخواستم بدونم تابع Mid تعریف نشده تو جایی از این برنامه ؟

mid نیازی به تعریف نداره، جز توابع از پیش تعریف شده وی بی هست و برای نمایش قسمتی از رشته هست. اولین پارامتر رشته مورد نظر، دومی محل شروع، سومی تعداد کاراکترهایی که میخوایم است.

 

[mohsen25]

سلام لطفا توضیح بدین چند تا خط پایین چی کار می کنه؟

Temp_Date_string=""
For Loop_date = 1 to Len(Date) step 1
If (Mid(Date, Loop_date , 1)<> "/" Then
Temp_Date_string=Temp_Date_String + Mid(Date , Loop_date , 1)

End IF
Next Loop_date​

تاریخ سیستم رو بدون "/" ها برمیگردونه. با if چک میکنه که اگه به "/" رسیدیم وارد شرط نمیشه و به عدد شمارنده یکی اضافه میشه و میره سراغ قسمت بعدی و در نهایت همه رشته ها رو توی متغیر Temp_Date_string ذخیره میکنه.
همونطور که میدونید Loop_date هم شمارنده حلقه مون هست که از یک شروع میشه به ترتیب تا تعداد کاراکترهای تاریخ سیستم میره بالا.

موفق باشی

 

[balabala]

کلش رو تو یه خط میتونست بنویسه D:

Temp_Date_string = Replace(Date,"/","")

 

[mohsen25]

کلش رو تو یه خط میتونست بنویسه D:

Temp_Date_string = Replace(Date,"/","")

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

 

[44milad]

این نیز میگذرد...