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

[123]

سلام
میخواستم بدونم تو وی بی میشه عدد رو از متن جدا کرد
مثلا عدد 214 را از این متن خارج کند "فیش214"
باتشکر

[Payman62]

با چک کردن حرف به حرف حروف و کد اسکیشون میشه.

[yavari]

سلام

اگه منظورتون رو نفهمیدم ، معذرت میخوام :اشتباه:

مثلا اگه بگید( val(text1.text
مگه مشکلتون حل نمی شه ؟؟؟
(فرض بر اینکه عبارت در تکست باکس ریخته شده)

موفق باشید

[Payman62]

Val فقط اعداد سمت چپ رو میکشه بیرون. مثلا حاصل Val این رشته "54hgg7g" میشه 54 در حالی که یه 7 هم در رشته بود. یا Val این رشته "k46hh7g" میشه 0.

[sohrab o]

val مقدار عدی رو میده
left از سمت چپ جدا می کنه
right از سمت راست جدا می کنه
Mid از وسط جدا می کنه
len طول رو میده
با توابع بالا بازی کن

[meh_secure]

حرف به حرف بخونید. با تابع IsNumeric عدد بودن آن را تشخیص دهید.

[123]

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

[meh_secure]

با روشی که خدمتون ارایه کردم به پاسخ می رسیدید. کافی بود کمی روش کار می کردید.

[123]

در وی بی جواب میده ولی من توی excel در قسمت ماکرو نویسی نیاز دارم که جواب نمیده. ولی با رهنمایی شما یه چیزی نوشتم که جواب داد. برای شما هم مینویسم.
*********************Dim ee, i As Integer
************************Dim tx As String
ee = Len(Cells(1, 1).Value)***************p
For i = 1 To ee***********************p
tx = Right(Cells(1, 1).Value, i)************ p
If IsNumeric(tx) = False Then Exit For*******p
*******************************Next i
******************************i = i - 1
Cells(1, 2).Value = Right(Cells(1, 1).Value, i)***p

حروف p و * را ندیده بگیر

[Payman62]

خوب چرا از تگ کد استفاده نمیکنی که این همه هم به خودت زحمت ندی.

[as_200340]

دستت درد نکنه آقا سهراب

[123]

میشه برام بیشتر توضیح بدی یا یه مثال بگذاری.
خیلی از شما ممنونم.مرسی
با تشکر موسوی