ترجمة النصوص من الإنجليزية الي العربية بين الواقع و الخيال

كود :

  Private Function TranslateToArabic(text As String) As String

        Dim sourceValue As String = CType(text, String)

        Dim sb As System.Text.StringBuilder = CType(Nothing, System.Text.StringBuilder)

        Dim result As String = CType(Nothing, String)

        If Not (String.IsNullOrEmpty(sourceValue)) Then

            sb = New System.Text.StringBuilder

            For j As Integer = 0 To text.Length - 1

                Dim s As String = text(j)

                If EnglishGlyphs.Contains(s) Then

                    Dim index As Integer = EnglishGlyphs(s)

                    Dim arabicString As String = ArabicGlyphs(index)

                    sb.Append(arabicString)

                End If

            Next

            result = sb.ToString

        End If



        Return result

    End Function



    Public Function ToArabic(value As String) As String

        Dim valueString As String = CType(value, String)

        If Not (String.IsNullOrEmpty(valueString)) Then

            Return TranslateToArabic(valueString)

        End If

        Return CType(Nothing, String)

    End Function

PHP كود :

Public Class NumericsShaper

    Public Sub New()

    End Sub

    Protected ReadOnly Property ArabicGlyphs As IEnumerable(Of String)
        Get
            Return New List(Of String) From {ChrW(1632), ChrW(1633), ChrW(1634), ChrW(1635), ChrW(1636), ChrW(1637), ChrW(1638), ChrW(1639), ChrW(1640), ChrW(1641)}
        End Get
    End Property

    Protected ReadOnly Property EnglishGlyphs As IEnumerable(Of String)
        Get
            Return New List(Of String) From {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
        End Get
    End Property

    Private Function TranslateToArabic(text As String) As String
        Dim sourceValue As String = CType(text, String)
        Dim sb As System.Text.StringBuilder = CType(Nothing, System.Text.StringBuilder)
        Dim result As String = CType(Nothing, String)
        If Not (String.IsNullOrEmpty(sourceValue)) Then
            sb = New System.Text.StringBuilder
            For j As Integer = 0 To text.Length - 1
                Dim s As String = text(j)
                If EnglishGlyphs.Contains(s) Then
                    Dim index As Integer = EnglishGlyphs(s)
                    Dim arabicString As String = ArabicGlyphs(index)
                    sb.Append(arabicString)
                End If
            Next
            result = sb.ToString
        End If

        Return result
    End Function

    Public Function ToArabic(value As String) As String
        Dim valueString As String = CType(value, String)
        If Not (String.IsNullOrEmpty(valueString)) Then
            Return TranslatetoArabic(valueString)
        End If
        Return CType(Nothing, String)
    End Function

End Class

PHP كود :

Public Class Form1
    Dim S1 As String = "Created By Ayman Eldoktor Copyright© 2009         "
    Dim Counter1 As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            For i As Integer = 0 To Google.API.Translate.LanguageUtility.LanguageCollection.Count - 1

                Me.ListBox1.Items.Add(Google.API.Translate.LanguageUtility.LanguageCollection(i))
                Me.ListBox2.Items.Add(Google.API.Translate.LanguageUtility.LanguageCollection(i))
            Next
            Me.ListBox1.Items.RemoveAt(0)
            Me.ListBox2.Items.RemoveAt(0)

            Me.Label6.Text = "You Have  " & Me.ListBox1.Items.Count & "  Language"
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichTextBox2.Text, Me.ListBox1.SelectedIndex + 1, Me.ListBox2.SelectedIndex + 1)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim X1 As Int16
            Dim X2 As Int16

            X1 = Me.ListBox1.SelectedIndex
            X2 = Me.ListBox2.SelectedIndex

            Me.ListBox1.SelectedIndex = X2
            Me.ListBox2.SelectedIndex = X1

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    Private Sub T1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick
        Try
            If Counter1 = S1.Length - 1 Then
                Me.Label5.Text = ""
                Counter1 = 0
            End If
            Label5.Text += S1.Chars(Counter1)
            Counter1 += 1
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub
End Class 

يارب تستفدومن الموضوع