• Home
 · 
• String Manipulation
 · 
• Takes a string and makes it RightToLeft text (Arabic)

Takes a string and makes it RightToLeft text (Arabic)

Takes a string and makes it RightToLeft text (Arabic)

API Declarations



'Author: Aaron Young
'Origin: http://www.vbforums.com
'Purpose: Split function
'Version: VB4+


Private Function Split2(ByVal sString As String, ByVal sSeparator As String) As Variant
Dim sParts() As String
Dim lParts As Long
Dim lPos As Long

lPos = InStr(sString, sSeparator)
While lPos
ReDim Preserve sParts(lParts)
sParts(lParts) = Left$(sString, lPos - 1)
sString = Mid$(sString, lPos + Len(sSeparator))
lPos = InStr(sString, sSeparator)
lParts = lParts + 1
Wend
If Len(sString) Then
ReDim Preserve sParts(lParts)
sParts(lParts) = sString
End If
Split2 = IIf(lParts, sParts, Array())
End Function

Private Function StrReverse(mString As String) As String
Dim i As Integer

For i = Len(mString) To 1 Step -1
StrReverse = StrReverse & Mid$(mString, i, 1)
Next i

End Function





Rate Takes a string and makes it RightToLeft text (Arabic)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim vArray As Variant
    Dim iArray As Integer
    Dim sArray As String
    
    vArray = Split(Text, " ")
    For iArray = 0 To UBound(vArray)
        sArray = sArray & Chr(32) & StrReverse(vArray(iArray))
    Next iArray
    RightToLeftText = StrReverse(sArray)
End Function