MR-VB-NET

اول برنامج لتحويل اللغة العربية الى UNICODE هام للغاية

10 ردود في هذا الموضوع

أولا كل عام و انتم بخير و رمضان كريم

لم أشارك من مدة طويلة و أحببت مشاركتكم بهذا البرنامج الذي يقوم بتحويل اللغة العربية إلى ينكود و خاصة لمشكلة التشكيل باللغة العربية لقد بحثت عن شيء مماثل للغة العربية و لم أجد فقمت بتصميمه

مرفق مع البرنامج كود للتعليم

لا تنسونا من الدعاء

post-41370-1161346739_thumb.jpg

arabic_unicode.rar

0

شارك هذا الرد


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

وللفائدة

Private Sub Command2_Click()
Dim arr() As String, intCounter As Integer, intIndex As Integer, sChr As String
Dim i As Long
ReDim arr(intIndex)
For i = 1 To Len(Text1)
sChr = AscW(Mid(Text1, i, 1))
intCounter = intCounter + Len(sChr)

If intCounter > 240 Then 'a single Basic line can only hold 256 Character
intCounter = 0
intIndex = intIndex + 1
ReDim Preserve arr(intIndex)
End If

If i = Len(Text1) Then
arr(intIndex) = arr(intIndex) & "ChrW(" & sChr & ")"
Else
arr(intIndex) = arr(intIndex) & "ChrW(" & sChr & ") & "
End If
Next
For i = LBound(arr) To UBound(arr)
If i = UBound(arr) Then
Text2 = Text2 & arr(i)
Else
Text2 = Text2 & arr(i) & " _" & vbCrLf
End If
Next

End Sub

تم تعديل بواسطه Pharaonic_Guy
0

شارك هذا الرد


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

ياه ..فينك يارجل ولك وحشه يا اخ MR-VB-NET

واكيد البرنامج مميز مثل راعيه :lol: ويعطيك العافية اخ Pharaonic_Guy

لزيادة الفائدة .. فالحقيقة انا ارتح اذا شفت لك رد في اي موضوع بعرف انو المشكلة محلوله على طول

B) الله يعطيكم العافية إن شاء الله وبالتوفيق لما تقدماه

تم تعديل بواسطه HnHn
0

شارك هذا الرد


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

شكرا اخي HnHn و الله و انا كمان مشتاق للمنتدى من زمان كنت حابب شارك بس ظروف العمل

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

0

شارك هذا الرد


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

شكرا يا أخواني علي هذا الإطراء الذي لا أستحقه

0

شارك هذا الرد


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

بارك الله بكم جميعاً فعلاً و جزاكم الله خيراً

فعلاً أمر مهم

0

شارك هذا الرد


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

شكرا يا أخواني علي هذا الإطراء الذي لا أستحقه <_<

مالك حق يا أخ Pharaonic_Guy ان تقول هكذا كلام على نفسك فانت بالفعل

انســــــــــــــــــــــــــــــان خطير دبل أكس

:lol:

تم تعديل بواسطه HnHn
0

شارك هذا الرد


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

مشكوووووووووووووووور يا اخى على الكود الجميل والبرنامج الرائع

بارك الله فيك

0

شارك هذا الرد


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

ههههههههههههههى

ايه الحلاوة دى

ربنا يفقكم جميعا

0

شارك هذا الرد


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

أخي ما شاء الله عليك

و كل اللي قيل لك هو ناقص أي أنت روعة قمة

جزاك الله خيرا

0

شارك هذا الرد


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

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

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