منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في كود حساب موقع الحرف فى الجملة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في كود حساب موقع الحرف فى الجملة (/showthread.php?tid=32937)

مساعدة في كود حساب موقع الحرف فى الجملة - seif mohamed - 12-01-20

السلام عليكم ورحمة الله وبركاته 
ارجو المساعدة في حساب موقع كل حرف فى الجملة  ( مثال ) 
بسم الله الرحمن الرحيم 
ب = 1   س = 2   م = 3   أ = 4   ل = 5   ل = 6   هـ = 7  الخ الخ   

مثال اخر ( الله ) 

أ = (1)  ل = (2) ل = ( 3 )  هـ = ( 4 )  

ولكم جزيل الشكر ودعاء لا ينقطع بالخير والرحمة

RE: مساعدة في كود حساب موقع الحرف فى الجملة - محمد كريّم - 12-01-20

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

تفضل

كود :
       Dim OriginalString As String = "بسم الله الرحمن الرحيم"
       Dim NewString As String = ""
       Dim CharIndex As Integer

       For i = 0 To OriginalString.Length - 1
           If Not String.IsNullOrWhiteSpace(OriginalString.Substring(i, 1)) Then
               CharIndex += 1
               NewString += OriginalString.Substring(i, 1) & " = " & CharIndex & " ، "
           End If
       Next
       NewString = NewString.Trim().TrimEnd("،")
       MessageBox.Show(NewString)


RE: مساعدة في كود حساب موقع الحرف فى الجملة - seif mohamed - 13-01-20

جزاك الله كل اخي الحبيب الكود شغال لكن للاسف بيحسب الفاصلة والمسافات
          وسؤال اخر بعد اذنك لو وضعت 28 تكست بوكس علي عدد الحروف الهجائية لكل حرف تكست مع ترتيب موقعه 
هل يصح ام لا  بمعنى تكست بوكس 1 = حرف ا موقعه رقم كذا 
تكست بوكس 2 حرف ب موقعه رقم كذا

جزاك الله خير