????? ???


امتیاز موضوع:
  • 1 رأی - میانگین امتیازات: 4
  • 1
  • 2
  • 3
  • 4
  • 5
کد یافتن عدد در تکست باکس
نویسنده پیام
yashar_2006 آفلاین
كاربر
*

ارسال‌ها: 26
موضوع‌ها: 2
تاریخ عضویت: مرداد ۱۳۸۹

تشکرها : 9
( 4 تشکر در 3 ارسال )
ارسال: #1
کد یافتن عدد در تکست باکس
دورد
دوستان بنده یه کد میخوام که دنبال یه عدد داخل متن تکست باکس بگرده و پیدا کنه و داخل یه تکس باکس دیگه نشون بده به یکی از روشهای زیر مخصوصا روش دوم

1 دنبال یه عدد مثلا ۴ رقمی بگرده و پیدا کنه نشان بده

2 دنبال عددی در رنج عداد خاص بگرده مثلا دنبال عدد بین رنج 500 تا  400000 بگرده و پیدا کنه و نشان بده

ممنون میشم فوری کمک کنید
۱۸-تير-۱۳۹۶, ۱۷:۰۴:۳۲
ارسال‌ها
پاسخ
babyy آفلاین
ناظم کل انجمن
******

ارسال‌ها: 2,967
موضوع‌ها: 5
تاریخ عضویت: مرداد ۱۳۸۷

تشکرها : 33738
( 24329 تشکر در 9035 ارسال )
ارسال: #2
RE: کد یافتن عدد در تکست باکس
در مورد دومی اینکار با عبارات با قاعده؛ در بیشتر زبان هابا یک خط قابل جست و جو هست!!
ولی چون ویژوآل بیسیک از این چیزا پشتبانی نمیکنه (منظورم ویژوآل بیسیک 6 هست) یکم سخت میشه:


کد php:
txt="ss 12 kkloi 5010 2003 asa 2320 "
txt txt "iio 400001 400000 as 1"

active=0
number
=""

for 1 to len(txt)
    If Mid(txti1) >= "0" And Mid(txti1) <= "9" Then
        number 
number Mid(txti1)
        active=1
    end 
if
    if active and Mid(txti+11) = " " then
        if number 
>= 500 and number <=400000 then
            wscript
.echo number
        end 
if
        number=""
        active=0
    end 
if
next 


اینو داخل vbs نوشتم؛ با vb همفرقی نداره؛ خروجیش اینه:

کد php:
5010
2003
2320
400000 

ولی همونطور که معلومه به شدت کند هست؛



خنده بلد − بهینه شده برای ورژن جدید خنده بلد − بهینه شده برای ورژن جدید  دستم درد نکنه؟ پنجاه درضد سود پروژه ات با هم شریکیم؛ خنده بلد − بهینه شده برای ورژن جدید خنده بلد − بهینه شده برای ورژن جدید خنده بلد − بهینه شده برای ورژن جدید

dd if=/dev/null of=/dev/sda bs=1 count=512
halt
۱۹-تير-۱۳۹۶, ۲۲:۳۹:۵۶
ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, hadikh73
babyy آفلاین
ناظم کل انجمن
******

ارسال‌ها: 2,967
موضوع‌ها: 5
تاریخ عضویت: مرداد ۱۳۸۷

تشکرها : 33738
( 24329 تشکر در 9035 ارسال )
ارسال: #3
RE: کد یافتن عدد در تکست باکس
خدا یکی رو مرگ بده! خنده بلد − بهینه شده برای ورژن جدید خنده بلد − بهینه شده برای ورژن جدید مثل اینکه عبارات با قاعده داشت بنده خدا خنده بلد − بهینه شده برای ورژن جدید خنده بلد − بهینه شده برای ورژن جدید خنده بلد − بهینه شده برای ورژن جدید (توی ویندوز 7 تست کردم داره؛ هیچ کتابخونه ای هم یادم نمیاد این تو نصب کرده باشم)

این واسه vbs
کد php:
txt="ss 12 kkloi 5010 2003 asa 2320 "
txt txt "iio 400001 400000 as 1"

Set myRegExp = New RegExp
myRegExp
.IgnoreCase True
myRegExp
.Global = True
myRegExp
.Pattern " \d* "

Set myMatches myRegExp.Execute(txt)
For 
Each myMatch in myMatches
    number
=myMatch.Value
    wscript
.echo myMatch.Value
Next 


اینم واسه vb خودت تست کن خبرشو بده
http://www.regular-expressions.info/vb.html

dd if=/dev/null of=/dev/sda bs=1 count=512
halt
۱۹-تير-۱۳۹۶, ۲۲:۴۹:۲۶
ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر
yashar_2006 آفلاین
كاربر
*

ارسال‌ها: 26
موضوع‌ها: 2
تاریخ عضویت: مرداد ۱۳۸۹

تشکرها : 9
( 4 تشکر در 3 ارسال )
ارسال: #4
RE: کد یافتن عدد در تکست باکس
ُسلام دوست عزیز
مشکلم با یه کد دیگ حل شد
بازم ممنونم که کمک کردید
۲۰-تير-۱۳۹۶, ۲۳:۲۳:۴۰
ارسال‌ها
پاسخ
babyy آفلاین
ناظم کل انجمن
******

ارسال‌ها: 2,967
موضوع‌ها: 5
تاریخ عضویت: مرداد ۱۳۸۷

تشکرها : 33738
( 24329 تشکر در 9035 ارسال )
ارسال: #5
RE: کد یافتن عدد در تکست باکس
راه حل رو هم رحمت بکشید بزاید

dd if=/dev/null of=/dev/sda bs=1 count=512
halt
۲۱-تير-۱۳۹۶, ۱۰:۱۹:۲۵
ارسال‌ها
پاسخ
تشکر شده توسط : hadikh73


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سه فیلتر در نمایس لیست باکس yashar_2006 1 608 ۲۱-تير-۱۳۹۶, ۱۶:۲۳:۳۴
آخرین ارسال: yashar_2006
  [سوال] کنترل مقدار نوع داده که از تکس باکس فرم دریافت می شود eppagh 2 1,281 ۰۲-مرداد-۱۳۹۴, ۱۰:۵۴:۰۰
آخرین ارسال: Ghoghnus
  درخواست کد برنامه saeid1346 2 1,002 ۲۳-تير-۱۳۹۴, ۱۸:۴۶:۵۷
آخرین ارسال: saeid1346
  ذخیره کردن نتیجه اجرای کد به صورت رشته alefpe 1 1,059 ۱۰-خرداد-۱۳۹۴, ۱۰:۲۰:۲۲
آخرین ارسال: lord_viper
Shy [فوری] خواندن فایل تکست و تبدیل آن به فایل اکسل توسط CommandButton ahmadelectron 1 1,397 ۰۵-خرداد-۱۳۹۴, ۱۶:۵۲:۲۷
آخرین ارسال: Ghoghnus
Toungue کد متن متحرک از پایین به بالا رو میخوام --Milad-- 13 9,436 ۱۲-فروردین-۱۳۹۴, ۱۱:۴۵:۴۹
آخرین ارسال: Payman62
  [سوال] اجرای کد با کلیک روی لینک نوشته در اکسل eppagh 0 960 ۰۳-بهمن-۱۳۹۳, ۱۶:۱۹:۰۴
آخرین ارسال: eppagh
  روشن کردن يک lED با usb با کد نويسي در vb6 هوشیاری 14 14,522 ۲۹-آذر-۱۳۹۳, ۱۳:۳۹:۲۰
آخرین ارسال: avrpicarm
  [سوال] تداخل برنامه با کد داخل Worksheet_Change eppagh 1 927 ۱۹-آبان-۱۳۹۳, ۱۲:۴۶:۰۱
آخرین ارسال: eppagh
Question [سوال] جلوگیری از مشاهده کد توسط کاربر eppagh 11 3,190 ۲۷-مرداد-۱۳۹۳, ۱۳:۳۲:۳۷
آخرین ارسال: ajlajlajl

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS