• 0
@SKY@

اريد طريقة استخراج عدد من خلال نص

سؤال

ماهي الطريقة التي اتبعها وذلك لاستخراج قيمة عددية من بين رموز وحروف

اوضح اكثر.............

لو كان لدي نص ما ضمن ملف نصي وليكن:

FOUR DC F'4'

كيف استخرج 4 من بين علامتي ' ' ومن ثم تخزينها في متغير

ولكم جزيل الشكر مقدما

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

لدى طريقة رياضية ولكن ربما يوجد ما هو أسهل

تقوم بوضع حلقة تمر على كل محرف وتتحق من أن هذا المحرف حرف أم رقم

' إضافة مكتبة Microsoft VBScript Regular Expressions

' لمعلومات أكثر عن المكتبة ابحث عن التحقق من المدخلات في المنتدى

Dim RegExp As New RegExp


RegExp.Pattern = "^[0-9]$"  
Dim text, num As String
text = "df87/df'gk-4u80"
For i = 1 To Len(text)
If RegExp.test(Mid(text, i, 1)) = True Then num = num + Mid(text, i, 1)
Next
MsgBox num

أرجو أن أكون قد أفدتك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

السلام عليكم ورحمه الله وبركاته

يمكن افادتك بما يلي :

مثلا عندي مربع نص يحتوي على هذا الكلمه four dcf4

هنا لاستخراج بعض الرموز من هذه الكلمه من خلال الداله التاليه وهي تدعى Mid

مثلا : نريد استخراج الاربعه الحروف الاولى من هذه الكلمه

اضف مربع نص آخر وليكن اسمه text2 وزر وقم بكتابة الكود التالي في الزر

Me.Text1 = Mid(Me.Text2, 1, 3)

حيث ان :

text1 وهو مربع النص المحتوي على الكلمه السابقه

text2 وهو مربع النص الثاني المراد وضع القيمه المستخرجه فيه

الرقم 1 اي الموقع الذي يبدأ من عنده العرض اي من عند حرف f

الرقم 3 اي ان عدد الرموز المسموح بعرضها وهي four

ملاحظه : استخراج الرموز دائما من جهة اليسار

المسافه بين الحروف تعتبر كرمز وكذلك الفاصله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز هذه دالة موجودة في المكتبة اللي ذكرتها في الأعلي تقوم بالتحقق من النص المسند لها حسب الشرط [0-9] إذا اردت معلومات اكثر ابحث عنها في المنتدى فانا حصلت عليها من هذا المنتدى

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
Function GetNumper(FromText As String, Numper As Double) As Integer

'FromText  النص الذى يتحوى الرقم
'Numper الرقم المراد البحث عنه
'GetNumper  ترتيب الرقم فى النص

Dim T As Integer
   For T = 1 To Len(FromText)
       If Val(Right(FromText, T)) = Numper Then GetNumper = Len(FromText) - T + 1: Exit Function
   Next T

End Function

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

انا افضل الحل الاخير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .