جدا کردن عدد از یک متن

48-57

1- لوپ زدن در طول متن که از چندین space تشکیل شده مثل :

For i=1 To Len(sText)

2-استفاده از تابع Mid 

Mid(String,Start,Length)

Var=Mid(sText,1,i)

3-اگر Ascii code کاراکتر بین 48 تا 57 بود آن کاراکتر ( از رشته )  در متغیری موقتا ذخیرشود و در خروجی آن ارقام کنار هم نمایش داده شود.

این کدهای اسکی را می توان در جلوگیری از تایپ حروف نیز بکار برد ( در رویدادی که در  تکست باس موجود است )

می توان برای راحتر شدن از تابع IsNumeric استفاده کرد که اگر کاراکتر عددی بود در متغیری ذخیره شود.

تابع ()Asc در اکسس در مقابل تابع() Chr است.برای برگرداندن مقدار ASCII اولین کاراکتر رشته مورد استفاده قرار می گیرد.

-از تابع Split می توان استفاده کرد

-از شی RegExp در Vba نیز می توان بهره برد با استفاد از ویژگی Pattern می توان صفر تا ۹ را مشخص نمود 

[pt] >> فقط داخل براکت 

[pt^] >> شامل داخل براکت نباشد

[a-z] >> شامل حروف کوچک a تا z باشد

d >> شامل digit یا رقم

D >> شامل digit یا رقم نباشد

.  >> تک کاراکتر

n\  یاnewline

r\ یا vbCr

s\ شامل space باشد 

و استفاده از مِتُد Execute در شئ Vba.RegExp

With objRegex 

برای اجرای تابع که تمام تطابق ها در رشته را شامل شود ویژگی Global به True می بایست تنظیم شود.

.Global = True 

'.Pattern = "[^\d]+" '[NOT digit]  
.Pattern = "[\D]+" '[NOT digit] 

کاراکترهایی که ارقام نیستند را با Null جایگزین می کند 

getNumbersInString = .Replace(strIn, vbNullString) 

End With

 در زیر ویژگی Pattern عبارت A.C است اون نقطه طبق چیزی که بالا گفتیم یعنی تک کاراکتر و پس لوپ زیر تمام عباراتی که شامل سه کارکتر A تا C با داشتن یک تک کاراکتر وسط نامعلوم است را لیست می کند یعنی ABC و ADC و AJC

.Pattern = "A.C"
.Global = True
.IgnoreCase = True
stringOne = "ABC-A1289C-ADC-A1289C-AJC"
Set theMatches = regexOne.Execute(stringOne)
For Each Match In theMatches

Debug.Print Match.Value

Next

برای جدا کردن email ها :

w\ هرچیزی که شامل حرف و رقم باشد

Pattern: [\w\.\-]+@[A-Za-z0-9\.\-]+\.[A-Za-z]{2,24}

داخل براکت اولی : شامل حرف یا عدد ، نقطه یا خط ربط

بعد @

داخل براکت دومی : شامل حروف بزرگ و کوچک و ارقام

بعد دات( dot)

داخل براکت سوم : شامل حروف کوچک یا بزرگ انگلیسی 

پس ملاحظه نمودید که چندین روش برای استخراج متن مورد نظر در یک رشته وجود دارد

لایحه جدید قوه قضائیه به مجلس ( خرداد ۱۴۰۲ ) که موجبات مخالفت محجبه ها را فراهم کرد :

هیچ‌کس حق ندارد تحت عنوان امر به معروف و یا نهی از منکر نسبت به بانوانی که حجاب شرعی را رعایت نکرده اند مرتکب اعمال مجرمانه از قبیل توهین، افتراء، تهدید و یا ضرب و جرح و یا نقض حریم خصوصی آنان شوند و در صورت اقدام به مجازات مقرر در قانون محکوم خواهد شد»