[COLOR="DarkGreen"]كاراكتر @ رو در يك متغير رشته اي قرار ميده[/COLOR]
char1$='@'
[COLOR="DarkGreen"]كاراكتر نقطه رو در يك متغير رشته اي قرار ميده[/COLOR]
char2$='.'
[COLOR="DarkGreen"]موقعيت كاراكتر @ رو در آدرس ايميلي كه در متغير $EditBox هست چك ميكنه. [/COLOR]
x=POS(char1$,EditBox$)
[COLOR="DarkGreen"]موقعيت كاراكتر نقطه رو در آدرس ايميلي كه در متغير $EditBox هست چك ميكنه[/COLOR]
y=POS(char2$,EditBox$)
[COLOR="DarkGreen"]طول متغير رشته اي $EditBox رو بدست مياره[/COLOR]
z=LEN(EditBox$)
[COLOR="DarkGreen"]مقدار x بررسي ميكنه (اگر x مخالف صفر هست يعني كاراكتر @ درج شده)[/COLOR]
If (x<>0) Then
[COLOR="DarkGreen"]موقعيت كاراكتر @ رو در رشته بررسي مي كنه(اگر x>1 هست يعني حداقل يك حرف قبل از @ درج شده)[/COLOR]
If (x>1) Then
[COLOR="DarkGreen"]موقعيت كاراكتر نقطه رو در جمله بررسي ميكنه (اگر Y مخالف صفر هست يعني كاراكتر نقطه درج شده)[/COLOR]
If (y<>0) Then
[COLOR="DarkGreen"]موقعيت كاراكتر نقطه رو بررسي ميكنه (نقطه بايد بعد از @ قرار داشته باشه و حداقل يك كاراكتر بين نقطه و @ وجود داشته باشه وگرنه آدرس سرور صحيح نخواهد بود.)[/COLOR]
If (y-1>x) Then
[COLOR="DarkGreen"]موقعيت كاراكتر نقطه رو نسبت به انتهاي رشته بررسي ميكنه (كاراكتر نقطه بايد قبل از پسوند آدرس قرار داشته باشه يعني بايد موقعيتش كوچكتر از طول رشته باشه) [/COLOR]
If (y<z) Then
[COLOR="DarkGreen"]اين پيغام آدرس صحيح هست[/COLOR]
Message("","EditBox$")
Else
[COLOR="DarkGreen"]پيغام خطا ميگه پسوند شما صحيح نيست (يعني كاراكتر نقطه در محل صحيح خودش قرار نداره)[/COLOR]
Message("","Error: Your domain is not correct")
End
Else
[COLOR="DarkGreen"]پيغام خطا ميگه نام سرور صحيح نيست (يعني عبارتي كه بين @ و نقطه بايد باشه)[/COLOR]
Message("","Error: You must enter a valid servername")
End
Else
[COLOR="DarkGreen"]اين خطا ميگه پسوند شما صحيح نيست (يعني كاراكتر نقطه در محل صحيح خودش قرار نداره)[/COLOR]
Message("","Error: Your domain is not correct")
End
Else
[COLOR="DarkGreen"]اين خطا ميگه آيدي صحيح نيست (يعني قبل از كاراكتر @ هيچ كاراكتري درج نشده)[/COLOR]
Message("","Error: You must enter a valid ID")
End
Else
[COLOR="DarkGreen"]اين خطا ميگه آدرس ايميل درست نيست (يعني كاراكتر @ در آدرس درج نشده)[/COLOR]
Message("","Error: e-mail address is not correct ")
End