چگونه یک عدد را از یک رشته جدا کنم؟؟

[ahp_online]

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

[mtareh]

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

[ahp_online]

در مورد عبارات با قاعده جستجو کنید
متجوجه منظورتون نشدم؟؟

[omidamiry]

اگر اعداد برات مهم نیست ریپلیس کن

str.repelace(کاراکتر مورد نظر,کاراکتر خالی "")

اگر مهمه باید تو حلقه تک تک بخونی و از رشته جداکنیش.

تابع ساب استرینگ از ، تا ، برات برمیگردونه

[Veteran]

این اعداد داخل یک رشته رو بهت نشون میده.
Private Sub Command1_Click()
Dim Str As String, Fcounter As Integer, Sstr As String, Numbers
Str = InputBox("")
For Fcounter = 1 To Len(Str)
Sstr = Left(Str, Fcounter)
Sstr = Right(Sstr, 1)
If IsNumeric(Sstr) = True Then
Numbers = Numbers & Sstr
End If
Next
MsgBox Numbers
End Sub


اما اگر بخوای عداد رو جدا کنی از رشته و فقط رشته بمونه بدون عدد
اینجوری میشه

Dim Str As String, Fcounter As Integer, Sstr As String
Str = InputBox("")
For Fcounter = 1 To Len(Str)
Sstr = Left(Str, Fcounter)
Sstr = Right(Sstr, 1)
If IsNumeric(Sstr) = True Then
Str = Replace(Str, Sstr, "")
End If
Next
MsgBox Str