function nbr(a)
ver = 0
result = 1
La = String.Length(""..a);
sharp = String.Mid(""..a, 1, 1);
sharpascii = String.Asc(""..sharp);
if sharp~="+" and sharp~="-" then
if sharpascii < 48 or sharpascii > 57 then
result = -1
end
end
for i=2,La do
shar = String.Mid(""..a, i, 1);
sharasc = String.Asc(""..shar);
if sharasc == 46 then
ver = ver+1
end
if sharasc < 48 and sharasc~=46 then
result = -1
end
if sharasc > 57 then
result = -1
end
end
if ver ~= 0 and ver ~= 1 then
result = -1
end
if ver==1 then
res = String.Find(""..a, ".", 1, false);
if res == La then
result = -1
end
end
return result
end
هل هذه اللغة التي كتبت بها لا توجد بها مسافات قبل بعض الأسطر لتسهيل القراءة ؟
مثل
function nbr(a)
ver = 0
result = 1
La = String.Length(""..a);
sharp = String.Mid(""..a, 1, 1);
sharpascii = String.Asc(""..sharp);
if sharp~="+" and sharp~="-" then
if sharpascii < 48 or sharpascii > 57 then
result = -1
مجتمع لمناقشة وتبادل الخبرات حول تطوير الويب. ناقش أحدث التقنيات، اللغات، والأدوات في عالم تطوير المواقع والتطبيقات. شارك مشاريعك، اسأل عن نصائح، وتعاون مع مطورين محترفين وهواة.