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

وللفائدة

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

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

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

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

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

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

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

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

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

فعلاً أمر مهم

اقتباس

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

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

:lol:

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

بارك الله فيك

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

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

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

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

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

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