شناسایی اعداد از یک رشته ( حروف و اعداد)

[SilverGold]

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

Txt = "سلام به همه 234234 در سال 21234324 "
مثلا این رشته رو من می خواهم اعداد داخلشو از حروف جدا کنم یعنی بشود

txt = 23423421234324

راه حلی که خود به ذهنم رسید و به بن بست خوردم :


Numtxt = VBA.Right(VBA.Left(txt, B), 1)
یعنی اینکه یکی , یکی از سمت چپ یکی جدا کنه و بعد شناسایی کنه که عدد هست یا حروف
ولی از اینجا به بعد مشکل می خورم
لطفا من رو راهنمایی کنید

[ali190]

سلام برادر
این فورمول رو تست کن:

Function ChrSeperate(FieldName As String)
On Error GoTo Err_ChrSeperate
Dim I As Long
Dim strCheck As String
Dim valFldLengh As Long
valFldLengh = Len(FieldName)
For I = 1 To valFldLengh
If Not IsNumeric(Mid(FieldName, I, 1)) =false Then
strCheck = strCheck & Mid(FieldName, I, 1)
End If
Next I
ChrSeperate = strCheck
Exit_Err_ChrSeperate:
Exit Function
Err_ChrSeperate:
MsgBox Err.Description
Resume Exit_Err_ChrSeperate
End Function
این هم فایل نمونه تقدیم به شما
یاعلی

[vb8334]

یه سوال داشتم اون دستور isnumeric کارش چیه ؟
میشه یه توضیحی در مورد کد بدی

ممنون

[M.T.P]

یه سوال داشتم اون دستور isnumeric کارش چیه ؟
میشه یه توضیحی در مورد کد بدی

ممنون

این تابع کارش تشخیص عدد هست... یعنی اگه یک عبارت توش حرف باشه False رو برمیگردونه و چنانچه تمامی کارکترهاش عدد باشه True

این کدها رو تست کنید:



MsgBox IsNumeric("123")
MsgBox IsNumeric("A123")