جداسازی رقم اعداد

Singular

Singular

Active Member
سلام دوستان

چطور میشه رقم های اعداد رو جدا کنیم

مثلا عدد = 1000561
به این صورت بنویسه 1,000,561


و اگر عدد به صورت 0.54851200 بود بازم بتونه جدا کنه به این صورت 0.54,851,200


و اینکه من 10 تا ادیت باکس دارم که میخام اعدادش جدا بشه ..ممنون میشم از راهنماییتون
 
Singular

Singular

Active Member
آقای محمود بجای اینکه بیان بگید جست و جو کنید حداقل یا راهنمایی کنید یا لینکی مرتبط به این موضوع هست رو بزارید ...یا اینکه هیچی سلامت باشید

شدید از این کار بدم میاد از کاربران متخصص مثل شما در جواب درخواست راهنمایی کاربرانی مثل من ... میان میگن جستجو کن هست

حتما جست و جو کردم موفق نشدم..................
:snap:

:sad:
 
Oghianus

Oghianus

Member
سلام . ببینید این کار می کنه؟
[PHPS]
x=1000561
x$=CHAR(x)
l=LEN(x$)
For i=1 To l
l=l-2
res$=StrCopy(x$,l,3)
Next i
For h=i To 1
If (res$<>'') Then
res$=res$+','+res$[h]
Else
res$=res$[h]
End
Next h
Message("res$","")
[/PHPS]
​
 
MahmoodM30

MahmoodM30

مدیر <A href="http://forum.majidonline.com/forums/
farid00 گفت:
آقای محمود بجای اینکه بیان بگید جست و جو کنید حداقل یا راهنمایی کنید یا لینکی مرتبط به این موضوع هست رو بزارید ...یا اینکه هیچی سلامت باشید

شدید از این کار بدم میاد از کاربران متخصص مثل شما در جواب درخواست راهنمایی کاربرانی مثل من ... میان میگن جستجو کن هست

حتما جست و جو کردم موفق نشدم..................
کلیک کنید تا باز شود...

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

دوما مهم نیست شما بدتون میاد یا نه شما قبل از ایجاد تاپیک باید جستجو کنید بعد

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

آخرشم میتونید از کد زیر استفاده کنید

کد: 
Num$ = '1000000'
Format$ = Num$
comma$ = ','
For i=1 To Infinity
  StrLen = LEN(Num$)
  If (StrLen <= 3) Then
    Break()
  End
  Pos = StrLen-2
  Format$ = StrIns(Format$,comma$,Pos)
  Num$ = StrDel(Num$,Pos,3)
  LoadText("Text","Format$")
Next i
 
Singular

Singular

Active Member
تشکر از دوستان و آقا محمود

و لازم به ذکر هست من زمانی اینجا درخواست راهنمایی میکنم که اولا روی سوالم کلی کار کردم و تموم تلاشمو کردم و نتونستم

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

در کل تشکر...
 
Singular

Singular

Active Member
نمیشه یکم هوشمند تر باشه
مثلا اگه عدد 0.01 باشه اینو اینطوری مینویسه 01.,0

یک مشکل دیگه هم که پیش اومده واسم اینه که وقتی مثلا عدد 30000 تبدیل میشه به 30,000

بعد وقتی میخام عمل ریاضی مثلا تقسیم انجام بدم جواب میشه 15 یعنی اون صفر های اونور جداکننده رو حساب نمیکنه
 
آخرین ویرایش:
Oghianus

Oghianus

Member
این کد رو به انتهای کدی که دوستمون گفت اضافه کن، کارش اینه که ویرگول ها رو بر میداره و بعدش String رو به Value تبدیل می کنه. بعدش می تونید دوباره Num رو هر کاری که می خواهید بکنید:
[PHPS]
fromstr$=','
tostr$=''
Format$=StrChange(Format$,fromstr$,tostr$)
Num=VAL(Format$)
Message("","Num")
[/PHPS]
​
 
Singular

Singular

Active Member
یک مشکلی که داره اینه کد شما فقط روی اعدادی که .0 هست جواب میده
یعنی اگه عدد بشه 1.01 باز جواب رو اشتباه میده
فکر کنم باید کاری کنیم باید دو طرف جداسازی کنیم بعد + هم کنیم یعنی کنار هم بزاریم؟؟؟؟
روش دگ رو مد نظر دارید؟؟
ولی بازم ممنونم
واقعا ممنون دستت درد نکنه ...:rose:

تشکر از دوستان عزیز و دوست عزیز آقای Oghianus
 
آخرین ویرایش:
MahmoodM30

MahmoodM30

مدیر <A href="http://forum.majidonline.com/forums/
چرا سختش میکنید مقادیر رو بدون جداسازی رقمشون محاسبه کنید و بعد تو خروجی رقمشون رو جدا جدا نشون بدید
 
Singular

Singular

Active Member
مرسی .به این مثال خودتون ی نگاه بکنید یه تغییری دادم


http://public.fileup.ir/d/2166990/num devider2.rar

امکانش هست این لود تو خود همین ادیت باکسی که توش مینویسیم باشه ؟؟؟
چون وقتی رو ادیت باکس تنظیم میکنم خراب میکنه و از حالت نوشتاری ادیت باکس همش خارج میشه باید دوباره روش کلیک کنم و...
 
Singular

Singular

Active Member
:)))))))))))))))))))))))))))))))))))))))))))))))))

هااااااااااهههههاااااااااااااااا

عجب کاری کردیااا :D

مرسی ممنونم

خوشحال میشم تو ادلیست دوستانم باشید ... اگر دوست داشتید اد کنید دوست عزیز :x
[email protected]
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا